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:
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.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++; } } }
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
If you show me, I'll remember.
if you involve me, I'll understand.
--- Author unknown to me
|
---|
Replies are listed 'Best First'. | |
---|---|
Re^2: Can File:Find be used to find empty dirs?
by PerlPlay (Novice) on Nov 20, 2013 at 22:40 UTC | |
by 2teez (Vicar) on Nov 21, 2013 at 11:48 UTC | |
Re^2: Can File:Find be used to find empty dirs?
by PerlPlay (Novice) on Nov 20, 2013 at 13:26 UTC |
In Section
Seekers of Perl Wisdom