Change Details

#!/usr/bin/perl -w $table = 'pagelinks'; while (<>) { if (/DELETE FROM `[a-z0-9_]+`.`$table`/) { <STDIN>; # where @values = []; $ok = 1; for ( $i = 1; $i <= 4; $i++ ) { $valueLine = <STDIN>; if ($valueLine =~ /\@$i=([0-9]+)/) { $values[$i] = $1; } elsif ( $valueLine =~ /\@$i=('.*')/ ) { $values[$i] = $1; } else { $ok = 0; } } if ( $ok ) { print "INSERT IGNORE INTO pagelinks (pl_from, pl_namespace, pl_title, pl_from_namespace) " . "VALUES ($values[1], $values[2], $values[3], $values[4]);\n"; } } }

#!/usr/bin/perl -w $db = $ARGV[0]; $table = 'pagelinks'; while (<STDIN>) { if (/DELETE FROM `$db`.`$table`/) { <STDIN>; # where @values = []; $ok = 1; for ( $i = 1; $i <= 4; $i++ ) { $valueLine = <STDIN>; if ($valueLine =~ /\@$i=([0-9]+)/) { $values[$i] = $1; } elsif ( $valueLine =~ /\@$i=('.*')/ ) { $values[$i] = $1; } else { $ok = 0; } } if ( $ok ) { print "INSERT IGNORE INTO pagelinks (pl_from, pl_namespace, pl_title, pl_from_namespace) " . "VALUES ($values[1], $values[2], $values[3], $values[4]);\n"; } } }

#!/usr/bin/perl -w $db = $ARGV[0]; $table = 'pagelinks'; while (<STDIN>) { if (/DELETE FROM `[a-z0-9_]+`$db`.`$table`/) { <STDIN>; # where @values = []; $ok = 1; for ( $i = 1; $i <= 4; $i++ ) { $valueLine = <STDIN>; if ($valueLine =~ /\@$i=([0-9]+)/) { $values[$i] = $1; } elsif ( $valueLine =~ /\@$i=('.*')/ ) { $values[$i] = $1; } else { $ok = 0; } } if ( $ok ) { print "INSERT IGNORE INTO pagelinks (pl_from, pl_namespace, pl_title, pl_from_namespace) " . "VALUES ($values[1], $values[2], $values[3], $values[4]);\n"; } } }