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