1#!/usr/bin/perl -w 2 3open( INFILE, "$ARGV[0]" ) || die $@; 4open( OUTFILE, ">$ARGV[0].new" ) || die $@; 5 6while ( <INFILE> ) { 7 $_ =~ s/[ \t\r]*$//; 8 print OUTFILE "$_"; 9} 10 11close( INFILE ); 12close( OUTFILE ); 13 14rename( "$ARGV[0].new", "$ARGV[0]" ) || die @_; 15 16exit( 0 ); 17 18 19