如何从 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}'