tools/getFileSizeInDirectoryTree.pl

   1 # Syntax: perl getFileSizeInDirectoryTree.pl [-d] [directory [pathname_regex]]
   2
   3 use strict;
   4 use File::Find;
   5
   6 my $debug = 0;
   7 my $pathnameMustMatchRegex;
   8
   9 # Subroutine called by File::Find.
  10 sub processFile
  11 {
  12     print STDERR "testing [$File::Find::name]..." if $debug;
  13
  14     if (!defined($pathnameMustMatchRegex) || $File::Find::name =~ m/$pathnameMustMatchRegex/)
  15     {
  16         print STDERR "matched, printing.\n" if $debug;
  17
  18         my @fileStat      = stat;
  19         my $formattedName = $File::Find::name;
  20         $formattedName    =~ s!\\!/!g;
  21         print "$fileStat[7] $formattedName\n";
  22     }
  23     else
  24     {
  25         print STDERR "no match, skipping.\n" if $debug;
  26     }
  27 }
  28
  29 # Check for help.
  30 if (defined($ARGV[0]) && $ARGV[0] =~ m/-h/)
  31 {
  32     print "Syntax: getFileSizeInDirectoryTree.pl [directory [pathname_regex]]\n";
  33     print "\tpathname_regex is a Perl-compatible regular expression, matches all if not specified.\n";
  34     exit 0;
  35 }
  36
  37 # Check for debug.
  38 if (defined($ARGV[0]) && $ARGV[0] =~ m/-d/)
  39 {
  40     $debug = 1;
  41     print STDERR "\$debug = 1\n";
  42     shift @ARGV;
  43 }
  44
  45 # Setup directory.
  46 my @directories = ($ARGV[0]);
  47 $directories[0] = '.' if !defined($directories[0]);
  48 print STDERR "directories = [@directories]\n" if $debug;
  49
  50 # Setup regex.
  51 $pathnameMustMatchRegex = $ARGV[1] if defined($ARGV[1]);
  52 $pathnameMustMatchRegex =~ s/[\'\"]//g if defined($pathnameMustMatchRegex);
  53 print STDERR "pathnameMustMatchRegex = [$pathnameMustMatchRegex]\n" if ($debug && defined($pathnameMustMatchRegex));
  54
  55 # Do the find.
  56 File::Find::find(\&processFile, @directories);
  57
  58 # Done.