use Perl

I have been going over ther speakers list for the forthcoming YAPC::Europe at (http://www.yapc.org/Europe/2002/speakers.html), currently the list only holds names of speakers and the titles of their presentations, so in sheer frustration of the lag of information on the presentations I made a small script to parse the page and compare it with the list from OSCON 2002 (http://conferences.oreillynet.com/pub/w/15/presentations.html), I what did I find out, that actually only one of the presentations is repeated at YAPC::E, well I guess that is pretty much ok, but I still miss the information on the presentations from the organizers of YAPC::E.

Here is the script:

#!/usr/bin/perl -w

use strict;
use Data::Dumper;

my $debug = 0;
my %speakers;

my $osconfile = "oscon_presentators.html";
my $osconregex = '^.*e_spkr\/\d+">(.*)$';
my $yapcefile = "yapc-e_speakers.html";
my $yapceregex = '^(.*)';

my $speakers_ref = &process($osconfile, $osconregex, \%speakers);
$speakers_ref = &process($yapcefile, $yapceregex, $speakers_ref);

foreach my $speaker (keys %{$speakers_ref}) {
        if ($speakers_ref->{$speaker} > 1) {
                print "$speaker : ".$speakers_ref->{$speaker},"\n";
        }
}
exit;

sub process {
        my ($file, $regex, $speakers_ref) = @_;

        open(FIN, ") {
                my $line = $_;
                #if ($line =~ s/^.*e_spkr\/\d+">(.*)$/$1/) {
                if ($line =~ s/$regex/$1/) {
                        $line =~ s///g;
                        print $line if $debug;
                        chomp $line;
                        $speakers_ref->{$line}++ if ($file =~ m/yapc/);
                        $speakers_ref->{$line} = 1 if ($file =~ m/oscon/);
                }
        }
        close(FIN);

        return $speakers_ref;
}

I guess I better send a mail to the organizers, it would also be nice with some information on the tutorials...