tratar de utilizar el módulo en Perl y el mensaje de impresión si el módulo no está disponible

Question

que quería ser capaz de hacer esto en Perl (el código de abajo es Python lol)

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

¿Alguien tiene alguna idea de cómo?

Answer 1

TIMTOWTDI:

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

o

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

o

use Module::Load; 

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

puede encontrar en Module::LoadCPAN.

Answer 2

Puede utilizar 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 no tiene instalado el módulo, obtendrá el error "No se puede encontrar en Module.pm @INC (@INC contiene: .. .). " lo cual es comprensible

¿Hay alguna razón en particular por la que desee/necesite un mensaje más específico?

Answer 4

Algo como esto, use Net::SMTP si tiene el módulo instalado, o una cursi sendmail llamada como último recurso.

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

Answer 5

Así es como voy al respecto:

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

Hay muchos módulos para hacer eso; vea la lista de CPAN modules that (can) load other modules. Sin embargo, es un poco arriesgado confiar en un módulo externo (¿y si no está presente?). Bueno, por lo menos, si se basan en Moose, Class::Load se puede utilizar de forma segura, ya que es requisito previo 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.";