Проверьте и сообщите, что модуль модуля Perl отсутствует

Question

Есть ли способ сообщить о недостающих модулях, используемых в файле Perl, заранее, а не получать как ошибку.

У меня есть что-то вроде use Digest::MD5, use File::DosGlob модулей в моей программе на Perl. Всякий раз, когда пользователи запускают скрипт, они получают ошибку, если в их системе нет определенного модуля. Они не могли понять сообщение об ошибке по умолчанию, указанное @INC. Поэтому я хотел бы четко сказать им, что эти модули необходимо установить для запуска скрипта.

Answer 1

Вы можете создать собственную проверку, используя a BEGIN block. Они запускаются во время компиляции, как и use. Имейте в виду, что use Foo не по существу ничто иное, как это:

BEGIN { 
    require Foo; 
    Foo->import; 
} 

Следующий код заменит все use заявления с одним BEGIN и поместить их внутри eval. Это по существу похоже на механизм try/catch.

Нам нужна строка eval (которая считается злом здесь), потому что require только преобразует из имен пакетов с двоеточием :: к путям, если аргумент a bareword. Но поскольку у нас есть имя в $module, это строка, поэтому нам нужно поместить ее в eval согласно require's docs.

Если эта строка eval не работает, мы die. Это поймано внешним блоком eval и установлено $@. Затем мы можем проверить, содержит ли оно наше имя модуля, и в этом случае мы наивно предполагаем, что сбой был вызван тем, что этот модуль не установлен. Эта проверка может быть немного более сложной.

Мы отслеживаем любые сбои в $fails, и если они были, остановимся.

#!/usr/bin/perl 
use strict; 
use warnings; 

# all our use statements go here 
BEGIN { 
    my $fails; 
    foreach my $module (qw/Digest::MD5 File::DosGlob ASDF/) { 
     eval { 
      eval "require $module" or die; # because $module is not a bareword 
      $module->import; 
     }; 
     if ($@ && $@ =~ /$module/) { 
      warn "You need to install the $module module"; 
      $fails++; 
     } 
    } 
    exit if $fails; 
} 

# ... 

Выше я включил ASDF, что у меня нет, поэтому при запуске он будет говорить

Вам необходимо установить модуль ASDF на /home/code/scratch.pl линии 1335.

Возможно, вы захотите сделать это сообщение более подробным. Если ваши пользователи не могут понять сообщение об ошибке по умолчанию, которое Perl дает, когда он не может найти модуль, возможно, было бы разумно включить руководство по установке материалов прямо там.

Обратите внимание, что оба модуля, которые вы указали, были включены в Perl для a while (читать: с марта 2002 года). Итак, почему вы хотите сделать это для этих модулей?

$ corelist Digest::MD5 

Data for 2014-09-14 
Digest::MD5 was first released with perl v5.7.3 

$ corelist File::DosGlob 

Data for 2014-09-14 
File::DosGlob was first released with perl 5.00405 

---

Лучше всего было бы отправить вашу программу в качестве распределения, который может быть установлен, и включают в Makefile или cpanfile или что-то подобное, в котором перечислены зависимости. Существует руководство в perlnewmod о том, как запустить новый модуль. Вы не хотите загружать в CPAN, очевидно, но основы одинаковы.

При этом ваши пользователи будут автоматически устанавливать все зависимости.

Answer 2

В вашем вопросе не совсем ясно, что означает «заранее». Чтобы проверить синтаксис Perl программы, является правильным и непосредственно включены модули разрешимы, используйте

perl -c <perl-program.pl> 

Это проверяет синтаксис файла и гарантирует, что любые модули use дней вашего коду существуют. Однако он не проводит транзитного контроля всего дерева зависимостей, только те, которые указаны в perl-program.pl.

Answer 3

Вы можете использовать Devel::Modlist, он перечислит весь необходимый модуль для вашей программы.

perl -d:Modlist test.pl 

Там еще один модуль Module::ScanDeps, который поставляется с утилитой scandeps.pl которые вы можете использовать на вашем сценарии как:

scandeps.pl test.pl 

Обратите внимание, что sanity checking your Perl code using perl -c is dangerous, так тщательно использовать.