Conversion Script in Perl for NT/UNIX

Example:

MAIN:

{

$inputfile = $ARGV[0];

$outputfile = $inputfile . "_" . $$."_tmp";

open(INFILE, "$inputfile"); binmode INFILE;

open(OUTFILE, ">$outputfile"); binmode OUTFILE;

while ($line = <INFILE>) {

$line =~ s/(.*)(\015)(\012)/$1$3/;

print OUTFILE "$line";

}

close (INFILE); close (OUTFILE);

unlink $inputfile;

rename $outputfile, $inputfile;

exit 0;

}

Previous slide

Next slide

Back to first slide

View graphic version