当你苦恼不知道自己安装那些PERL模块时,请用如下脚本。
-----
#/usr/bin/perl
use strict;
use ExtUtils::Installed;
my $inst = ExtUtils::Installed->new();
my @modules = $inst->modules();
foreach(@modules){
my $ver = $inst->version($_) || "???";
printf("%-12s -- %s\n",$_,$ver);
}
exit;
------
阅读(1788) | 评论(0) | 转发(0) |