Mega Code Archive

 

Categories / Perl / File

 

Deal with r 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/\r//g;     print OUTFILEHANDLE $line; } close INFILEHANDLE; close OUTFILEHANDLE;