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

26 марта 2013

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

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 '';
    }
}
Иван Данилин
Автор: Иван Данилин

Практикующий веб-разработчик, специализируюсь на платформе Вордпресс.

ПОДПИСАТЬСЯ

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

Услуги фрилансеров по фиксированной цене — 500 р.