Come verificare se è installato un modulo Perl?

Question

Sto scrivendo un piccolo script Perl che dipende da alcuni moduli che potrebbero essere disponibili, quindi durante l'installazione dovrei controllare se c'è tutto lì. Potrei semplicemente scrivere use some::module e vedere se arriva un errore, ma un messaggio breve come "Devi installare alcuni :: module" sarebbe più utile per gli utenti finali.

Potrei anche cercare tutte le directory in @INC, ma dato che è Perl, ci deve essere un modo più semplice.

Answer 1

perl -MSome::Module -e ';' 

Whoops, ho letto male la domanda. Pensavo volessi sapere in un'istanza una tantum, non scoprendola in modo recuperabile. Io uso sempre qualcosa di simile:

sub try_load { 
    my $mod = shift; 

    eval("use $mod"); 

    if ($@) { 
    #print "\$@ = $@\n"; 
    return(0); 
    } else { 
    return(1); 
    } 
} 

Che si utilizza in questo modo:

$module = 'Some::Module'; 
if (try_load($module)) { 
    print "loaded\n"; 
} else { 
    print "not loaded\n"; 
} 

Answer 2

ne dite:

die "Some::Module missing!" unless(eval{require Some::Module}); 

Answer 3

Io uso qualcosa di simile:

BEGIN { 
    my $module_name = shift; # @ARGV 
    our $module_exp = $module_name; 
    eval "use $module_name;"; 
} 

$module_exp =~ s{::}{/}g; 
foreach my $key (grep { m/^$module_exp\./ } keys %INC) { 
    print "$key => $INC{$key}\n"; 
} 

Ma lo uso di più sotto forma di guscio korn unzione:

function wherperl 
{ 
    perl -M$1 <<EX_DOC 
    my \$module = '$1'; 
    \$module =~ s/::/\\//g; 

    for (keys %INC) { 
     next unless m/^\$module\./; 
     print \$_ . ' => ' . \$INC{\$_} . "\n"; 
    } 
EX_DOC 
} 

Answer 4

Come si installa la sceneggiatura? Se si utilizza un file standard Makefile.PL o Build.PL, le dipendenze di elenco sono banali.

Answer 5

Ho un piccolo script che elenca tutti i moduli Perl sul mio sistema;

#!/usr/bin/perl 

use ExtUtils::Installed; 
my $instmod = ExtUtils::Installed->new(); 
foreach my $module ($instmod->modules()) { 
    my $version = $instmod->version($module) || "???"; 
    print "$module -- $version\n"; 
} 

All'interno di quel ciclo foreach si potrebbe voler fare qualcosa come;

my $match; 
if ($module =~ /$match/) { 
    print "Found $match: $module\n"; 
} 

Answer 6

mi piace usare il cpan utility:

% cpan -D YAML 
YAML 
------------------------------------------------------------------------- 
    YAML Ain't Markup Language (tm) 
    A/AD/ADAMK/YAML-0.70.tar.gz 
    /usr/local/perls/perl-5.10.0/lib/site_perl/5.10.0/YAML.pm 
    Installed: 0.68 
    CPAN:  0.70 Not up to date 
    Ingy dot Net (INGY) 
    ingy@cpan.org 

questo può essere un po 'lento in quanto ha per la connessione a un mirror CPAN per andare a prendere alcuni dei dati, ma ho anche un locale Specchio CPAN. :)