Як отримати список встановлених модулів CPAN?

Окрім спроб

perldoc <module name>

індивідуально для будь-якого модуля CPAN, який захоплюється чи переглядає файлову систему та дивлячись на каталоги, я не уявляю, які модулі ми встановили.

Який найпростіший спосіб просто отримати великий список кожного встановленого модуля CPAN? З командного рядка або іншим чином.

На це дається відповідь у поширених запитаннях про Perl, відповідь на яку можна швидко знайти perldoc -q installed. Коротше кажучи, справа зводиться до використання ExtUtils::Installedчи використання File::Find, варіанти обох з яких вже висвітлювались у цій темі.

Ви також можете знайти розділ поширених запитань "Як мені знайти, які модулі встановлені в моїй системі?" в perlfaq3. Ви можете побачити список усіх відповідей на поширені запитання, переглянувши perlfaq

perldoc perllocal

Редагувати: про це (трохи) більше інформації в розділі поширених запитань про CPAN

perldoc -q installed

заявляє, що cpan -lце зробить трюк, проте це не працює для мене. Інший варіант:

cpan -a

робить хороший список встановлених пакунків і має приємний побічний ефект від їх запису у файл.

Варто зазначити, що perldoc perllocal буде звітувати лише про модулі, встановлені через CPAN. Якщо хтось встановлює модулі вручну, він не знайде їх. Крім того, якщо у вас кілька людей встановлюють модулі, а perllocal.pod знаходиться під контролем джерела, люди можуть неправильно вирішувати конфлікти та пошкоджувати список (наприклад, це траплялося тут на роботі).

На жаль, схоже, що рішення проходить через @INC із File :: Find або чимось подібним. Однак це не просто знаходить модулі, воно також знаходить відповідні модулі у розподілі. Наприклад, він повідомляє TAP :: Harness та TAP :: Parser на додаток до фактичної назви розповсюдження Test :: Harness (за умови, що у вас версія 3 або вище). Ви можете потенційно зіставити їх з іменами розподілу та відкинути ті імена, які не збігаються, але тоді ви можете відкинути локально побудовані та встановлені модулі.

Я вважаю, що робота індексації резервного копіювання Брайана д Фоя повинна мати код для передачі його у .pm-файл, і він намагатиметься зробити висновок про розподіл, але навіть це часом не вдається, оскільки те, що є в пакеті, не обов'язково встановлюється (див. Devel :: Cover :: Inc для прикладу).

$ for M in `perldoc -t perllocal|grep Module |sed -e 's/^.*" //'`; do V=`perldoc -t perllocal|awk "/$M/{y=1;next}y" |grep VERSION |head -n 1`; printf "%30s %s\n" "$M" "$V"; done |sort
              Class::Inspector     *   "VERSION: 1.28"
                    Crypt::CBC     *   "VERSION: 2.33"
               Crypt::Rijndael     *   "VERSION: 1.11"
                    Data::Dump     *   "VERSION: 1.22"
                   DBD::Oracle     *   "VERSION: 1.68"
                           DBI     *   "VERSION: 1.630"
                   Digest::SHA     *   "VERSION: 5.92"
           ExtUtils::MakeMaker     *   "VERSION: 6.84"
                       install     *   "VERSION: 6.84"
               IO::SessionData     *   "VERSION: 1.03"
               IO::Socket::SSL     *   "VERSION: 2.016"
                          JSON     *   "VERSION: 2.90"
                  MIME::Base64     *   "VERSION: 3.14"
                  MIME::Base64     *   "VERSION: 3.14"
                   Mozilla::CA     *   "VERSION: 20141217"
                   Net::SSLeay     *   "VERSION: 1.68"
                        parent     *   "VERSION: 0.228"
                  REST::Client     *   "VERSION: 271"
                    SOAP::Lite     *   "VERSION: 1.08"
                  Task::Weaken     *   "VERSION: 1.04"
                 Term::ReadKey     *   "VERSION: 2.31"
                Test::Manifest     *   "VERSION: 1.23"
                  Test::Simple     *   "VERSION: 1.001002"
                  Text::CSV_XS     *   "VERSION: 1.16"
                     Try::Tiny     *   "VERSION: 0.22"
                   XML::LibXML     *   "VERSION: 2.0108"
         XML::NamespaceSupport     *   "VERSION: 1.11"
                XML::SAX::Base     *   "VERSION: 1.08"

Ви можете спробувати ExtUtils-Installed , але це виглядає лише через .packlists, тому може пропустити модулі, в які люди переносили речі@INC вручну.

