1 #!/usr/bin/perl 2 3 # This is a script for removing trailing whitespace from lines in files that 4 # are listed on the command line. 5 6 # This subroutine does the work for one file. 7 8 sub detrail { 9 my($file) = $_[0]; 10 my($changed) = 0; 11 open(IN, "$file") || die "Can't open $file for input"; 12 @lines = <IN>; 13 close(IN); 14 foreach (@lines) 15 { 16 if (/\s+\n$/) 17 { 18 s/\s+\n$/\n/; 19 $changed = 1; 20 } 21 } 22 if ($changed) 23 { 24 open(OUT, ">$file") || die "Can't open $file for output"; 25 print OUT @lines; 26 close(OUT); 27 } 28 } 29 30 # This is the main program 31 32 $, = ""; # Output field separator 33 for ($i = 0; $i < @ARGV; $i++) { &detrail($ARGV[$i]); } 34 35 # End 36
