X-Git-Url: https://git.sesse.net/?p=ccbs;a=blobdiff_plain;f=parse%2Fparse-ddreurope-tournament.pl;h=e838dd61fa33c834be20f9e84262113a424693ed;hp=53c8f5dbf279b614d2784338d249309cf4a1550b;hb=fb3154af3cf6f2e25561a630518f67c5e65d1b31;hpb=13d692e9ecbf67e361d7512ab79ff38238e6f19a diff --git a/parse/parse-ddreurope-tournament.pl b/parse/parse-ddreurope-tournament.pl index 53c8f5d..e838dd6 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 (/