Merges two files. : file write « File « Perl






  1. Perl
  2. File
  3. file write

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 = <INFILE1>; 
$line2 = <INFILE2>; 
while ($line1 ne "" || $line2 ne "") { 
   if ($line1 ne "") { 
     print ($line1); 
     $line1 = <INFILE1>; 
   } 
   if ($line2 ne "") { 
      print ($line2); 
      $line2 = <INFILE2>; 
   } 
}








Related examples in the same category

1.Write array to a file
2.Write data to file
3.Write ten lines of text to a pipe
4.Write unpack data to a file
5.Writes to the standard error file.
6.Save formatted data to a file
7.Save hash value to a file
8.Save new line character to a file
9.Save packed data to a file
10.Print data to a file
11.Copying files
12.File read and write
13.Shuffle a file?
14.Sort a file
15.Creating a file with the numbers 0-9: +>