Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Remote MySQL table comparison

by gmax (Abbot)
on Aug 08, 2004 at 15:38 UTC ( [id://381053] : perlmeditation . print w/replies, xml ) Need Help??

Help for this page

Select Code to Download


  1. or download this
    sub get_table_CRC {
    
    ...
        }
        return [$count, $crc];
    }
    
  2. or download this
    sub get_fields 
    {
    ...
        return join ",", @fields; 
    }
    
  3. or download this
    #!/usr/bin/perl -w
    use strict;
    ...
    {
        print "NO DIFFERENCES\n";
    }