Главная / Блог / Бэкенд

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

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 '';
}
}