Help for this page

Select Code to Download

Select or download this

mysql  -- 5.0.51b
DBI   --  1.52
DBD::mysql -- 4.007

Select or download this

#!/usr/bin/perl

...
    $diff++ if ( $db_data[$_] ne $src_data[$_] );
}
print "So that's bad\n" if $diff;