source/script/strip_trail_ws.pl

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