/[pcre]/code/tags/pcre-8.10/Detrail
ViewVC logotype

Contents of /code/tags/pcre-8.10/Detrail

Parent Directory Parent Directory | Revision Log Revision Log


Revision 549 - (show annotations) (download)
Fri Jun 25 14:43:53 2010 UTC (3 years, 9 months ago) by ph10
File size: 643 byte(s)
Tag release 8.10.

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