如何從Perl獲取我的路徑中的程序列表？

Question

如何從Perl列出所有可用的UNIX命令？

Answer 1

perl -MFile::Find -le 'find sub {print if -f and -x _}, split ":", $ENV{PATH}' 

此代碼看起來在每個目錄在你的路徑（split ":", $ENV{PATH}）爲可執行（-x）文件（-f），並打印它找到的人。你可能想了解

• File::Find
• split
• %ENV
• filetest operators

不搜索目錄的子目錄中PATH另一種方法是

perl -le '-f and -x _ and print for map { glob "$_/*" } split ":", $ENV{PATH}'