Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
...
open (NEW, "<pcs_new.csv");

my %old; # where pc numbers will get stored...
  2. or download this
    while (<OLD>) {
   chomp;
...
   $pc =~ s/"//g;         # get rid of the quotes
   $old {$pc} = 1;        # make an entry in the hash
}
  3. or download this
    while (<OLD>) {
   chomp;
...
# and cleanup
close (OLD);
close (NEW);