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 > > > >
