Problems with -filetest on readdir results

[atopolc]

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 $_) ;

          }

Update: Thanks merlyn

[merlyn]

 $path/$_

Why are you dividing a path by the contents of $_?

Maybe you wanted:

"$path/$_"

-- Randal L. Schwartz, Perl hacker