Help for this page

Select Code to Download

Select or download this

my $file_r = $ARGV[0];
my $file_r = $ARGV[1];
open FILE_R, "< $file_r" or die "Can't open $file_r : $!";
open FILE_P, "< $file_p" or die "Can't open $file_p : $!";

Select or download this

while (<FILE_R>){
  chomp;
  push @rdata, $_;
...
}

my @sum = map {$rdata[$_] + $pdata[$_]} 0..$_#a;