发布时间：2014-07-02 20:59:07
#!/usr/bin/perluse strict;use ExtUtils::Installed;my $inst= ExtUtils::Installed->new();my @modules = $inst->modules();for (@modules){ my $ver = $inst->version($_) || "???"; printf("%-12s -- %s\n", $_, $ver);}__END__.........【阅读全文】
