Làm cách nào để kiểm tra xem mô-đun Perl đã được cài đặt chưa?

Question

Tôi đang viết một tập lệnh Perl nhỏ phụ thuộc vào một số mô-đun có thể có sẵn, vì vậy trong khi cài đặt, tôi sẽ phải kiểm tra xem mọi thứ có ở đó không. Tôi chỉ có thể viết use some::module và xem nếu có lỗi xảy ra, nhưng một thông báo ngắn như "Bạn cần cài đặt một số :: mô-đun" sẽ hữu ích hơn cho người dùng cuối.

Tôi cũng chỉ có thể tìm kiếm mọi thư mục trong @INC, nhưng vì đó là Perl, nên phải có cách dễ dàng hơn.

Answer 1

perl -MSome::Module -e ';' 

Rất tiếc, đã đọc câu hỏi. Tôi nghĩ rằng bạn muốn biết trong một trường hợp một lần, không phát hiện ra nó một cách có thể phục hồi. Tôi luôn luôn sử dụng một cái gì đó như thế này:

sub try_load { 
    my $mod = shift; 

    eval("use $mod"); 

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

nào bạn sử dụng như thế này:

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

Answer 2

Làm thế nào về:

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

Answer 3

tôi sử dụng một cái gì đó như thế này:

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"; 
} 

Nhưng tôi sử dụng nó nhiều hơn dưới dạng một vỏ korn f unction:

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

Bạn cài đặt tập lệnh của mình như thế nào? Nếu bạn đang sử dụng một tiêu chuẩn Makefile.PL hoặc Build.PL, liệt kê các phụ thuộc là tầm thường.

Answer 5

Tôi có một tập lệnh nhỏ liệt kê tất cả các mô-đun Perl trên hệ thống của tôi;

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

Bên trong vòng lặp foreach bạn có thể muốn làm một số việc như;

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

Answer 6

Tôi thích sử dụng các cpan tiện ích:

% 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 

Đây có thể là một chút chậm vì nó có để kết nối với một gương CPAN để lấy một số dữ liệu, nhưng tôi cũng có một địa phương Gương CPAN. :)