Xpoint
   [напомнить пароль]

CPAN & Модули

Метки: [без меток]
[удл]
2006-02-08 09:51:05 [обр] Moslem[досье]
Подскажи плиз как узнать какие уже установлены модули для Perl.
OS - Linux.
спустя 3 минуты [обр] Moslem[досье]
Результат команды make и есть установленные модули?
спустя 9 минут [обр] Moslem[досье]
На счет команды make :) лажа! Не то я увидел.
спустя 18 минут [обр] Роман Чемисов(36/350)[досье]
Moslem[досье]
Попробуйте
use ExtUtils::Installed;
$installed = ExtUtils::Installed->new();
foreach $module ($installed->modules()){
    printf "Module: %s\t\tVersion: %s\n", $module, $installed->version($module);
}
спустя 10 минут [обр] Moslem[досье]
Нет Роман..
Стоит наверное использовать cpan а за тем autobundle и энтер :)
Но спасибо Роман за помошь!
спустя 26 минут [обр] Роман Чемисов(36/350)[досье]
Moslem[досье]
Я уже понял, что это не то...
Второй вариант (не мой):
use File::Find;
my (@mod, %done, $dir);
find(\&get, grep { -r and -d } @INC);
@mod = grep(!$done{$_}++, @mod);
foreach $dir (sort { length $b <=> length $a } @INC) {
foreach (@mod) { next if s,^\Q$dir,,; }                             
}                                                                       
print "Content-type: text/html\n\n";
foreach (sort @mod) { s,^/(.*)\.pm$,$1,; s,/,::,g; load_mod($_); }
print "Done! ($#mod modules!)\n\n";
sub get { /^.*\.pm$/ && /$ARGV[0]/i && push @mod, $File::Find::name; }
sub load_mod {
my ($mod) = @_;
print "load $mod : ";
if ( ! eval "use $mod" ) {
print "version  ". ${${mod}.'::VERSION'}."\n";
eval "no $mod";
} else {
warn "!!! couldn't load $mod: $@\n";
}
return;                                                             
}
спустя 53 минуты [обр] arto(81/497)[досье]
  1. for i in $(perl -e 'print join " ",@INC;'); do find $i -iname "*.pm" -print | sed -e "s|^$i/||" -e "s|^[[:digit:].]\\+/||" -e "s|^i386-[a-z-]\\+/||" -e "s|/|::|g" -e "s|\\.pm\$||"; done | sort -u
  2. for i in $(perl -e 'print join " ",@INC;');do grep -hr "^package " $i; done | sed -e "s|^package ||" -e "s|;\$||" | sort -u
спустя 15 минут [обр] Moslem[досье]
Да, кто то не ищет легкие пути :))
Powered by POEM™ Engine Copyright © 2002-2005