print if (-d "./desktop/$_");
[download]

--ZZamboni

Thanks everyone. ZZamboni's suggestion worked perfectly.

Your code works for me, after I made a simple substitution of opendir(TEXTFILES, ".") || die "Couldn't open the text file directory: $!"; instead of trying to open directory "desktop".. You need to change to the "desktop" directory, because you're doing the test on the current directory..
HTH

The full code that worked for me follows:

use Cwd;
print "Current dir is: ", cwd, "\n";

local $_;
opendir(TEXTFILES, "c:\\CA_LIC") || die "Couldn't open the text file d
+irectory: $!";

@data=readdir(TEXTFILES);
foreach (@data) {
print $_, "\n" if(-d "C:\\CA_LIC\\$_ ");
}
closedir(TEXTFILES);
[download]

Ok, ZZamboni, I tried that and it works. I am just trying to get an array with all the subdirectories of the current dir, and this doesn't work:

use Cwd;
print "Current dir is: ", cwd, "\n";

opendir(TEXTFILES, "desktop") || die "Couldn't open the text file dire
+ctory: $!";
@data=readdir(TEXTFILES);
foreach (@data) {
push (@dir) if (-d "./desktop/$_");
}
closedir(TEXTFILES);
print @dir; # This line is just here to make sure it worked, which it 
+currently doesn't.
[download]

Update: Is there a more efficient way to do this? This seems a bit bulky. If someone could show me a better way (and explain it for this newbie) to do this, I'd really appreciate it.

push does not use $_ as an implicit argument, so when you do push(@dir) you are not pushing anything into @dir. You have to do:

push(@dir, $_) if (-d "./desktop/$_");
[download]

Although I would substitute that whole block (the readdir and the foreach) by:

@dir = grep { -d "./desktop/$_" } readdir(TEXTFILES);
[download]

:-)

--ZZamboni

When I didn't do that, die kicked in and gave me your warning.

HTH,

Update Okay, so everyone types faster than I do..:) Another thing you might want to do is

$dir = "c:/windows/desktop";
chdir $dir or (warn "Cannot chdir $dir: $!" and next);
opendir(TEXTFILES, "$dir") || die "Couldn't open the text file directo
+ry
[download]

Granted that is a bit pedestrian, but I like it when it is obvious.

EEjack