use ExtUtils::Installed;
$installed = ExtUtils::Installed->new();
foreach $module ($installed->modules()){
printf "Module: %s\t\tVersion: %s\n", $module, $installed->version($module);
}
Получаем:
root@indigo:/root/tmp# ./test.pl
Module: Archive::Tar Version: 1.52
Module: Archive::Zip Version: 1.26
Module: Bit::Vector Version: 6.4
Module: CPAN Version: 1.9402
... ......
Комментариев нет:
Отправить комментарий