[activeperl 5.6.1 NT]
Folks.
I have an 'error' question about lexical scoping.
This is a followup to the Mark Goland's reply to help someone. I
have a question about an error I'm not familiar with using his
{opendir local} statement. After I run the below on my NT box, AS
build 622, I get:
'...Global symbol "$TMP" requires explicit package name at
opendir_.pl at line 13'.
Thanks!
Steve Few
NC DENR
Raleigh, NC
[EMAIL PROTECTED]
##code below ##
#!/usr/bin/perl -w
use warnings;
use strict;
# Steve Few, directory browsing
# Re: Directory and its sub-directory disk usage: Windows '98
# thanks to -> Mark Goland <[EMAIL PROTECTED]>
# Sun, 29 Dec 2002 21:59:41 -0500
#
my $Size;
my @FILES;
unless(opendir local $TMP,$ARGV[0] ){
print "-------------invalid directory-------------\n";
print "USAGE:\n\t\t$0 directory to parse";
exit 1;
}
chomp (@FILES=`dir /s /b $ARGV[0]`);
for ( @FILES ){
( $Size+= (stat $_)[7] );
}
print "TOTAL SIZE: $Size bytes \n";
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
