Detrail

   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