File Perl

  1. Home
  2. Perl
  3. File
  4. Merges two files
#!/usr/local/bin/perl 
open (INFILE1, "merge1") || die ("Cannot open input file merge1\n"); 
open (INFILE2, "merge2") || die ("Cannot open input file merge2\n"); 
$line1 = ; 
$line2 = ; 
while ($line1 ne "" || $line2 ne "") { 
   if ($line1 ne "") { 
     print ($line1); 
     $line1 = ; 
   } 
   if ($line2 ne "") { 
      print ($line2); 
      $line2 = ; 
   } 
}