Re: Directory help, AS

[Mark Goland]

> But, it looks like he's just checking that $ARGV[0] is a directory. This
can
> be accomplished with a simple -d test.
...exactly. I used opendir because I find that sometimes flags fail on
windows machines. I think this is documented some where in the stat(),
having to do with NTFS.

Mark
----- Original Message -----
From: "Bob Showalter" <[EMAIL PROTECTED]>
To: "'Steve Few'" <[EMAIL PROTECTED]>; <[EMAIL PROTECTED]>
Sent: Monday, December 30, 2002 11:55 AM
Subject: RE: Directory help, AS


> > -----Original Message-----
> > From: Steve Few [mailto:[EMAIL PROTECTED]]
> > Sent: Monday, December 30, 2002 11:34 AM
> > To: [EMAIL PROTECTED]
> > Subject: Directory help, AS
> >
> >
> > [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'.
>
> That error is because of "use strict". Changing "local $TMP" to "my $TMP",
> or adding "our $TMP" above the unless() will get rid of the error.
>
> But, it looks like he's just checking that $ARGV[0] is a directory. This
can
> be accomplished with a simple -d test.
>
>    die "Expected directory\n" unless @ARGV && -d $ARGV[0];
>
> >
> > 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]
> >
>
> --
> To unsubscribe, e-mail: [EMAIL PROTECTED]
> For additional commands, e-mail: [EMAIL PROTECTED]
>


-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]