Sprawdź listę modułów zainstalowanych w komputerze

Question

Zrobiłem skrypt, aby intymować administratora listę modułów, które należy zainstalować na komputerze.

Próbuję sprawdzić, czy moduł jest zainstalowany pod kodem pod spodem. Najdziwniejsze jest to, że pokazuje nawet zainstalowanego modułu w maszynie jako not installed

#!/usr/bin/perl -w 
    my @module_list =('Smart::Comments','HTML::Parse'); 
    foreach (@module_list) { 
     eval { require "$_" }; 
     if (!($@)) { 
     print "Module Not installed : $_\n"; 
     } 
    } 

Answer 1

Trzeba skorzystać z formularza ciąg eval ponieważ require potrzebuje argumentu gołe słowo pasujące przeciwko dwukrotnie rozdzielonych dwukropkami postaci z nazwa modułu (np. Scalar::Util). (Jeśli to nie jest gołe słowo, to musi być względną ścieżkę, np 'Scalar/Util.pm')

#!/usr/bin/perl 

use strict; 
use warnings; 

my @module_list = ('Scalar::Util', 'flibble'); 

foreach (@module_list) { 
    if (!eval "require $_") { 
     print "Module not installed: $_\n"; 
    } 
} 

Answer 2

Jest moja App::Module::Lister, którą zaprojektowano jako modulino że może działać jako moduł, narzędzie wiersza poleceń, lub skrypt CGI. To prosta rzecz, której potrzebowałem dla przyjaciela, który miał tylko dostęp FTP do serwera WWW.

Daje listę wszystkich elementów w ścieżce wyszukiwania modułów Perla, które zazwyczaj łatwiej znajduję niż sprawdzanie poszczególnych modułów za każdym razem. Kiedy już mam całą listę, po prostu patrzę na listę.

Ty mógł sprawdzić, które można załadować moduł, ale staram się nie podoba, bo nie chcą potencjalnie uruchomić kod modułu, aby zobaczyć, czy jest zainstalowany. Zwykle nie stanowi to problemu.