Подтвердить что ты не робот

Как проверить, есть ли у меня модуль Perl перед его использованием?

У меня есть следующий код Perl, который полагается на Term::ReadKey для получения ширины терминала; В моей сборке NetBSD отсутствует этот модуль, поэтому я хочу по умолчанию использовать ширину терминала до 80, когда модуль отсутствует.

Я не могу понять, как условно использовать модуль, зная заранее, доступен ли он. Моя текущая реализация просто завершает работу с сообщением о том, что он не может найти Term::ReadKey, если он отсутствует.

#/usr/pkg/bin/perl -w
# Try loading Term::ReadKey
use Term::ReadKey;
my ($wchar, $hchar, $wpixels, $hpixels) = GetTerminalSize();
my @p=(2,3,5,7,11,13,17,19,23,29,31,37,41,43,47,53,59,61,67,71,73,79,83,89,97);
my $plen=$#p+1;
printf("num |".("%".int(($wchar-5)/$plen)."d") x $plen."\n",@p);

Я использую Perl 5.8.7 на NetBSD и 5.8.8 на CygWin Можете ли вы помочь мне реализовать это в моем script более эффективно?

4b9b3361

ОТВЕТЫ

Ответ 1

Здесь находится решение без костей, которое не требует другого модуля:

my $rc = eval
{
  require Term::ReadKey;
  Term::ReadKey->import();
  1;
};

if($rc)
{
  # Term::ReadKey loaded and imported successfully
  ...
}

Обратите внимание, что все ответы ниже (я надеюсь, что они ниже этого!:-), которые используют eval { use SomeModule }, ошибочны, потому что операторы use оцениваются во время компиляции независимо от того, где они находятся в коде. Поэтому, если SomeModule недоступен, script умрет сразу после компиляции.

(Строка eval оператора use также будет работать (eval 'use SomeModule';), но нет смысла анализировать и компилировать новый код во время выполнения, когда пара require/import делает то же самое, и проверен синтаксисом во время компиляции для загрузки.)

Наконец, обратите внимание, что мое использование eval { ... } и [email protected] здесь кратким для целей этого примера. В реальном коде вы должны использовать что-то вроде Try:: Tiny или, по крайней мере, знать о проблемах, с которыми он сталкивается.

Ответ 2

Проверьте модуль CPAN Module::Load::Conditional. Он будет делать то, что вы хотите.

Ответ 3

Классический ответ (начиная с Perl 4, по крайней мере, задолго до того, как появился "использование" ), был "требовать()" модуля. Это выполняется при запуске script, а не при компиляции, и вы можете проверить успех или неудачу и отреагировать соответствующим образом.

Ответ 4

И если вам нужна определенная версия модуля:

my $GOT_READKEY;
BEGIN {
    eval {
        require Term::ReadKey;
        Term::ReadKey->import();
        $GOT_READKEY = 1 if $Term::ReadKey::VERSION >= 2.30;
    };
}


# elsewhere in the code
if ($GOT_READKEY) {
    # ...
}

Ответ 5

if  (eval {require Term::ReadKey;1;} ne 1) {
# if module can't load
} else {
Term::ReadKey->import();
}

или

if  (eval {require Term::ReadKey;1;}) {
#module loaded
Term::ReadKey->import();
}

Примечание: 1; выполняется только при правильной загрузке require Term::....

Ответ 6

Я думаю, что это не работает при использовании переменных. Пожалуйста, проверьте эту ссылку, в которой объясняется, как ее можно использовать с переменной

$class = 'Foo::Bar';
        require $class;       # $class is not a bareword
    #or
        require "Foo::Bar";   # not a bareword because of the ""

Функция require будет искать файл "Foo:: Bar" в массиве @INC и будет жаловаться на то, что не найдет там "Foo:: Bar". В этом случае вы можете сделать:

 eval "require $class";