自問自答，剛好找到方法
http://duramecho.com/ComputerPrograms/DeleteEmptyDirectories/
use File::Find;
finddepth(sub{rmdir},'.')
※ 引述《sixth (12345(6))》之銘言：
: 我有一個目錄，裡面有很多層，
: 在裡面有些是空目錄，有些不是
: 請問如何有效率地把空目錄移除
--
我是PTT的窮光蛋
把把 Show hand
把把 摃龜
現在...繼續籌措賭金
等等...Show hand >"<
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 123.110.158.191
※ 文章網址: https://www.ptt.cc/bbs/Perl/M.1513789527.A.A8E.html