Perl递归目录

一行代码搞定：

perl -MFile::Find -E "find sub {say $File::Find::dir , '/', $_ }, qq(c:/windows/)"

转载于:https://blog.51cto.com/httpcn/592891