Help for this page

Select Code to Download


  1. or download this
    #!/usr/bin/perl -w
 
...
print "file: $fileToCompare: $lineCount\n";
  }
}
  2. or download this
    my $prefixDir = "$ENV{HOME}/sa/current";
my @clusterDirs= qw(cluster1 cluster2 cluster3 cluster4 cluster5);
...
        print "file: $fileToCompare: $lineCount\n";      
   }
}
  3. or download this
    #!/usr/bin/perl -w
use strict;
...
    print "</tr>\n";
}
print "</table>\n";