Re: Need to delete empty directories.

use File::Find;

my @dirs;
my @search_dirs = qw(. ..);

find(\&wanted, @search_dirs);

sub wanted {
    -d && push @dirs, $File::Find::name
}

# do sm.th. with directories in @dirs
[download]

Comment on Re: Need to delete empty directories. Download Code

Replies are listed 'Best First'.
Re^2: Need to delete empty directories. by sashac88 (Beadle) on Mar 09, 2005 at 13:02 UTC
I can delete empty directory with rmdir. Since if I delete some directory -it's parent directory can become empty-I need to delete it too. Thus what I need is loop of deletions of empty directories. However I want to limit this loop to the maximum deepness. Thanks in advance.	[reply]
Re^3: Need to delete empty directories. by sh1tn (Priest) on Mar 09, 2005 at 13:56 UTC
`use strict; use File::Find; my @topdirs = @ARGV; my @rmdirs; find( sub { -d and push @rmdirs, $File::Find::name }, @topdirs ); rmdir for reverse @rmdirs;` [download]	[reply] [d/l]