•Re: Remove eMpTy Directories

[merlyn]

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;

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

[jdporter]

perl -MFile::Find -e 'finddepth( { no_chdir => 1, wanted => sub { rmdi
+r } }, @ARGV )'

jdporter
...porque es dificil estar guapo y blanco.

[Aristotle]

Quite inefficient. perl -MFile::Find -e 'find( { wanted => sub {}, postprocess => sub { rmdir $File::Find::name } }, @ARGV )'

Makeshifts last the longest.