Help for this page

Select Code to Download


  1. or download this
    my $in1 = $ARGV[0];
my $in2 = $ARGV[1];
my $fout = $ARGV[2];
  2. or download this
    open ONE, $in1;
open TWO, $in2;
open foutname, ">$fout";
  3. or download this
    open my $one, '<', $in1 || die "$in1: $!\n";
open my $two, '<', $in2 || die "$in2: $!\n";
open my $foutname, ">", $fout || die "$fout: $!\n";
  4. or download this
    my %first;
while (<$one>) {
...
}
close $two;
close $foutname || warn "$fout: $!\n';