Я написав App-Module-Lister для друга, який хотів зробити це як скрипт CGI в обліковому записі веб-хостингу без оболонки. Ви просто берете файл модуля і завантажуєте його як ім'я файлу, яке ваш сервер буде розглядати як сценарій CGI. Він не має залежностей поза Стандартною бібліотекою. Використовуйте його як є або вкрадіть код.

Він виводить список модулів та їх версій:

Краватка :: Цикл 1.15
Краватка :: IxHash 1.21
Краватка :: Переключити 1.07
Краватка :: ToObject 0,03
Час :: CTime 99.062201
Час :: DaysInMonth 99.1117
Час :: Епоха 0,02
Час :: Нечіткий 0,34
Час :: JulianDay 2003.1125
Час :: Дата розбору 2006.0814
Час :: Часовий пояс 2006.0814

Я мав намір додати це як функцію до cpanінструменту, тому зроблю це теж. [Час минає] І тепер у мене є -lперехід cpan. У мене є ще кілька речей, пов’язаних із цим, перш ніж випустити реліз, але це у github . Якщо ви не хочете цього чекати, ви можете просто спробувати -aперемикач, щоб створити автонабір, хоча це робить деякий Pod навколо списку.

Удачі;

Ось сценарій, який зробив би трюк:

use ExtUtils::Installed;

my $inst = ExtUtils::Installed->new();
my @modules = $inst->modules();
foreach $module (@modules){
       print $module ." - ". $inst->version($module). "\n";
}

=head1 ABOUT

This scripts lists installed cpan modules using the ExtUtils modules

=head1 FORMAT

Prints each module in the following format
<name> - <version>

=cut

Я люблю використовувати для цього команду CPAN 'r'. Ви можете потрапити в оболонку CPAN за старим стилем:

sudo perl -MCPAN -e shell

або, в більшості новіших систем, існує команда 'cpan', тому ця команда переведе вас до оболонки:

sudo cpan

(Зазвичай вам потрібно використовувати "sudo", щоб запустити його як root, або використовувати "su -", щоб стати root, перш ніж запускати його, якщо у вас не встановлено cpan, щоб дозволити вам запускати його як звичайний користувач, але встановити як root. Якщо у вас немає root на цій машині, ви все одно можете скористатися оболонкою CPAN, щоб дізнатися цю інформацію, але ви не зможете встановити модулі, і, можливо, вам доведеться пройти трохи налаштування при першому запустіть його.)

Потім, опинившись у оболонці cpan, ви можете використовувати команду 'r', щоб повідомити про всі встановлені модулі та їх версії. Отже, у рядку "cpan>" введіть 'r'. Тут буде перераховано всі встановлені модулі та їх версії. Використовувати "?" щоб отримати ще якусь допомогу.

Ось справді хакерський спосіб зробити це в * nix, ви отримаєте речі, які вам насправді не цікаві (тобто: warnings :: register тощо), але він повинен дати вам список кожного файлу .pm, до якого можна отримати доступ perl.

for my $path (@INC) {
    my @list = `ls -R $path/**/*.pm`;
    for (@list) {
        s/$path\///g;
        s/\//::/g;
        s/\.pm$//g;
        print;
    }
}

perl -MFile::Find=find -MFile::Spec::Functions -Tlwe 'find { wanted => sub { print canonpath $_ if /\.pm\z/ }, no_chdir => 1 }, @INC'

Ви можете отримати список модулів perl, встановлених у вашій системі, за допомогою instmodshкоманди у вашому терміналі. Він запропонує вам три варіанти для покращення результату:

   l            - List all installed modules
   m <module>   - Select a module
   q            - Quit the program

У Linux / Unix я використовую цю просту команду:

perl -e 'print qx/find $_ -name "*.pm"/ foreach ( @INC );' 

Він сканує всю папку @INCта шукає будь-який файл * .pm.

Спробуйте наступну команду

instmodsh

Відповідь можна знайти у списку поширених запитань на Perl .

Вам слід очистити чудову документацію, яка постачається разом з Perl

perldoc perltoc

Спробуйте man perllocalабо perldoc perllocal.

Вчора я написав сценарій perl, щоб зробити саме це. Сценарій повертає список модулів perl, встановлених у @INC, використовуючи '::' як роздільник. Зателефонуйте сценарію за допомогою -

perl perlmod.pl

АБО

perl perlmod.pl <module name> #Case-insensitive(eg. perl perlmod.pl ftp)

На даний момент скрипт пропускає поточний каталог ('.'), Оскільки у мене були проблеми з повторюваними програмними посиланнями, але ви можете включити його, змінивши функцію grep у рядку 17 з

  grep { $_ !~ '^\.$' } @INC

