"Fossies" - the Fresh Open Source Software Archive

Member "pcre-8.43/Detrail" (31 Jan 2014, 643 Bytes) of package /linux/misc/pcre-8.43.tar.bz2:


As a special service "Fossies" has tried to format the requested source page into HTML format using (guessed) Perl source code syntax highlighting (style: standard) with prefixed line numbers and code folding option. Alternatively you can here view or download the uninterpreted source code file.

    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