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

Question

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

Answer 1

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

此代码在您的path(split ":", $ENV{PATH})中的每个目录中查找-f可执行文件()(-x),并打印它找到的文件.你可能想读一下

• 文件::查找
• 分裂
• %ENV
• filetest运算符

另一种不搜索PATHis中目录子目录的替代方法

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