http://www.perlmonks.org?node_id=1063489


in reply to Can File:Find be used to find empty dirs?

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.

If you tell me, I'll forget.
If you show me, I'll remember.
if you involve me, I'll understand.
--- Author unknown to me