Как проверить наличие установленного модуля perl на сервере?
В коде у меня используется такие либы:
use Time::Local;
use locale;
Ничего не выдают:
rpm -qa|grep perl-Time-Local и
rpm -qa|grep perl-locale
Но Эти либы могли быть установлены через компиляцию а не через rpm.
Где можно посмотреть установлены и работают ли они?
perl
Модератор: Модераторы разделов
-
Onanimous
- Сообщения: 93
- ОС: MacOSX Leopard
Re: perl
вот скрипт
Код: Выделить всё
#!/usr/bin/perl
# Измените на путь к Perl на вашем сервере
###############################################################################
# infoperl.cgi
###############################################################################
# infoPerl version 1.0 Freeware
# Детальная информация по модулям Perl.
# Автор: Вячеслав Максимов (support@top-top.ru)
# =============================================================================
# Новые версии и другие скрипты: http://www.top-top.ru/products/scripts/
# =============================================================================
# Copyright Fortex+ (c) 2002
###############################################################################
use ExtUtils::Installed;
my ($inst) = ExtUtils::Installed->new();
my (@modules) = $inst->modules();
print << "[END]";
Content-type: text/html
<html><head>
<title>infoPerl v1.0 Freeware</title>
<style type="text/css">
BODY {
background-color: #FFFFFF;
color: #000000;
}
.normal {
font-family: Arial Cyr,Arial;
font-size: 12px;
}
.forms {
font-family: MS Sans Serif;
font-size: 10px;
}
.new {
text-align: justify;
text-indent: 0.8em;
font-family: Arial Cyr,Arial;
font-size: 12px;
}
.txthead {
text-align: center;
font-weight: bold;
text-decoration: underline;
font-family: Arial Cyr,Arial;
font-size: 13px;
}
A {
color: #000080;
}
A:hover {
text-decoration: none;
}
</style>
</head>
<body>
<br><p align="center"><strong><font size="4">Детальная информация по модулям Perl</font></strong></p>
<hr width="85%">
[END]
print "<ul><li><p>Версия Perl: $]</p></li>";
for($i=0;$i<scalar(@INC);$i++) {
$outinc.="\"$INC[$i]\"<br>";
}
print "<li><p>Каталоги модулей:<br>$outinc</p></li>";
print "<li><p>Установленные модули:</p>";
print "<table border=1 width=100%>";
print "<tr><td align=center bgcolor=#F0F0F0><font size=2>Название</font></td>";
print "<td align=center bgcolor=#F0F0F0><font size=2>Версия</font></td>";
print "<td align=center bgcolor=#F0F0F0><font size=2>Используемые файлы</font></td></tr>";
for($i=0;$i<scalar(@modules);$i++) {
my $version = $inst->version($modules[$i]) || "???";
my @all_files = $inst->files($modules[$i]);
for($a=0,$outfiles='';$a<scalar(@all_files);$a++) {
$outfiles.="$all_files[$a]<br>";
}
print "<tr><td valign=top><font size=2>$modules[$i]</font></td>";
print "<td valign=top><font size=2>$version</font></td>";
print "<td><font size=2>$outfiles</font></td></tr>";
}
print "</table></li></ul>";
print << "[END]";
<hr width="85%">
<p class="normal" align="center">Используется: <a href="http://www.top-top.ru/products/scripts/">infoPerl v1.0 Freeware</a><br>
Детальная информация по модулям Perl<br>
Copyright Fortex+ © 2002</p>
</body>
</html>
[END]-
sash-kan
- Администратор
- Сообщения: 13939
- Статус: oel ngati kameie
- ОС: GNU
Re: perl
запустить код.(stanson @ Sep 26 2006, в 15:01) писал(а):Где можно посмотреть установлены и работают ли они?
Писать безграмотно - значит посягать на время людей, к которым мы адресуемся, а потому совершенно недопустимо в правильно организованном обществе. © Щерба Л. В., 1957
при сбоях форума см.блог
при сбоях форума см.блог
-
dna21m
- Сообщения: 39
- ОС: Slackware 12.2
Re: perl
Кто-то еще запускает перловый код с форумов???
-
kusok
- Сообщения: 306
- Статус: laid to rest
- ОС: Debian Sid
Re: perl
В /usr/lib/perl<номер версии> зайти и посмотреть.