VPF::как узнать, установлен ли нужный модуль

shootnix

Дата 14.3.2006, 09:51 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 108
Регистрация: 3.9.2005
Где: Казахстан

Репутация: 2
Всего: 2

Ну, в общем, уже и так понятно smile

Нужно проверить с помощью скрипта, установлен ли нужный модуль.

g06

Дата 14.3.2006, 11:03 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 1
Регистрация: 14.3.2006

Репутация: нет
Всего: нет

ну так напиши use Module в eval'e и проверь код возврата...

BlackLFL

Дата 14.3.2006, 11:10 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 263
Регистрация: 15.9.2005
Где: Москва

Репутация: 8
Всего: 12

на примере поиска модуля File::Copy

Можно пройтись циклом по массиву путей @INC

Код


foreach ( @INC ) {
    if ( -e "$_/File/Copy.pm" ) { print "Модуль установлен"; }
}

либо через eval

sharq

Дата 14.3.2006, 12:08 (ссылка)

(нет голосов)

Загрузка ...

Perl Liker

Профиль
Группа: Участник
Сообщений: 841
Регистрация: 13.12.2004
Где: Ростов-на-Дону

Репутация: 23
Всего: 28

shootnix, можно из командной строки, если тебя интересует конкретный модуль:

Код


perl -MTk -e"print 1;"

--------------------

[color=gray]There's More Than One Way To Do It[/color]

shootnix

Дата 14.3.2006, 12:51 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 108
Регистрация: 3.9.2005
Где: Казахстан

Репутация: 2
Всего: 2

Спасибы всем эврибади!

korob2001

Дата 14.3.2006, 14:15 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Комодератор
Сообщений: 2871
Регистрация: 29.12.2002

Репутация: 31
Всего: 61

Вот ещё, как вариант, написал код:

Код


#!/usr/bin/perl
my @rs = ();
my @libs = grep { /^[^\.]/ } @INC;
my $file = shift || "";
while ( my $dir = shift @libs ) {
      local *LIB;
      opendir(LIB, "$dir") or die "Can't open library '$dir': $!\n";
      while (my $file = readdir LIB) {
             next if $file =~ /^\.\.?$/;
             if (-d "$dir/$file") {
                      push(@libs, "$dir/$file");
             } else {
                      push(@rs, "$dir/$file");
             }
      }
}

if ( $file ) {
      open(F, "> $file") or die "Can't open file '$file': $!\n";
      flock(F, 2);
      print F "In library at: " . localtime() . "\n";
      print F "Total " . scalar(@rs) . " files.\n";
      print F "-" x 100, "\n";
      print F join("\n", sort {$a cmp $b} @rs), "\n";
      close(F) or die "Can't close file '$file': $!\n";
} else {
      print join("\n", sort {$a cmp $b} @rs), "\n";
}

Выводит в STDOUT содержимое всех библиотек, кроме текущего каталога. Если вызвать его с параметром (имя файла), то результат будет сохранён в этот файл.

Это сообщение отредактировал(а) korob2001 - 14.3.2006, 15:06

--------------------

"Время проходит", - привыкли говорить вы по неверному пониманию.
"Время стоит - проходите вы".

Phoinix

Дата 16.3.2006, 19:48 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 41
Регистрация: 16.11.2004
Где: Moskau

Репутация: нет
Всего: 2

shootnix,

Готовые решение никто не отменял и, кстати, этот модуль относится к предустановленным...

http://search.cpan.org/~mschwern/ExtUtils-...ls/Installed.pm

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Perl: Общие вопросы \| Следующая тема »