Ok, I typed C:\Perl>ppm query File
to see that there is no File::Find module installed. It seems that ActiveState does not offer it via ppm, am I right? 2009/3/3 Lauri Nikkinen <lauri.nikki...@iki.fi> > Thanks, how can I check if the module File::find is installed on my system? > I can't locate it from the ppm interface. > > -L > > 2009/3/3 Wagner, David --- Senior Programmer Analyst --- CFS < > david.wag...@freight.fedex.com> > > > -----Original Message----- >> > From: lauri.nikki...@gmail.com >> > [mailto:lauri.nikki...@gmail.com] On Behalf Of Lauri Nikkinen >> > Sent: Tuesday, March 03, 2009 11:38 >> > To: Perl Beginners >> > Subject: Printing directory sizes >> > >> > Hi, >> > >> > I'm trying to print directory sizes using script from >> > >> > http://coding.derkeiler.com/Archive/Perl/perl.beginners/2005-0 >> > 8/msg00693.html >> > >> > and when I try it from the cmd.exe >> > >> > C:\Perl>perl Print_directory_sizes.pl "C:/Temp" >> > >> > but I get an error message saying >> > >> > use of uninitialized value.... etc. >> > >> > Where is the problem? I'm using Win XP. >> > >> > ---code--- >> > #!/bin/perl >> > >> > use warnings; >> > use strict; >> > use File::Find::Rule; >> > >> > my $dir = $ARGV[0]; >> > my $size; >> > >> > find( sub { -f and ( $size += -s _ ) }, $dir ); >> > ---code--- >> I took the code and removed the ::Rule and left the other and it >> ran fine, but did not print anything. So I add a print statement for the >> $size and it worked without any error msgs,etc and it gve the right >> values. >> >> What actually happens when you run? Not just the use of uni.. >> but all the output. >> >> Wags ;) >> David R. Wagner >> Senior Programmer Analyst >> FedEx Freight >> 1.719.484.2097 TEL >> 1.719.484.2419 FAX >> 1.408.623.5963 Cell >> http://fedex.com/us >> >> > >> > >
