Perl - проверка установленных модулей

Версия для печатиОтправить другуPDF version

Perl

Понадобилось узнать, какие модули Perl установлены на удаленном сервере. Для быстрой проверки необходимо выполнить несколько действий.

Проверка в консольном режиме

Создадим скрипт Perl_module_check.pl следующего содержания:

#!/usr/bin/perl

use ExtUtils::Installed;
my $instmod = ExtUtils::Installed->new();
foreach my $module ($instmod->modules())
{ my $version = $instmod->version($module) || "-"; print "$module --> $version \r\n"; }

Запустим скрипт и посмотрим на результаты его работы:

# perl Perl_module_check.pl

BSD::Resource --> 1.2904
Bundle::NetSNMP --> -
Crypt::CBC --> 2.30
Crypt::DES --> 2.05
Crypt::Rijndael --> 1.09
Crypt::SSLeay --> 0.58
DBD::mysql --> 4.019
DBI --> 1.616
Digest::HMAC --> 1.03
Digest::SHA1 --> 2.13
Getopt::Long --> 2.38
Locale::gettext --> 1.05
Net::SNMP --> v6.0.1
Perl --> 5.10.1
RRDp --> 1.4004
RRDs --> 1.4004
Storable --> 2.30
Term::ANSIColor --> 3.01
Test::Manifest --> 1.23
URI --> 1.59
XML::Parser --> 2.41
mod_perl2 --> 2.000005

 

Проверка на удаленном web-сервере

Если необходимо узнать, какие модуля Perl поддерживаются на удаленном веб-сервере и доступа к консоли сервера нету, то необходимо создать скрипт Perl_module_check.cgi следующего содержания:

#!/usr/bin/perl

print "Content-type: text/html\n\n";
print "<html><head><title>Installed Perl Modules</title></head><body><table width=\"300px\" border=1><td><tr><td>Module</td> <td>Version</td>";
use ExtUtils::Installed;
my $instmod = ExtUtils::Installed->new();
foreach my $module ($instmod->modules())
{ my $version = $instmod->version($module) || "-"; print "<tr><td>$module</td> <td>$version</td></tr> \r\n"; }
print "</table></body></html>";

Потом этот скрипт необходимо поместить в родительский каталог сайта (например, используя FTP) и выставить права 755. Также необходимо удостовериться, что даный виртуальный хост настроен  на работу с CGI.

Открываем в окне браузера адресс http://имя_домена_здесь/Perl_module_check.cgi. Если веб-сервер корректно настроен, то в результате имеем примерно такую картину:

Картинки

 

Голосов пока нет

Вставай, Україно!

Литература

Не TCP мое IP!