perl脚本来检查是否安装了perl模块 [英] perl script to check if perl modules are installed

问题描述

我希望能够在列表中的每个模块上运行此测试.不确定如何使perl遍历每个项目.

I'd like to be able to run this test on each module in the list. Not sure how to ger perl looping over each item.

use Module::Load;
eval {
  load Image::Magick;
  1;
} or die "you need Module to run this program";

• Bit :: Vector
• 鲤鱼::氏族
• 检查::: ISA
• DBD :: Oracle
• DBI
• Data :: GUID
• Data :: OptList
• Data :: TreeDumper
• Data :: UUID
• Date :: Calc
• Devel :: Size
• ExtUtils :: MakeMaker
• Log :: Dispatch
• Log :: Dispatch :: File :: Rolling
• Log :: Dispatch :: FileRotate
• Log :: Log4perl
• Params :: Util
• Params :: Validate
• 排序::自然地
• Sub :: Exporter
• Sub :: Install
• Sub :: Uplevel
• Sys :: Syslog
• Term :: Size
• Test :: Exception
• Test :: Simple
• Test :: use :: ok
• Tree :: Simple
• Bit::Vector
• Carp::Clan
• Check::ISA
• DBD::Oracle
• DBI
• Data::GUID
• Data::OptList
• Data::TreeDumper
• Data::UUID
• Date::Calc
• Devel::Size
• ExtUtils::MakeMaker
• Log::Dispatch
• Log::Dispatch::File::Rolling
• Log::Dispatch::FileRotate
• Log::Log4perl
• Params::Util
• Params::Validate
• Sort::Naturally
• Sub::Exporter
• Sub::Install
• Sub::Uplevel
• Sys::Syslog
• Term::Size
• Test::Exception
• Test::Simple
• Test::use::ok
• Tree::Simple

推荐答案

尝试一下:

#!/usr/bin/perl 
use 5.010;
use strict;
use warnings;

my @modules = qw(
    Bit::Vector
    Carp::Clan
    Check::ISA
    DBD::Oracle
    DBI
    Tree::Simple
);

for(@modules) {
    eval "use $_";
    if ($@) {
        warn "Not found : $_" if $@;
    } else {
        say "Found : $_";
    }
}

这篇关于perl脚本来检查是否安装了perl模块的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持IT屋！