perl脚本来检查是否安装了perl模块

3 perl loops

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

use Module::Load;
eval {
  load Image::Magick;
  1;
} or die "you need Module to run this program";
Run Code Online (Sandbox Code Playgroud)
  • 位::矢量
  • 鲤鱼::氏族
  • 检查:: ISA
  • DBD :: Oracle
  • DBI
  • 数据:: GUID
  • 数据:: OptList
  • 数据:: TreeDumper
  • 数据:: UUID
  • 日期::计算
  • 开发::大小
  • ExtUtils :: MakeMaker
  • 日志::调度
  • 日志::调度::文件::滚动
  • 日志::调度::文件旋转
  • 日志:: Log4perl
  • Params :: Util
  • 参数::验证
  • 排序::自然地
  • 子::出口商
  • Sub ::安装
  • 子类别::上层
  • Sys :: Syslog
  • 期限::尺寸
  • 测试::异常
  • 测试::简单
  • 测试::使用::确定
  • 树::简单

Tot*_*oto 5

尝试一下:

#!/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 : $_";
    }
}
Run Code Online (Sandbox Code Playgroud)