perl 模块大规模安装的架构问题

qxt912

公司服务器有几百台，要运行perl.pl程序，需要安装perl模块，想请教一下架构问题。


公司服务器架构：
一台管理机下面有几百台服务器。

1 架构设想

perl.pl  里面调用模块检查安装程序，发现未安装后自行安装

优点：运行perl.pl程序即可安装
缺点：无法统一管理查看模块安装结果，（是否装上）

2 架构设想

在管理服务器上调用模块检查安装程序，统一安装，返回Log到管理机
优点 ：统一管理，可查看模块安装状态
缺点：各服务器向管理机回传log没有好的解决方案。

大家都是怎么统一安装perl模块的，给点建议呀

kk861123

问下是什么系统？
提供一个查看安装模块的方法：

1. perl -MExtUtils::Installed -le "print foreach ExtUtils::Installed->new->modules"
   

复制代码

qxt912

回复 2# kk861123


    操作系统:centos  5.3
                centos 4.8
                Red Hat Enterprise Linux 5

qxt912

回复 2# kk861123


    模块的检查采用的是eval捕捉错误返回的方法

具体如下

#!/usr/bin/perl
use strict;
use warnings;
my @modules;
@modules = qw (
Data:umper
);

for my $mod ( @modules ) {
        print "Checking require modulemod\n";
        my $res = &check_module($mod);
        if ($res){
        print "$mod exist\n";
        next;
        }
        print "$mod is not exist,error1\n"

}

sub check_module {
        my $module = shift;
        eval "use $module";
        return 1 unless $@;
        return 0;


}
}