有两种方法：
1、命令行输入perldoc perllocal |grep DBI -i
2、
#!/usr/bin/perl
use strict;
use ExtUtils::Installed;
my $inst = ExtUtils::Installed->new();
my @modules = $inst->modules();
foreach (@modules) {
my $ver = $inst->version($_) || "???";
printf("%-22s -Version- %-22s\n", $_, $ver);
}
exit;
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024