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

I was trying to be clever, so I discovered IO::Dir and seekdir

I wrote this code, and then had a WTF moment

sub dirEmpty {
   my $d = IO::Dir->new( @_ );
   return defined( $d && $d->seek( 2 ) && scalar $d->read );
}
[download]

seekdir is broken on my win32 machine :)

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

Replies are listed 'Best First'.
Re^3: How to tell if a Directory is Empty by Anonymous Monk on Nov 27, 2011 at 10:05 UTC
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]	[reply] [d/l]
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