Problems with -filetest on readdir results


Think about Loose Coupling
	PerlMonks

Problems with -filetest on readdir results

by atopolc (Pilgrim)

on May 24, 2002 at 03:11 UTC ( [id://168965]=note: print w/replies, xml )

Need Help??

in reply to Problems with -filetest on readdir results

This is a great opportunity to use map especially if you are going to need the path again later in your script. From your code Untested:

#!/usr/bin/perl

$path=".";

opendir (DIR, $path) or die "could not open directory";

@files = map {"$path/$_"}, readdir(DIR); #maps the path into your arra
+y


foreach (@files) {

print  "$_ \n" if (-d $_) ;

          }
[download]

Update: Thanks merlyn

Comment on Problems with -filetest on readdir results Download Code

Replies are listed 'Best First'.
•Re: Problems with -filetest on readdir results by merlyn (Sage) on May 24, 2002 at 03:14 UTC
`$path/$_` Why are you dividing a path by the contents of `$_`? Maybe you wanted: `"$path/$_"` [download] -- Randal L. Schwartz, Perl hacker	[reply] [d/l] [select]

In Section Seekers of Perl Wisdom

Domain Nodelet^?

www.com | www.net | www.org

Node Status^?

node history
Node Type: note [id://168965]
help

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others meditating upon the Monastery: (4)

As of 2024-04-25 05:43 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Today I Learned

Voting Booth^?

No recent polls found