X-Git-Url: https://git.sesse.net/?p=ccbs;a=blobdiff_plain;f=parse%2Fparse-ddreurope-tournament.pl;h=09f428ab35a1d8adcb2efad160f12e3cfdb6ab77;hp=53c8f5dbf279b614d2784338d249309cf4a1550b;hb=147774d67c3932c9ee5e42b93f348c5023d74f4b;hpb=ae2305178ef61a2b9f85dde8d0f9315751378348 diff --git a/parse/parse-ddreurope-tournament.pl b/parse/parse-ddreurope-tournament.pl index 53c8f5d..09f428a 100644 --- a/parse/parse-ddreurope-tournament.pl +++ b/parse/parse-ddreurope-tournament.pl @@ -6,11 +6,10 @@ use Date::Manip; # Parses tournament results from the DDR Europe result list my $season = shift; -my ($name, $round, $group, $player, @rsongs); +my ($name, $round, $group, $player, $position, @rsongs); die "Missing season (give on command line)." if (!defined($season)); -# commented out -- see player below -# print "begin;\n"; +print "begin;\n"; while (<>) { if (/