diff options
author | Aaron Gyes <me@aaron.gy> | 2016-04-14 22:21:36 -0700 |
---|---|---|
committer | David Adam <zanchey@ucc.gu.uwa.edu.au> | 2016-04-19 11:49:12 +0800 |
commit | 0fd3f5c0ddf830162b66067e536bdbf0975523e5 (patch) | |
tree | a3ee179caef36f2a62452b9325c0ce6b47c90148 /pcre2-10.21/Detrail | |
parent | e7599fd18cba9fde4ed19aae70c10e622d7d2e0e (diff) |
Update to pcre2 10.21
Point build tools at 10.21
Diffstat (limited to 'pcre2-10.21/Detrail')
-rwxr-xr-x | pcre2-10.21/Detrail | 35 |
1 files changed, 35 insertions, 0 deletions
diff --git a/pcre2-10.21/Detrail b/pcre2-10.21/Detrail new file mode 100755 index 00000000..1c5c7e9c --- /dev/null +++ b/pcre2-10.21/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 |