remove_trailing_whitespace.pl

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 sub do_dir($);
   7 sub do_file($);
   8
   9 if ($#ARGV >= 0) {
  10 do_dir($ARGV[0]);
  11 }
  12
  13 #do_dir('.');
  14
  15 exit(0);
  16
  17 sub do_dir($) {
  18   my ($dirname) = @_;
  19   my $dh;
  20         opendir $dh, $dirname;
  21
  22   while (my $fname = readdir $dh) {
  23
  24           if ($fname =~ /\.$/ or $fname =~ /^\./) {
  25                   next;
  26     }
  27
  28                 $fname = "$dirname/$fname";
  29                 if (-d $fname) {
  30       do_dir($fname);
  31                 } elsif (-f $fname) {
  32       do_file($fname);
  33                 }
  34         }
  35
  36         closedir $dh;
  37 }
  38
  39 sub do_file($) {
  40   my ($fname) = @_;
  41   print "$fname\n";
  42         my $fh;
  43         {
  44           local $/;
  45                 open $fh, $fname or do {
  46                   print "failed open for reading\n";
  47                         return;
  48                 };
  49
  50                 my $contents = <$fh>; #slurp!
  51                 close $fh;
  52                 #$contents =~ s/[       ]+($)/\n/gm;
  53                 $contents =~ s/\x0d\x0a/\n/gs;
  54                 $contents =~ s/[        ]+($)/$1/gm;
  55 #    print "-----------------\n";
  56 #               print $contents;
  57 #    print "-----------------\n\n";
  58                 open $fh, ">$fname" or do {
  59                   print "failed open for reading\n";
  60                         return;
  61                 };
  62                 print $fh $contents;
  63                 close $fh;
  64         }
  65 }