Return to Detrail CVS log

Up to [ELWIX - Embedded LightWeight unIX -] / embedaddon / pcre

8.33

    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