尝试在Perl中使用Module并在模块不可用时打印消息

Question

我希望能够在Perl中执行此操作(下面的代码是Python lol)

try:
  import Module
except:
  print "You need module Module to run this program."

有谁有任何想法如何？

Answer 1

TIMTOWTDI:

eval "use Module; 1" or die "you need Module to run this program".

要么

require Module or die "you need Module to run this program";
Module->import;

要么

use Module::Load;

eval { load Module; 1 } or die "you need Module to run this program";

您可以在CPAN上找到Module :: Load.

Answer 2

您可以使用Module :: Load :: Conditional

use Module::Load::Conditional qw[can_load check_install requires];


my $use_list = {
    CPANPLUS     => 0.05,
    LWP          => 5.60,
    'Test::More' => undef,
};

if(can_load( modules => $use_list )) 
{
   print 'all modules loaded successfully';
} 
else 
{
   print 'failed to load required modules';
}