essayer d'utiliser le module en Perl et un message d'impression si le module non disponible

Question

je voulais être en mesure de le faire en Perl (le code ci-dessous est Python lol)

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

Est-ce que quelqu'un a une idée comment?

Answer 1

TIMTOWTDI:

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

ou

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

ou

use Module::Load; 

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

Vous pouvez trouver Module::Load sur CPAN.

Answer 2

Vous pouvez utiliser 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'; 
} 

Answer 3

 
use strict; 
use warnings; 
use Module; 

Si vous ne disposez pas du module installé, vous obtiendrez l'erreur « Impossible de localiser Module.pm dans @INC (@INC contient: .. .). " ce qui est assez compréhensible.

Y a-t-il une raison particulière pour laquelle vous voulez/avez besoin d'un message plus spécifique?

Answer 4

Quelque chose comme ceci, use Net::SMTP si vous avez installé le module, ou une légende sendmail en dernier recours.

my $mailmethod = eval "use Net::SMTP; 1" ? 'perl' : 'sendmail'; 

Answer 5

Voici comment je vais parler:

sub do_optional_thing { 
    init_special_support(); 
    Module::Special::wow(); 
} 

sub init_special_support { 
    # check whether module is already loaded 
    return if defined $INC{'Module/Special'}; 

    eval { 
     require Module::Special; 
     Module::Special->import(); 
    }; 

    croak "Special feature not supported: Module::Special not available" if $@; 
} 

Answer 6

Il existe de nombreux modules pour le faire; voir la liste des CPAN modules that (can) load other modules. Cependant, il est un peu risqué de s'appuyer sur un module externe (que se passe-t-il s'il n'est pas présent?). Eh bien, au moins, si vous comptez sur Moose, Class::Load peut être utilisé en toute sécurité car il est la condition sine qua non de Moose:

#!/usr/bin/env perl 
use strict; 
use utf8; 
use warnings qw(all); 

use Class::Load qw(try_load_class); 

try_load_class('Module') 
    or die "You need module Module to run this program.";