VPF::Лузерский вопрос :) - Форум программистов

KVP

Дата 13.9.2006, 23:51 (ссылка)

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

Загрузка ...

Новичок

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

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

Как вывести список установленных модулей Perl на *unix

Это сообщение отредактировал(а) KVP - 13.9.2006, 23:51

nitr

Дата 14.9.2006, 00:17 (ссылка)

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

Загрузка ...

Эксперт

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

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

поработай с фалами smile

где лежат модули? - print "@INC"

Это сообщение отредактировал(а) nitr - 14.9.2006, 00:20

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

I love ArchLinux

Nab

Дата 14.9.2006, 00:20 (ссылка)

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

Загрузка ...

Опытный

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

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

perl -V
покажет много инфы, в том числе все пути где буду по умолчанию искаться модули.
Полный список, даже не скажу как, разве что просканировать все пути. Но учтите, что каждая прога может юзать свои модули которые расположены не в дефолтных путях... так что либо сканирование всего винта, либо ... народ, предлагайте варианты smile

Добавлено @ 00:21
Ну вот опоздал...

Но опять же не думаю что найдутся ВСЕ доступные модули...

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

Чтобы правильно задать вопрос нужно знать больше половины ответа...
Perl Community
FREESCO in Ukraine

nitr

Дата 14.9.2006, 00:26 (ссылка)

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

Загрузка ...

Эксперт

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

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

короче тему закрываем smile

поиск используй... а конкретней
http://forum.vingrad.ru/index.php?showtopic=87338&view=findpost&p=670809
чуть чуть смени код и всё, главное работает холосо

Добавлено @ 00:27
здесь smile

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

I love ArchLinux

nitr

Дата 14.9.2006, 00:55 (ссылка)

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

Загрузка ...

Эксперт

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

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

а вроде и так можно:

Код


#!/usr/bin/perl -w
use ExtUtils::Installed;

my $ei = ExtUtils::Installed->new;
print join("\n", $ei->modules);

Добавлено @ 01:07
ух... ужасающий код smile

)

Код


#!/usr/bin/perl -w
use ExtUtils::Installed;

my $ei = ExtUtils::Installed->new;

foreach my $module (sort keys %$ei) {
    print $module."\n";
    foreach my $packlist (sort keys %{$ei->{$module}}) {
        foreach (sort keys %{$ei->{$module}->{$packlist}}) {
            print "\t$_\n";
        }
    }
}

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

I love ArchLinux

nitr

Дата 14.9.2006, 01:13 (ссылка)

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

Загрузка ...

Эксперт

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

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

это чтобы не ругали smile

Код


#!/usr/bin/perl -w
use ExtUtils::Installed;

my $ei = ExtUtils::Installed->new;

foreach ($ei->modules) {
  print $_.join("\n\t", $ei->files($_))."\n";
}

Добавлено @ 01:15
и версию можно и где лежит и т.д. =)
perldoc ExtUtils::Installed
з.ы.: я сам его не читал =)

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

I love ArchLinux

korob2001

Дата 14.9.2006, 02:52 (ссылка)

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

Загрузка ...

Эксперт

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

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

Модератор: Название темы должно отражать её суть.
Тема закрыта

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

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

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