Shell Programming and Scripting

#!/usr/bin/perl
use diagnostics;
use warnings;
use strict;

my ($file1,$file2) = @ARGV[0,1];
unless ($file1 && $file2) {
   print "Usage : program_name file1 file2\n";
   exit(0);
}	 
my %affyMap = ();
my %affyAnnot = ();

open (my $F1, $file1) or die "$!";
my @map = <$F1>;
close $F1;
open (my $F2, $file2) or die "$!";
my @annotation = <$F2>;
close $F2;

foreach my $line (@map){
        chomp($line);
        my($ID,$info) = split(/\t/,$line,2);
        $affyMap{$ID} = $info;
}

foreach my $line (@annotation){
       chomp($line);
       my($ID,$info) = split(/\t/,$line,2);
       $affyAnnot{$ID} = $info;
}

foreach my $key (keys %affyMap){
       print "$key\t$affyMap{$key}\t$affyAnnot{$key}\n";
}

#!/usr/bin/perl -w
use diagnostics;
use warnings;
use strict;

my %affyMap = ();
my %affyAnnot = ();

open (AFFYMAP, "<$ARGV[0]>") || die "$!: Can't open ARGV0. . . exiting\n";

while (<AFFYMAP>){
        chomp($_);
        my($ID,$info) = split(/\t/,$_,2);
        $affyMap{$ID} = $info;
}
close (AFFYMAP);

open (ANNOTATION, "<$ARGV[1]>") || die "$!: Can't open ARGV1 . . . exiting\n";

while (<ANNOTATION>){
        chomp($_);
        my($ID,$info) = split(/\t/,$_,2);
        $affyAnnot{$ID} = $info;
}

close (ANNOTATION);

foreach my $key (%affyMap){
        print "$key\t" . "$affyMap{$key}\t" . "$affyAnnot{$key}\n";
        }

open (AFFYMAP, $ARGV[0]) or die "$!: Can't open $ARGV[0]. . . exiting\n";

foreach my $key (keys %affyMap){