Модули в perl (определить наличие)

Модератор: Модераторы разделов

Аватара пользователя
agbr
Сообщения: 486
ОС: openSUSE 10.2

Модули в perl

Сообщение agbr »

когда я подключаю пакет пишу что-то типа

Код: Выделить всё

use SomePackage;


если такого в системе не установлено - скрипт вываливается с криром,
мне же нужно что-бы он не вываливался, а продолжал работать, сообщая мне о проблеме ( например установить надо значение переменной какой-нибудь типа $hasnotsomepackage=1 ), а я обещаю не использовать функция из этого пакета во время выполнения.
jabber: agbr@jabber.ru

против проприетарного ПО в GNU/Linux
Спасибо сказали:
Аватара пользователя
madskull
Сообщения: 1019
Статус: Экс-металлюга

Re: Модули в perl

Сообщение madskull »

eval и require

Код: Выделить всё

eval {
    require Bla::Bla;
};
if ( $@ ) {
    print "Оно ругается: $@\n";
}
else {
    print "Модуль есть\n";
}
ArchLinux / IceWM
Спасибо сказали: