Как без консоли узнать все доступные модули PERL?

Задался сегодня вопросом, как на виртуальном хостинге не имея доступа к консоли можно узнать все доступные модули PERL.

Конечно, при наличии доступа к консоли сделать это можно буквально одной командой.

perldoc perlmodlib

Но, к сожалению, далеко не все хостеры предоставляют доступ к серверу по SSH. Можно, конечно, обратиться в саппорт и все выяснить, но — это не наш метод! Данный PERL-скрипт позволяет вывести в браузер все доступные на сервере модули PERL.

#!/usr/local/bin/perl
print "Content-type: text/html\n\n";
for my $path (@INC) {
my @list = `ls -R $path/**/*.pm`;
for (@list) {
s/$path\///g;
s/\//::/g;
s/\.pm$//g;
print;
print '';
}
}
Иван Данилин
Автор Иван Данилин

Делаю сайты на Вордпресс с 2008 года, в том числе уникальные инструменты для решения сложных бизнес‑задач.

Добавить комментарий