Help for this page

Select Code to Download


  1. or download this
    use File::Find;
finddepth sub {(!-d or /^.{1,2}$/)||rmdir($_);
warn $File::Find::name,$! if $! =~ /not empty/},@ARGV;
  2. or download this
    use File::Find;
finddepth sub {(!-d or /^.{1,2}$/);rmdir($_);
warn $File::Find::name,$! if $! =~ /not empty/},@ARGV;