Re^3: How to tell if a Directory is Empty

After realizing my mistake in perlbug: seekdir/readdir broken on win32 on 5.008009, 5.012002, 5.014001 with some help, new code

sub dirEmpty {
    return !! eval {
        opendir my($d), @_ or die $!;
        my $file ;
        $file = readdir $d for 1..3;
        defined $file;
    };
}
[download]

Comment on Re^3: How to tell if a Directory is Empty Download Code

Replies are listed 'Best First'.
Re^4: How to tell if a Directory is Empty by MarxBro (Initiate) on Feb 20, 2012 at 23:05 UTC
Wondering... Why not something like `return !! <*>` once you are in the path?	[reply] [d/l]
Re^5: How to tell if a Directory is Empty by afoken (Chancellor) on Feb 22, 2012 at 18:52 UTC
`glob`, unlike `readdir`, does not look for "hidden" files unless you explicitly include them in the pattern. And if you do so, you'll find also the standard directory entries `.` and `..`: `/home>cd /tmp/ /tmp>mkdir foo /tmp>cd foo /tmp/foo>touch .hidden /tmp/foo>perl -E 'die "oops" unless !!<>' oops at -e line 1. /tmp/foo>perl -E 'say for <>' /tmp/foo> /tmp/foo>perl -E 'say for <.*>' . .. .hidden /tmp/foo>` [download] Alexander -- Today I will gladly share my knowledge and experience, for there are no sweeter words than "I told you so". ;-)	[reply] [d/l] [select]
Re^6: How to tell if a Directory is Empty by MarxBro (Initiate) on Feb 27, 2012 at 05:42 UTC
Got it. Thanks.	[reply]