просто,

@INC

Сценарій можна знайти тут.

Ось ще один інструмент командного рядка для переліку всіх встановлених файлів .pm:

Знайдіть встановлені модулі Perl, що відповідають регулярному виразу

• Портативний (використовує лише основні модулі)
• Параметр кешу для швидшого пошуку
• Настроювані параметри відображення

Для прогулянки між деревами каталогів @INC без використання зовнішньої програми, такої як ls (1), можна використовувати File::Find::Rule модулем, який має приємний декларативний інтерфейс.

Крім того, ви хочете відфільтрувати дублікати на випадок, якщо попередні версії Perl містять однакові модулі. Код для цього виглядає так:

#! /usr/bin/perl -l

use strict;
use warnings;
use File::Find::Rule;

my %seen;
for my $path (@INC) {
    for my $file (File::Find::Rule->name('*.pm')->in($path)) {
        my $module = substr($file, length($path)+1);
        $module =~ s/.pm$//;
        $module =~ s{[\\/]}{::}g;
        print $module unless $seen{$module}++;
    }
}

В кінці запуску ви також маєте всі імена модулів як ключі в хеші% побачених. Код може бути адаптований для збереження канонічного імені файлу (вказаного в $ file) як значення ключа, а не кількості побачених разів.

У мене працювало наступне.

$ perldoc perllocal | grep Module
$ perldoc perllocal | grep -E 'VERSION|Module'

Для тих, хто не може встановити perldoc або інші модулі та хоче знати, які модулі доступні (CPAN чи іншим чином), наступне працює для Linux та Mingw32 / 64:

grep -RhIP '^package [A-Z][\w:]+;' `perl -e 'print join " ",@INC'` | sed 's/package //' | sort | uniq

Так, це безладно. Так, це, мабуть, повідомляє більше, ніж ви хочете. Але якщо ви передаєте його у файл, ви можете легко перевірити, скажімо, які інтерфейси DBM присутні:

 grep -RhIP '^package [A-Z][\w:]+;' `perl -e 'print join " ",@INC'` | sed 's/package //' | sort | uniq > modules-installed
 cat modules-installed | grep -i dbm 

AnyDBM_File;
Memoize::AnyDBM_File;
Memoize::NDBM_File;
Memoize::SDBM_File;
WWW::RobotRules::AnyDBM_File;

Ось чому я опинився на цій сторінці (розчарований)

(Я усвідомлюю, що це не відповідає точно на запитання ОП, але я публікую його для тих, хто опинився тут з тієї самої причини, що і я. Ось проблема зі стеком *** - майже неможливо знайти запитання, яке ви запитуючи, навіть коли він існує, але стек *** майже завжди є найпопулярнішим результатом Google!)

Кулінарна книга Perl містить кілька ітерацій сценарію "pmdesc", який робить те, що ви хочете. Шукайте в Google "Perdes Cookbook pmdesc", і ви знайдете статті на інших сайтах із запитаннями , кілька списків коду в мережі, обговорення рішення та навіть деякі уточнення .

Ось одностороння підкладка Perl, яка роздрукує список встановлених модулів:

perl -MExtUtils::Installed -MData::Dumper -e  'my ($inst) = ExtUtils::Installed->new(); print Dumper($inst->modules());'

Просто переконайтеся, що встановлено Data :: Dumper.

cd /the/lib/dir/of/your/perl/installation
perldoc $(find . -name perllocal.pod)

Користувачі Windows просто виконують пошук у Провіднику Windows, щоб знайти його.

Спробуйте "perldoc -l":

$ perldoc -l Log :: Dispatch /usr/local/share/perl/5.26.1/Log/Dispatch.pm

Ось сценарій @ JamesThomasMoon1979, переписаний як однокласний

perl -MExtUtils::Installed -e '$i=ExtUtils::Installed->new(); 
      print "$_ ".$i->version($_)."\n" for $i->modules();'

Коли ви вводите свій скрипт Perl, у вас будуть встановлені всі модулі як .pm файли під папками в @INC, тому невеликий скрипт bash зробить за вас роботу:

#!/bin/bash

echo -e -n "Content-type: text/plain\n\n"

inc=`perl -e '$, = "\n"; print @INC;'`

for d in $inc
do
   find $d -name '*.pm'
done

Для Linux найпростіший спосіб отримати це,

dpkg -l | grep "perl"

Це працює для мене

perl -e 'print join("\n",@INC,"")'

Ось що я роблю: perl -M{cpan_module}
Якщо ви не отримуєте помилок, є велика ймовірність того, що модуль встановлено.