#!/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编写的简单脚本,该脚本利用ExtUtils::Installed模块来列出已安装的所有Perl模块及其版本。这对于管理和了解Perl环境配置非常有用。
883

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



