diff options
author | Oswald Buddenhagen <oswald.buddenhagen@qt.io> | 2017-10-06 11:52:00 +0000 |
---|---|---|
committer | Oswald Buddenhagen <oswald.buddenhagen@qt.io> | 2017-10-06 16:48:38 +0200 |
commit | 50b7967a78f8f7b1b45444577662ba20ed2643c8 (patch) | |
tree | 1486c059593a413b66218e23b6025faa2d8e5011 /8.31/Detrail |
Initial import
Diffstat (limited to '8.31/Detrail')
-rw-r--r-- | 8.31/Detrail | 35 |
1 files changed, 35 insertions, 0 deletions
diff --git a/8.31/Detrail b/8.31/Detrail new file mode 100644 index 0000000..1c5c7e9 --- /dev/null +++ b/8.31/Detrail @@ -0,0 +1,35 @@ +#!/usr/bin/perl + +# This is a script for removing trailing whitespace from lines in files that +# are listed on the command line. + +# This subroutine does the work for one file. + +sub detrail { +my($file) = $_[0]; +my($changed) = 0; +open(IN, "$file") || die "Can't open $file for input"; +@lines = <IN>; +close(IN); +foreach (@lines) + { + if (/\s+\n$/) + { + s/\s+\n$/\n/; + $changed = 1; + } + } +if ($changed) + { + open(OUT, ">$file") || die "Can't open $file for output"; + print OUT @lines; + close(OUT); + } +} + +# This is the main program + +$, = ""; # Output field separator +for ($i = 0; $i < @ARGV; $i++) { &detrail($ARGV[$i]); } + +# End |