vim mod_version.pl
#!/usr/bin/perl
use ExtUtils::Installed;
my ($inst) = ExtUtils::Installed->new();
my (@modules) = $inst->modules();
foreach $mod(@modules)
{
$version = $inst->version($mod);
printf(“%-35s %-15s \n”, $mod , $version);
}
use ExtUtils::Installed;
my ($inst) = ExtUtils::Installed->new();
my (@modules) = $inst->modules();
foreach $mod(@modules)
{
$version = $inst->version($mod);
printf(“%-35s %-15s \n”, $mod , $version);
}
usage –>
perl mod_version.pl mod::ule
No comments:
Post a Comment