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

Contents of /code/trunk/maintain/Detrail

Parent Directory Parent Directory | Revision Log Revision Log


Revision 97 - (show annotations) (download)
Mon Mar 5 12:36:47 2007 UTC (7 years, 1 month ago) by ph10
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 #!/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