Deal with the \r\n character during file copy : File Copy « File « Perl

1. Perl
2. File
3. File Copy

Deal with the \r\n character during file copy

    

$infile = $ARGV[0];
$outfile = $ARGV[1];

open (INFILEHANDLE, "<$infile") or die ("Cannot open file.");
open (OUTFILEHANDLE, ">$outfile") or die ("Cannot open file.");

binmode OUTFILEHANDLE; 

while (defined($line = <INFILEHANDLE>)) {
    $line =~ s/\n/\r\n/g;
    print OUTFILEHANDLE $line;
}

close INFILEHANDLE;
close OUTFILEHANDLE;

   
    
    
    
  

Related examples in the same category