Mega Code Archive

 

Categories / Perl / File

 

Deal with the rn 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;