Re: Can File:Find be used to find empty dirs?

[2teez]

Hi PerlPlay,
Of course you can still use File::Find modifying your code like so:

use strict;
use warnings;
use File::Find;

my $drive = $ARGV[0];
my @empty;
my $ndirs = 0;

find( \&listing, $drive );

#Do stuff here

foreach my $files (@empty) {
    print "Found empty folder $files\n";
}
print "Found $ndirs folders in total\n";

sub listing {

    return if /^\.{1,}/;

    if (-d) {
        my $number_of_files = grep $_ => glob("$_/*");
        if ( $number_of_files == 0 ) {
            push @empty, $File::Find::name;
            $ndirs++;
        }
    }
}

Though it might not be as effective and as clean as what was perilously mentioned. Need I say, this was not tested on window OS.

[PerlPlay]

I've managed to test your code this morning and it works fine under Windows.

Appreciate your effort.

[2teez]

You are welcome, Sir!!

[PerlPlay]

Thanks I'll give that a go.