use Perl

...when you have WWW::Odeon.

I was playing with something along these lines, but it looks like Iain beat me to it. Which is cool. He can deal with the lawyers instead of me :)

Here's a sample program.

#!/usr/bin/perl

use strict;
use warnings;

use WWW::Odeon;

my $cinema = shift || 'Streatham';

my $details = get_details($cinema);

foreach my $date (sort by_date keys %$details) {
  print "$date\n";

  foreach my $film (sort keys %{$details->{$date}}) {
    print "$film - ";
    print join ',', sort keys %{$details->{$date}{$film}};
    print "\n";
  }
  print "\n";
}

sub by_date {
  my @a = $a =~ m|(\d+)/(\d+)/(\d+)|;
  my @b = $b =~ m|(\d+)/(\d+)/(\d+)|;

  $a[2] <=> $b[2] || $a[1] <=> $b[1] || $a[0] <=> $b[0];
}