Mega Code Archive

 

Categories / Perl / File

 

Opens two files and copies one into another

#!/usr/local/bin/perl  unless (open(INFILE, "file1")) {  die ("cannot open input file file1\n");  }  unless (open(OUTFILE, ">outfile")) {     die ("cannot open output file outfile\n");  }  $line = <INFILE>;  while ($line ne "") {      print OUTFILE ($line);      $line = <INFILE>;  }