> -----Original Message----- > From: lauri.nikki...@gmail.com > [mailto:lauri.nikki...@gmail.com] On Behalf Of Lauri Nikkinen > Sent: Tuesday, March 03, 2009 12:10 > To: Wagner, David --- Senior Programmer Analyst --- CFS > Cc: Perl Beginners > Subject: Re: Printing directory sizes > > 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 > File::Find is part of the Std Perl Install and shoule be there. You should not have to do anything for installing. If you have any questions and/or problems, please let me know. Thanks. 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
> 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 > > > > > > > > -- To unsubscribe, e-mail: beginners-unsubscr...@perl.org For additional commands, e-mail: beginners-h...@perl.org http://learn.perl.org/
