Help for this page

Select Code to Download


  1. or download this
    use strict;
use warnings;
  2. or download this
    open $USER1, '<', $userfile1 or die "Couldn't open file: $userfile1 - 
+$!";
...
while(<$USER1>) { ...
  3. or download this
    open $OUT, '>', "CONCATENATED_FILES";
...
open $USER1, '<', $userfile1;
  4. or download this
    use autodie;
  5. or download this
    use strict;
use warnings;
...
    last if !defined $file1[$i] or !defined $file2[$i];
    print "$file1[$i]\t$file2[$i]\n";
}