Come posso trovare tutti i moduli utilizzati in uno script Perl e installarli?

Question

Sono stati forniti alcuni script Perl da distribuire.

Qual è il modo più semplice per trovare e installare tutti i moduli utilizzati da questi script?

EDIT:

Da quello che posso trovare ci sono include alcuna condizione o include in evals.

Answer 1

Il mio telefono Module::Extract::Use aiuta? C'è un extract_modules program negli esempi directory:

$ examples/extract_modules -l some_program 
File::Spec 
File::Spec::Functions 
strict 
warning 

È possibile reindirizzare tale elenco per cpan.

$ examples/extract_modules -l some_program | xargs cpan 

Una volta che avete tale elenco, che è solo il primo livello delle dipendenze, è possibile effettuare una script distribution che permette alle persone di utilizzare il normale toolchain CPAN per installare tutto.

Se c'è qualcosa che non funziona per te, modifica il programma per gestirlo. Se pensi che sarebbe utile ad altre persone, invia una richiesta di pull. :)

Answer 2

Bene questo è il modo molto semplicistico Ho risolto questo.

In una shell bash:

cat *.pl | grep "^use " | tr ';' ' ' | while read a b c; do echo $b; done | sort -iu > modules.txt 

questo mi ha dato un file con solo i nomi dei moduli, uno per riga.

Ho quindi utilizzato questo

cat modules.txt | while read a; do cpan $a; done 

invocare CPAN a ciascun nome del modulo nel file. E poi si è seduto lì rispondendo sì alle domande di CPAN per installare le dipendenze come appropriato.

Non carino ma questa volta ha fatto il lavoro.

Answer 3

Speravo Module::ScanDeps che fornisce l'utilità della riga di comando scandeps.pl sarebbe utile qui, ma, con mio grande sgomento, Module::ScanDeps è a quanto pare non destinato a tale scopo particolare per quanto scandeps.pl o ignora i moduli mancanti o (con -c o -x) gracchia quando il lo script utilizza un modulo che non è installato.

Ecco uno script Perl quick'n'dirty che cerca di eseguire lo script utilizzando do fino a quando non riesce:

#!/usr/bin/perl 

use strict; 
use warnings; 

use Term::Prompt; 

my ($script) = @ARGV; 

die "Provide script file name on the command line\n" 
    unless defined $script; 

until (do $script) { 
    my $ex = $@; 
    if (my ($file) = $ex =~ /^Can't locate (.+?) in/) { 
     my $module = $file; 
     $module =~ s/\.(\w+)$//; 
     $module = join('::', split '/', $module); 
     print "Attempting to install '$module' via cpan\n"; 
     system(cpan => $module); 
     last unless prompt(y => 'Try Again?', '', 'n'); 
    } 
    else { 
     die $ex; 
    } 
} 

Se non si desidera che lo script da eseguire, è possibile eseguire perl -c $script, cattura stderr emettere quello e analizzare per i messaggi di modulo mancanti e chiamare cpan per ogni modulo trovato fino a perl -c $script uscite "Sintassi OK". Questo ti dà anche un ciclo più pulito. Lo vedrò più tardi.

Si potrebbero perdere le dipendenze caricate in fase di esecuzione utilizzando questa tecnica.

Answer 4

oppure lasciare che lo PAR's pp esegua il lavoro per voi raccogliendo tutto ciò che vi serve in un unico file eseguibile.