Архивы за месяц Август, 2011

Аналог phpinfo() в Perl

  Иногда необходимо быстро узнать список установленных Perl модулей, для этого пригодится простенький скрипт:   #!/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>Module Version»; use ExtUtils::Installed; my $instmod = ExtUtils::Installed->new(); foreach my $module ($instmod->modules()) { my $version = $instmod->version($module) || «-«; print «$module $version \r\n»; } print «</table></body></html>»; Записываем его в файл, […]