如何从Perl获取我的路径中的程序列表？

Question

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

Answer 1

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

此代码在路径（split ":", $ENV{PATH}）中的每个目录中查找可执行文件（-f），并打印找到的文件（-x）。您可能想阅读

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

不搜索PATH中目录的子目录的替代方法是

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