-d $_ and ! /^\.\.?/
[download]

-d $_ and $_ ne "." and $_ ne ".."
[download]

-- Randal L. Schwartz, Perl hacker

Watch it. That falsely excludes ..foo and .bar. Oops! Maybe you want ...

Ewps. Typo on my part. I meant

        -d $_ and ! /^\.\.?$/
                           ^
[download]

though \z would be safer than $.

-d $_ and ! /^\.\.?$/

No, you meant \z instead of $. $ matches _before_ \n (if there is any). Newline is a valid character in filenames with many filesystems.

- Yes, I reinvent wheels.
- Spam: Visit eurotraQ.

Sometimes a regex is overkill.

!/^\.\.?\z/.

Less readable, but faster and shorter.

- Yes, I reinvent wheels.
- Spam: Visit eurotraQ.

Are you sure it's faster? My gut says it's slower. As well as being more obscure. {grin}

-- Randal L. Schwartz, Perl hacker

Great suggestion (I ++ed it already). One little flaw that catches me all the time: it breaks as soon as you do apply it to any directory but "./"

Easy to fix, though. Just be explicit about what directory you're opening.

my $dir = ".";
opendir(DIR, $dir) or die "$dir: $!";
my @list = grep { -d "$dir/$_" and ! /^\./ } readdir(DIR);
closedir(DIR);
[download]

"All you need is ignorance and confidence; then success is sure."-- Mark Twain