Re: How to tell if a Directory is Empty

use strict;
use warnings;

my $error;
if (!dirEmpty($ARGV[0], $error)) {
    print $error ?
        "$error\n" :
        "Directory contains files.\n";
}
else {
    print "Directory is empty.\n";
}

sub dirEmpty {
    if (!-e $_[0]) {
        $_[1] = 'Directory does not exist.';
        return;
    }
    if (!-d $_[0]) {
        $_[1] = 'Path does not reference a directory.';
        return;
    }
    if (!opendir(DIR, $_[0])) {
        $_[1] = 'Could not open directory.';
        return;
    }
    while ($_ = readdir(DIR)) {
        next if m/^\.\.?$/;
        return;
    }
    return 1;
}
[download]

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

Replies are listed 'Best First'.
Re^2: How to tell if a Directory is Empty by Anonymous Monk on Nov 27, 2011 at 08:28 UTC
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 :)	[reply] [d/l]
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
Re^6: How to tell if a Directory is Empty by MarxBro (Initiate) on Feb 27, 2012 at 05:42 UTC