source:
branches/samba-3.2.x/source/script/strip_trail_ws.pl
| Last change on this file was 133, checked in by , 17 years ago | |
|---|---|
| File size: 271 bytes | |
| Line | |
|---|---|
| 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 |
Note:
See TracBrowser
for help on using the repository browser.
