•Re: Remove eMpTy Directories

Waaaaayy too much coding.

use File::Find;
finddepth sub {
  return if $_ eq "." or $_ eq "..";
  return unless -d;
  rmdir($_) or $! =~ /not empty/ or warn "Cannot rmdir $File::Find::na
+me: $!";
}, @ARGV;
[download]

-- Randal L. Schwartz, Perl hacker
Be sure to read my standard disclaimer if this is a reply.

Comment on •Re: Remove eMpTy Directories Download Code

Replies are listed 'Best First'.
Re: •Re: Remove eMpTy Directories by jdporter (Paladin) on Nov 19, 2002 at 16:17 UTC
`perl -MFile::Find -e 'finddepth( { no_chdir => 1, wanted => sub { rmdi +r } }, @ARGV )'` [download] jdporter ...porque es dificil estar guapo y blanco.	[reply] [d/l]
Re^3: Remove eMpTy Directories by Aristotle (Chancellor) on Nov 20, 2002 at 00:28 UTC
Quite inefficient. `perl -MFile::Find -e 'find( { wanted => sub {}, postprocess => sub { rmdir $File::Find::name } }, @ARGV )'` Makeshifts last the longest.	[reply] [d/l]