Select Code to Download

Select or download this

to continue on: (untested)
open( my $FH1 , '<', $file1 ) or die "Couldn't open file \"$file1\": $
+!";
...
    my ($id) = (split /\s+/,$line)[3]; #whitespace chars also includes
+ tabs
    print $line if exists $ids{$id};
}

Select or download this

#open IN, '<', 'somename' or die "xxx $!\n";
#prints xxx No such file or directory

open IN, '<', 'somename' or die "xxx $!";
#prints xxx No such file or directory at C:\Projects_Perl\testing\junk
+.pl line 4.