YAPC::E anticipation and frustration

jonasbn on 2002-08-17T14:45:32

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+">(.*)<\/a>$'; my $yapcefile = "yapc-e_speakers.html"; my $yapceregex = '^(.*)<\/td>';

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, "<$file") or die "Unable to open file: $file - $!\n";

while() { my $line = $_; #if ($line =~ s/^.*e_spkr\/\d+">(.*)<\/a>$/$1/) { if ($line =~ s/$regex/$1/) { $line =~ s/<.*\w+>//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...