perl查看已经安装的模块

use ExtUtils::Installed;my $inst = ExtUtils::Installed->new();my @modules = $inst->modules();foreach (@modules){my $ver = $inst->version($_) || "???";printf( "%-12s --  %s\n", $_, $ver );}

?原文：http://blog.sina.com.cn/s/blog_4af3f0d20100faph.html