glob

rmdir glob "fred/*" ; #删除fred/下面所有的空目录

$ mkdir fred
$ mkdir fred/{a..d}
$ ls fred
a  b  c  d
$ perl -e '
> rmdir glob "fred/*"
> '
$ ls fred
b  c  d

为什么只删了第一个目录呢？

perldoc -f rmdir
    rmdir FILENAME
       rmdir   Deletes the directory specified by FILENAME if that directory
               is empty.  If it succeeds it returns true, otherwise it returns
               false and sets $! (errno).  If FILENAME is omitted, uses $_.

perl -e ' rmdir foreach(glob "fred/*")'