Annotation of embedaddon/pcre/Detrail, revision 1.1.1.1

1.1       misho       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

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>