/[pcre]/code/trunk/Detrail
ViewVC logotype

Contents of /code/trunk/Detrail

Parent Directory Parent Directory | Revision Log Revision Log


Revision 97 - (hide annotations) (download)
Mon Mar 5 12:36:47 2007 UTC (7 years, 5 months ago) by ph10
Original Path: code/trunk/maintain/Detrail
File size: 659 byte(s)
Applied Bob and Daniel's patches to convert the build system to automake. Added 
the maintain directory, containing files that are used for maintenance, but are 
not distributed. This is an intermediate step.

1 ph10 97 #!/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

Properties

Name Value
svn:executable *

webmaster@exim.org
ViewVC Help
Powered by ViewVC 1.1.12