Merges two files. : file write « File « Perl

Home
Perl
1.Array
2.CGI
3.Class
4.Data Type
5.Database
6.File
7.GUI
8.Hash
9.Language Basics
10.Network
11.Regular Expression
12.Report
13.Statement
14.String
15.Subroutine
16.System Functions
17.Win32
18.XML
Perl » File » 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: +>
java2s.com  | Contact Us | Privacy Policy
Copyright 2009 - 12 Demo Source and Support. All rights reserved.
All other trademarks are property of their respective owners.