Add scripts and example SQL for parsing the EM2 series from 2002.

[ccbs] / parse / parse-ddreurope-tournament.pl

diff --git a/parse/parse-ddreurope-tournament.pl b/parse/parse-ddreurope-tournament.pl
index 7fce29ea233309a68161f55e363a8be832aadb0e..e3d6ba5fa3992476ce45256755afdb7ee7631d21 100644 (file)
--- a/parse/parse-ddreurope-tournament.pl
+++ b/parse/parse-ddreurope-tournament.pl
@@ -24,6 +24,7 @@ while (<>) {
             /x) {
                my ($country, $location, $date, $mix, $system) = ($1, $2, $3, $4, $5);
                $mix =~ s/Euromix/EuroMix/;
+               $system = '10K Machine score' if ($system =~ /^\s*$/);
 
                print "INSERT INTO tournaments \n";
                print "  (season, tournamentname, country, location, \"date\", machine, scoringsystem) VALUES (\n";
@@ -51,7 +52,7 @@ while (<>) {
        }
 
        # Player's results (score)
-       if (/<td \s* class=dtdm>/x) {
+       if (/<td \s* class=dtd (?: m | song ) >/x) {
                my $i = 0;
 
                # random songs