#!/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;
该Perl脚本用于查询已安装的Perl模块及其版本信息。通过调用ExtUtils::Installed模块的方法,此脚本遍历所有安装的Perl模块,并打印出每个模块的名称及对应的版本号。对于未获取到版本的模块,显示为'???'。
656

被折叠的 条评论
为什么被折叠?



