Help for this page

Select Code to Download


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