I uninstalled ActiveState Perl via Add/Remove Programs and installed it (ActivePerl 5.10.0 Build 1004) again from here
http://www.activestate.com/activeperl/ and I got the same answer from ppm query File::Find. I don't know if it has something to do with the Windows 'cause I'm running Windows XP via Parallels Desktop (as a virtual computer) on my Macbook Pro. I haven't had any difficulties with other programs. - L 2009/3/3 Wagner, David --- Senior Programmer Analyst --- CFS < david.wag...@fedex.com> > > -----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 > > > > > > > > > > > > >
