Select Code to Download

# rmdirsimple.pl
use File::Find qw(finddepth);
...
        or warn "can't unlink " . $name . "$!";
    }
}

/usr/bin/perl rmdirsimple.pl a b

current dir   :/home/k/kh/prlfrg/dat/a
file unlink   :a/a.txt> at rmdirsimple.pl line 20.
...
current dir   :/home/k/kh/prlfrg/dat/b
rmdir attempt :b
ok... at rmdirsimple.pl line 17.

current dir   :C:/cygwin/home/k/kh/prlfrg/dat/a
file unlink   :a/a.txt> at rmdirsimple.pl line 20.
...
current dir   :C:/cygwin/home/k/kh/prlfrg/dat/b
rmdir attempt :b
cannot rmdir b: Permission denied at rmdirsimple.pl line 17.