On Tue, Mar 3, 2009 at 14:59, Lauri Nikkinen <[email protected]> wrote:
snip
> On mac's side I followed Chas's orders, but I can't get any output
snip
> #!/usr/bin/perl
>
> use warnings;
> use strict;
> use File::Find;
>
> my $dir = defined $ARGV[0] ? $ARGV[0] : '.';
> my $size;
>
> find( sub { -f and ( $size += -s _ ) }, $dir );
snip
That is because you aren't outputting anything. Try this:
#!/usr/bin/perl
use warnings;
use strict;
use File::Find;
my $dir = defined $ARGV[0] ? $ARGV[0] : '.';
my $size;
find( sub { -f and ( $size += -s _ ) }, $dir );
print "size is $size\n";
--
Chas. Owens
wonkden.net
The most important skill a programmer can have is the ability to read.
--
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
http://learn.perl.org/
