Jak znaleźć wszystkie moduły używane w skrypcie Perla i zainstalować je?

Question

Dostałem kilka skryptów Perla do wdrożenia.

Jaki jest najprostszy sposób na znalezienie i zainstalowanie wszystkich modułów używanych przez te skrypty?

EDIT:

Z tego, co można znaleźć tam są warunkowe nie zawiera lub zawiera w evals.

Answer 1

Czy mój Module::Extract::Use pomaga? Jest takie extract_modules program w przykładach katalogu:

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

Można rurę że listy do cpan.

$ examples/extract_modules -l some_program | xargs cpan 

Gdy masz tę listę, która jest tylko pierwszy stopień zależności, można dokonać script distribution który pozwala ludziom używać normalnego CPAN toolchain zainstalować wszystko.

Jeśli jest coś, co nie działa dla ciebie, zmodyfikuj program, aby sobie z tym poradzić. Jeśli uważasz, że byłoby to przydatne dla innych osób, wyślij żądanie ściągnięcia. :)

Answer 2

Cóż to jest bardzo uproszczony sposób Rozwiązałem to.

w powłoce bash:

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

To dało mi plik tylko z nazwy modułów, po jednym na każdej linii.

Potem użył tego

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

powołać cpan do nazwy każdego modułu w pliku. A potem siedział i odpowiadał tak na pytania CPAN, aby zainstalować odpowiednie zależności.

Nie jest ładna, ale tym razem wykonała zadanie.

Answer 3

Miałem nadzieję Module::ScanDeps który dostarcza narzędzia wiersza polecenia scandeps.pl byłyby użyteczne tutaj, ale, ku mojemu przerażeniu, Module::ScanDeps najwyraźniej nie przeznaczony do tego konkretnego celu, jak scandeps.pl albo ignoruje brakujących modułów lub (z -c lub -x) croaks gdy skrypt używa modułu, który nie jest zainstalowany.

Oto quick'n'dirty Perl skrypt, który próbuje wykonać skrypt za pomocą do aż do skutku:

#!/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; 
    } 
} 

Jeśli nie chcesz skrypt do uruchomienia, można uruchomić perl -c $script, przechwytywanie stderr dane wyjściowe tego i analizowanie dla brakujących wiadomości modułu i wywołanie cpan dla każdego takiego modułu znalezionego do perl -c $script wyświetla "Składnia OK". To daje ci również czystszą pętlę. Przyjrzę się temu później.

Można pominąć zależności załadowane w czasie wykonywania przy użyciu tej techniki.

Answer 4

Albo pozwól PAR's pp wykonać pracę za ciebie, zbierając razem wszystko, czego potrzebujesz w jednym pliku wykonywalnym.