17 lines
349 B
Perl
17 lines
349 B
Perl
|
|
$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;
|