perl脚本
时间：2006-08-27 来源：epingnet
查询目前系统中都安装了哪些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 0;
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 0;
相关阅读 更多 +
