Select Code to Download

Select or download this

for my $arg (@ARGV) {
    #$script=$ARGV[0];
...
    $metricsfile=$ARGV[0];
    $resultfile=$ARGV[1];
    }

Select or download this

use strict;   # always!
use warnings; # always!

Select or download this

### Assigning the argument file to in_file ####
$in_file = $metricsfile;

Select or download this

open (IN, "<$in_file") or die "Can't open $in_file: $!";

Select or download this

### A while condition to read all the lines in a file and place in an 
+array####
#my $linenum=1;

while(@linesFromMetrics=<IN>){ # opening while loop

Select or download this

my @lines=<IN>;
# or
while (my $line=<IN>) { # ...

Select or download this

 #print "Reading metrics file \n";
 #print $linenum++;

Select or download this

 ### Assigning the argument file to in_file ####
 $input_file = $resultfile;

Select or download this

#!/usr/bin/perl

...
$orig{$_} and print while <$fh>;
 
__END__