Как я могу получить список программ на моем пути из Perl?

Question

Как вывести список всех доступных команд UNIX из Perl?

Answer 1

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

Этот код ищет в каждом каталоге вашего пути (split ":", $ENV{PATH}) файлы (-f), которые являются исполняемыми (-x), и печатает найденные файлы. Вы можете прочитать о

• File :: Find
• Раскол
• % ENV
• операторы проверки файлов

Альтернативой, которая не ищет подкаталоги каталогов в PATH, является

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