blocks|key|1749235|text|这个问题在Perl常见问题解答中得到了回答，这个答案可以用perldoc+-q+installed很快找到。简而言之，它归结为使用ExtUtils::Installed或使用File::Find，这两种方法的变体在本主题之前已经介绍过了。|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|1749236|您还可以在perlfaq3中找到常见问题解答条目"How+do+I+find+which+modules+are+installed+on+my+system?"。您可以通过在perlfaq中查找来查看所有常见问题解答的列表|1749237|entityMap|0|LINK|mutability|MUTABLE|url|http://perldoc.perl.org/perlfaq3.html#How-do-I-find-which-modules-are-installed-on-my-system%253f|1|http://perldoc.perl.org/perlfaq.html^0|T|K|1T|J|2F|A|0|O|1L|0|2G|7|1|0^^$0|@$1|2|3|4|5|6|7|R|8|@$9|S|A|T|B|C]|$9|U|A|V|B|C]|$9|W|A|X|B|C]]|D|@]|E|$]]|$1|F|3|G|5|6|7|Y|8|@]|D|@$9|Z|A|10|1|11]|$9|12|A|13|1|14]]|E|$]]|$1|H|3|-4|5|6|7|15|8|@]|D|@]|E|$]]]|I|$J|$5|K|L|M|E|$N|O]]|P|$5|K|L|M|E|$N|Q]]]]

This is answered in the Perl FAQ, the answer which can be quickly found with <code>perldoc -q installed</code>. In short, it comes down to using <code>ExtUtils::Installed</code> or using <code>File::Find</code>, variants of both of which have been covered previously in this thread.

You can also find the FAQ entry <a href="http://perldoc.perl.org/perlfaq3.html#How-do-I-find-which-modules-are-installed-on-my-system%3f" rel="noreferrer">"How do I find which modules are installed on my system?"</a> in perlfaq3. You can see a list of all FAQ answers by looking in <a href="http://perldoc.perl.org/perlfaq.html" rel="noreferrer">perlfaq</a>

blocks|key|1533987|text|perldoc+perllocal|type|code-block|depth|inlineStyleRanges|entityRanges|data|syntax|javascript|1533988|编辑:在CPAN+FAQ中有关于它的(一点点)更多信息|unstyled|offset|length|1533989|entityMap|0|LINK|mutability|MUTABLE|url|http://www.cpan.org/misc/cpan-faq.html#How_installed_modules^0|0|4|8|0|0^^$0|@$1|2|3|4|5|6|7|Q|8|@]|9|@]|A|$B|C]]|$1|D|3|E|5|F|7|R|8|@]|9|@$G|S|H|T|1|U]]|A|$]]|$1|I|3|-4|5|F|7|V|8|@]|9|@]|A|$]]]|J|$K|$5|L|M|N|A|$O|P]]]]

<pre><code>perldoc perllocal
</code></pre>

Edit: There's a (little) more info about it in the <a href="http://www.cpan.org/misc/cpan-faq.html#How_installed_modules" rel="noreferrer">CPAN FAQ</a>

blocks|key|1534685|text|perldoc+-q+installed|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|1534686|声称cpan+-l可以做到这一点，但是它对我不起作用。另一种选择：|1534687|cpan+-a|1534688|确实列出了一个很好的已安装包列表，并且有一个很好的副作用，就是将它们写到一个文件中。|1534689|entityMap^0|0|K|0|2|7|0|0|7|0|0^^$0|@$1|2|3|4|5|6|7|N|8|@$9|O|A|P|B|C]]|D|@]|E|$]]|$1|F|3|G|5|6|7|Q|8|@$9|R|A|S|B|C]]|D|@]|E|$]]|$1|H|3|I|5|6|7|T|8|@$9|U|A|V|B|C]]|D|@]|E|$]]|$1|J|3|K|5|6|7|W|8|@]|D|@]|E|$]]|$1|L|3|-4|5|6|7|X|8|@]|D|@]|E|$]]]|M|$]]

<code>perldoc -q installed</code>

claims that <code>cpan -l</code> will do the trick, however it's not working for me. The other option:

<code>cpan -a</code>

does spit out a nice list of installed packages and has the nice side effect of writing them to a file.

blocks|key|1749090|text|值得注意的是，perldoc+perllocal将只报告通过CPAN安装的模块。如果有人手动安装模块，它将找不到它们。此外，如果有多个人在安装模块，并且perllocal.pod处于源代码控制之下，人们可能会不正确地解决冲突并损坏列表(例如，在工作中就发生了这种情况)。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1749091|遗憾的是，解决方案似乎是使用File::Find或类似的东西遍历@INC。然而，这不仅仅是查找模块，它还可以查找发行版中的相关模块。例如，它将报告TAP::Harness和TAP::Parser，以及Test::Harness的实际分发名称(假设您有版本3或更高版本)。您可能会将它们与发行版名称进行匹配，并丢弃那些不匹配的名称，但随后您可能会丢弃本地构建和安装的模块。|1749092|我相信brian+d+foy的backpan索引工作应该有代码将其提交到.pm文件中，它会尝试推断分发版本，但即使这样也会失败，因为软件包中的内容不一定是安装的(请参阅Devel::Cover::Inc作为示例)。|1749093|entityMap^0|0|0|0^^$0|@$1|2|3|4|5|6|7|H|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|I|8|@]|9|@]|A|$]]|$1|D|3|E|5|6|7|J|8|@]|9|@]|A|$]]|$1|F|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|G|$]]

It's worth noting that perldoc perllocal will only report on modules installed via CPAN. If someone installs modules manually, it won't find them. Also, if you have multiple people installing modules and the perllocal.pod is under source control, people might resolve conflicts incorrectly and corrupt the list (this has happened here at work, for example).

Regrettably, the solution appears to be walking through @INC with File::Find or something similar. However, that doesn't just find the modules, it also finds related modules in a distribution. For example, it would report TAP::Harness and TAP::Parser in addition to the actual distribution name of Test::Harness (assuming you have version 3 or above). You could potentially match them up with distribution names and discard those names which don't match, but then you might be discarding locally built and installed modules.

I believe brian d foy's backpan indexing work is supposed to have code to hand it at .pm file and it will attempt to infer the distribution, but even this fails at times because what's in a package is not necessarily installed (see Devel::Cover::Inc for an example).

blocks|key|1534880|text|$+for+M+in+`perldoc+-t+perllocal%7Cgrep+Module+%7Csed+-e+'s/%5E.*"+//'`;+do+V=`perldoc+-t+perllocal%7Cawk+"/$M/{y=1;next}y"+%7Cgrep+VERSION+%7Chead+-n+1`;+printf+"%2530s+%25s\n"+"$M"+"$V";+done+%7Csort
++++++++++++++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"|type|code-block|depth|inlineStyleRanges|entityRanges|data|syntax|javascript|1534881|unstyled|entityMap^0|0^^$0|@$1|2|3|4|5|6|7|G|8|@]|9|@]|A|$B|C]]|$1|D|3|-4|5|E|7|H|8|@]|9|@]|A|$]]]|F|$]]

<pre><code>$ 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"
</code></pre>

blocks|key|1749421|text|下面是一个可以做到这一点的脚本：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1749422|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|code-block|syntax|javascript|1749423|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

Here a script which would do the trick:

<pre><code>use ExtUtils::Installed;

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

=head1 ABOUT

This scripts lists installed cpan modules using the ExtUtils modules

=head1 FORMAT

Prints each module in the following format
&lt;name&gt; - &lt;version&gt;

=cut
</code></pre>

blocks|key|1534086|text|为此，我喜欢使用CPAN+'r‘命令。您可以使用旧风格进入CPAN+shell：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1534087|sudo+perl+-MCPAN+-e+shell|code-block|syntax|javascript|1534088|或者，在大多数较新的系统上，有一个'cpan‘命令，所以这个命令将把您带到shell：|1534089|sudo+cpan|1534090|(您通常必须使用'sudo‘以根用户身份运行它，或者在运行它之前使用'su+-’成为根用户，除非您将cpan设置为允许您以普通用户身份运行它，但以根用户身份安装它。如果您在这台机器上没有root，您仍然可以使用CPAN+shell来查找此信息，但是您将无法安装模块，并且您可能需要在第一次运行它时进行一些设置。)|1534091|然后，一旦进入cpan+shell，就可以使用'r‘命令报告所有已安装的模块及其版本。因此，在"cpan>“提示符下键入”r“。这将列出所有已安装的模块及其版本。使用'?‘去寻求更多的帮助。|1534092|entityMap^0|0|0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|Q|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|R|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|S|8|@]|9|@]|A|$]]|$1|I|3|J|5|D|7|T|8|@]|9|@]|A|$E|F]]|$1|K|3|L|5|6|7|U|8|@]|9|@]|A|$]]|$1|M|3|N|5|6|7|V|8|@]|9|@]|A|$]]|$1|O|3|-4|5|6|7|W|8|@]|9|@]|A|$]]]|P|$]]

I like to use the CPAN 'r' command for this. You can get into the CPAN shell with the old style:

<pre><code>sudo perl -MCPAN -e shell
</code></pre>

or, on most newer systems, there is a 'cpan' command, so this command will get you to the shell:

<pre><code>sudo cpan
</code></pre>

(You typically have to use 'sudo' to run it as root, or use 'su -' to become root before you run it, unless you have cpan set up to let you run it as a normal user, but install as root. If you don't have root on this machine, you can still use the CPAN shell to find out this information, but you won't be able to install modules, and you may have to go through a bit of setup the first time you run it.)

Then, once you're in the cpan shell, you can use the 'r' command to report all installed modules and their versions. So, at the "cpan>" prompt, type 'r'. This will list all installed modules and their versions. Use '?' to get some more help.

blocks|key|1749571|text|perl+-MFile::Find=find+-MFile::Spec::Functions+-Tlwe+'find+{+wanted+=>+sub+{+print+canonpath+$_+if+/\.pm\z/+},+no_chdir+=>+1+},+@INC'|type|code-block|depth|inlineStyleRanges|entityRanges|data|syntax|javascript|1749572|unstyled|entityMap^0|0^^$0|@$1|2|3|4|5|6|7|G|8|@]|9|@]|A|$B|C]]|$1|D|3|-4|5|E|7|H|8|@]|9|@]|A|$]]]|F|$]]

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

blocks|key|1749728|text|您可以使用instmodsh命令获取系统中安装的perl模块的列表，在您的terminal.It中会询问您三个选项，以增强输出效果：|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|1749729|+++l++++++++++++-+List+all+installed+modules
+++m+<module>+++-+Select+a+module
+++q++++++++++++-+Quit+the+program|code-block|syntax|javascript|1749730|entityMap^0|5|9|0|0^^$0|@$1|2|3|4|5|6|7|M|8|@$9|N|A|O|B|C]]|D|@]|E|$]]|$1|F|3|G|5|H|7|P|8|@]|D|@]|E|$I|J]]|$1|K|3|-4|5|6|7|Q|8|@]|D|@]|E|$]]]|L|$]]

You can get list of perl modules installed in you system by using <code>instmodsh</code> command in your terminal.It will ask you three option in order to enhance the output they are: 

<pre><code> l - List all installed modules
 m &lt;module&gt; - Select a module
 q - Quit the program
</code></pre>

blocks|key|1535015|text|在Linux/Unix上，我使用这个简单的命令：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1535016|perl+-e+'print+qx/find+$_+-name+"*.pm"/+foreach+(+@INC+);'+|code-block|syntax|javascript|1535017|它扫描@INC中的所有文件夹并查找任何*.pm文件。|offset|length|style|CODE|1535018|entityMap^0|0|0|3|4|0^^$0|@$1|2|3|4|5|6|7|O|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|P|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|Q|8|@$I|R|J|S|K|L]]|9|@]|A|$]]|$1|M|3|-4|5|6|7|T|8|@]|9|@]|A|$]]]|N|$]]

On Linux/Unix I use this simple command:

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

It scans all folder in <code>@INC</code> and looks for any *.pm file.

blocks|key|1534625|text|尝试执行以下命令|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1534626|instmodsh|1534627|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|F|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|G|8|@]|9|@]|A|$]]|$1|D|3|-4|5|6|7|H|8|@]|9|@]|A|$]]]|E|$]]

Try the following command

instmodsh

blocks|key|1750057|text|所有那些不能安装perldoc或其他模块，并想知道哪些模块可用(CPAN或其他)的人，以下代码适用于linux和Mingw32/64：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1750058|grep+-RhIP+'%5Epackage+[A-Z][\w:]%2B;'+`perl+-e+'print+join+"+",@INC'`+%7C+sed+'s/package+//'+%7C+sort+%7C+uniq|code-block|syntax|javascript|1750059|是的，很乱。是的，它可能会报告比您想要的更多。但是，如果您将其通过管道传输到一个文件中，您可以很容易地检查，比如说，存在哪些dbm接口：|1750060|+grep+-RhIP+'%5Epackage+[A-Z][\w:]%2B;'+`perl+-e+'print+join+"+",@INC'`+%7C+sed+'s/package+//'+%7C+sort+%7C+uniq+>+modules-installed
+cat+modules-installed+%7C+grep+-i+dbm+

AnyDBM_File;
Memoize::AnyDBM_File;
Memoize::NDBM_File;
Memoize::SDBM_File;
WWW::RobotRules::AnyDBM_File;|1750061|这就是为什么我最后出现在这个页面上(失望)|1750062|(我意识到这并没有准确地回答OP的问题，但我会把它发布给任何出于与我相同的原因而来到这里的人。这就是堆栈的问题*几乎不可能找到你所问的问题，即使它存在，但堆栈*几乎总是谷歌的头号热门！)|1750063|entityMap^0|0|0|0|0|0|0^^$0|@$1|2|3|4|5|6|7|Q|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|R|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|S|8|@]|9|@]|A|$]]|$1|I|3|J|5|D|7|T|8|@]|9|@]|A|$E|F]]|$1|K|3|L|5|6|7|U|8|@]|9|@]|A|$]]|$1|M|3|N|5|6|7|V|8|@]|9|@]|A|$]]|$1|O|3|-4|5|6|7|W|8|@]|9|@]|A|$]]]|P|$]]

All those who can't install perldoc, or other modules, and want to know what modules are available (CPAN or otherwise), the following works for linux and Mingw32/64:

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

Yes, it's messy. Yes, it probably reports more than you want. But if you pipe it into a file, you can easily check for, say, which dbm interfaces are present:

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

AnyDBM_File;
Memoize::AnyDBM_File;
Memoize::NDBM_File;
Memoize::SDBM_File;
WWW::RobotRules::AnyDBM_File;
</code></pre>

Which is why I ended up on this page (disappointed)

(I realise this doesn't answer the OP's question exactly, but I'm posting it for anybody who ended up here for the same reason I did. That's the problem with stack*** it's almost imposisble to find the question you're asking, even when it exists, yet stack*** is nearly always google's top hit!)

blocks|key|1749296|text|答案可以在Perl+FAQ+list中找到。|type|unstyled|depth|inlineStyleRanges|entityRanges|offset|length|data|1749297|您应该浏览一下Perl附带的优秀文档。|1749298|perldoc+perltoc|code-block|syntax|javascript|1749299|entityMap|0|LINK|mutability|MUTABLE|url|http://perldoc.perl.org/perlfaq3.html#How-do-I-find-which-modules-are-installed-on-my-system%253f^0|5|D|0|0|0|0^^$0|@$1|2|3|4|5|6|7|S|8|@]|9|@$A|T|B|U|1|V]]|C|$]]|$1|D|3|E|5|6|7|W|8|@]|9|@]|C|$]]|$1|F|3|G|5|H|7|X|8|@]|9|@]|C|$I|J]]|$1|K|3|-4|5|6|7|Y|8|@]|9|@]|C|$]]]|L|$M|$5|N|O|P|C|$Q|R]]]]

The answer can be found in the <a href="http://perldoc.perl.org/perlfaq3.html#How-do-I-find-which-modules-are-installed-on-my-system%3f" rel="nofollow noreferrer">Perl FAQ list</a>.

You should skim the excellent documentation that comes with Perl

<pre><code>perldoc perltoc
</code></pre>

blocks|key|1534439|text|尝试使用man+perllocal或perldoc+perllocal。|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|1534440|entityMap^0|4|D|I|H|0^^$0|@$1|2|3|4|5|6|7|H|8|@$9|I|A|J|B|C]|$9|K|A|L|B|C]]|D|@]|E|$]]|$1|F|3|-4|5|6|7|M|8|@]|D|@]|E|$]]]|G|$]]

Try <code>man perllocal</code> or <code>perldoc perllocal</code>.

blocks|key|1750077|text|这是一个由@JamesThomasMoon1979编写的脚本，它被重写为一行程序|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1750078|perl+-MExtUtils::Installed+-e+'$i=ExtUtils::Installed->new();+
++++++print+"$_+".$i->version($_)."\n"+for+$i->modules();'|code-block|syntax|javascript|1750079|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

Here's a script by @JamesThomasMoon1979 rewritten as a one-liner
<pre><code>perl -MExtUtils::Installed -e '$i=ExtUtils::Installed-&gt;new(); 
 print &quot;$_ &quot;.$i-&gt;version($_).&quot;\n&quot; for $i-&gt;modules();'
</code></pre>

blocks|key|1749171|text|要在不使用ls(1)这样的外部程序的情况下遍历@INC目录树，可以使用File::Find::Rule模块，它有一个很好的声明性接口。|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|1749172|此外，您还希望过滤掉重复项，以防以前的Perl版本包含相同的模块。执行此操作的代码如下所示：|1749173|#!+/usr/bin/perl+-l

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

my+%25seen;
for+my+$path+(@INC)+{
++++for+my+$file+(File::Find::Rule->name('*.pm')->in($path))+{
++++++++my+$module+=+substr($file,+length($path)%2B1);
++++++++$module+=~+s/.pm$//;
++++++++$module+=~+s{[\\/]}{::}g;
++++++++print+$module+unless+$seen{$module}%2B%2B;
++++}
}|code-block|syntax|javascript|1749174|在运行结束时，您还可以将所有模块名称作为%25seen散列中的键。代码可以修改为将规范的文件名(在$file中给出)保存为键的值，而不是所见次数的计数。|1749175|entityMap^0|Z|G|0|0|0|0^^$0|@$1|2|3|4|5|6|7|Q|8|@$9|R|A|S|B|C]]|D|@]|E|$]]|$1|F|3|G|5|6|7|T|8|@]|D|@]|E|$]]|$1|H|3|I|5|J|7|U|8|@]|D|@]|E|$K|L]]|$1|M|3|N|5|6|7|V|8|@]|D|@]|E|$]]|$1|O|3|-4|5|6|7|W|8|@]|D|@]|E|$]]]|P|$]]

To walk through the @INC directory trees without using an external program like ls(1), one could use the <code>File::Find::Rule</code> module, which has a nice declarative interface.

Also, you want to filter out duplicates in case previous Perl versions contain the same modules. The code to do this looks like:

<pre><code>#! /usr/bin/perl -l

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

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

At the end of the run, you also have all your module names as keys in the %seen hash. The code could be adapted to save the canonical filename (given in $file) as the value of the key instead of a count of times seen.

blocks|key|1534412|text|我昨天刚刚写了一个perl脚本来做这件事。该脚本使用'::‘作为分隔符，返回安装在@INC中的perl模块的列表。使用以下命令调用脚本|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1534413|perl+perlmod.pl|code-block|syntax|javascript|1534414|或|1534415|perl+perlmod.pl+<module+name>+#Case-insensitive(eg.+perl+perlmod.pl+ftp)|1534416|从现在起，脚本跳过当前目录(‘.’)因为我在递归软链接方面遇到了问题，但是您可以通过将第17行中的grep函数从|1534417|++grep+{+$_+!~+'%5E\.$'+}+@INC|1534418|只是，|1534419|@INC|1534420|可以在here.中找到该脚本|offset|length|1534421|entityMap|0|LINK|mutability|MUTABLE|url|http://pastebin.com/f79372961^0|0|0|0|0|0|0|0|0|3|5|0|0^^$0|@$1|2|3|4|5|6|7|14|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|15|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|16|8|@]|9|@]|A|$]]|$1|I|3|J|5|D|7|17|8|@]|9|@]|A|$E|F]]|$1|K|3|L|5|6|7|18|8|@]|9|@]|A|$]]|$1|M|3|N|5|D|7|19|8|@]|9|@]|A|$E|F]]|$1|O|3|P|5|6|7|1A|8|@]|9|@]|A|$]]|$1|Q|3|R|5|D|7|1B|8|@]|9|@]|A|$E|F]]|$1|S|3|T|5|6|7|1C|8|@]|9|@$U|1D|V|1E|1|1F]]|A|$]]|$1|W|3|-4|5|6|7|1G|8|@]|9|@]|A|$]]]|X|$Y|$5|Z|10|11|A|$12|13]]]]

I wrote a perl script just yesterday to do exactly this. The script returns the list of perl modules installed in @INC using the '::' as the separator. Call the script using - 

<pre><code>perl perlmod.pl
</code></pre>

OR 

<pre><code>perl perlmod.pl &lt;module name&gt; #Case-insensitive(eg. perl perlmod.pl ftp)
</code></pre>

As of now the script skips the current directory('.') since I was having problems with recursing soft-links but you can include it by changing the grep function in line 17 from 

<pre><code> grep { $_ !~ '^\.$' } @INC
</code></pre>

to just,

<pre><code>@INC
</code></pre>

The script can be found <a href="http://pastebin.com/f79372961" rel="nofollow noreferrer">here.</a>

blocks|key|1749811|text|下面的方法对我很有效。|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1749812|$+perldoc+perllocal+%7C+grep+Module
$+perldoc+perllocal+%7C+grep+-E+'VERSION%7CModule'|code-block|syntax|javascript|1749813|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

The following worked for me.

<pre><code>$ perldoc perllocal | grep Module
$ perldoc perllocal | grep -E 'VERSION|Module'
</code></pre>

blocks|key|1534530|text|Perl+cookbook包含脚本"pmdesc“的几次迭代，该脚本可以执行您想要的操作。谷歌-搜索"Perl+Cookbook+pmdesc“，你会发现articles+on+other+Q&A+Sites，网上的几个代码清单，解决方案的讨论，甚至some+refinements。|type|unstyled|depth|inlineStyleRanges|entityRanges|offset|length|data|1534531|entityMap|0|LINK|mutability|MUTABLE|url|http://kb.ucla.edu/articles/how-do-i-find-what-perl-modules-are-installed-on-my-system|1|http://www.perlmonks.org/index.pl?node_id=275693^0|25|R|0|3H|G|1|0^^$0|@$1|2|3|4|5|6|7|N|8|@]|9|@$A|O|B|P|1|Q]|$A|R|B|S|1|T]]|C|$]]|$1|D|3|-4|5|6|7|U|8|@]|9|@]|C|$]]]|E|$F|$5|G|H|I|C|$J|K]]|L|$5|G|H|I|C|$J|M]]]]

the Perl cookbook contains several iterations of a script "pmdesc" that does what you want. 
Google-search for "Perl Cookbook pmdesc" and you'll find <a href="http://kb.ucla.edu/articles/how-do-i-find-what-perl-modules-are-installed-on-my-system" rel="nofollow">articles on other Q&amp;A Sites</a>, several code listings on the net, a discussion of the solution, and even <a href="http://www.perlmonks.org/index.pl?node_id=275693" rel="nofollow">some refinements</a>.

blocks|key|1534581|text|下面是一个Perl一行程序，它将打印出已安装模块的列表：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1534582|perl+-MExtUtils::Installed+-MData::Dumper+-e++'my+($inst)+=+ExtUtils::Installed->new();+print+Dumper($inst->modules());'|code-block|syntax|javascript|1534583|只需确保您安装了Data::Dumper。|1534584|entityMap^0|0|0|0^^$0|@$1|2|3|4|5|6|7|K|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|L|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|M|8|@]|9|@]|A|$]]|$1|I|3|-4|5|6|7|N|8|@]|9|@]|A|$]]]|J|$]]

Here's a Perl one-liner that will print out a list of installed modules:

<pre><code>perl -MExtUtils::Installed -MData::Dumper -e 'my ($inst) = ExtUtils::Installed-&gt;new(); print Dumper($inst-&gt;modules());'
</code></pre>

Just make sure you have Data::Dumper installed.

blocks|key|1749775|text|cd+/the/lib/dir/of/your/perl/installation
perldoc+$(find+.+-name+perllocal.pod)|type|code-block|depth|inlineStyleRanges|entityRanges|data|syntax|javascript|1749776|Windows用户只需执行Windows资源管理器搜索即可找到它。|unstyled|1749777|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$B|C]]|$1|D|3|E|5|F|7|J|8|@]|9|@]|A|$]]|$1|G|3|-4|5|F|7|K|8|@]|9|@]|A|$]]]|H|$]]

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

Windows users just do a Windows Explorer search to find it.

blocks|key|1749971|text|试试"perldoc+-l"：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1749972|$+perldoc+-l日志：：Dispatch/usr/local/share/perl/5.26.1/Log/Dispatch.-l|1749973|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|F|8|@]|9|@]|A|$]]|$1|B|3|C|5|6|7|G|8|@]|9|@]|A|$]]|$1|D|3|-4|5|6|7|H|8|@]|9|@]|A|$]]]|E|$]]

Try "perldoc -l":

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

blocks|key|1749845|text|当您输入您的Perl脚本时，您已经将所有已安装的模块作为.pm文件放在@INC中的文件夹下，因此一个小的bash脚本将为您完成此工作：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1749846|#!/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|code-block|syntax|javascript|1749847|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

As you enter your Perl script you have all the installed modules as .pm files below the folders in @INC so a small bash script will do the job for you:

<pre><code>#!/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
</code></pre>

blocks|key|1534972|text|对于Linux来说，最简单的方法是，|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1534973|dpkg+-l+%7C+grep+"perl"|code-block|syntax|javascript|1534974|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

For Linux the easiest way to get is,

<pre><code>dpkg -l | grep "perl"
</code></pre>

blocks|key|1749894|text|这对我很管用|type|unstyled|depth|inlineStyleRanges|entityRanges|data|1749895|perl+-e+'print+join("\n",@INC,"")'|code-block|syntax|javascript|1749896|entityMap^0|0|0^^$0|@$1|2|3|4|5|6|7|I|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|J|8|@]|9|@]|A|$E|F]]|$1|G|3|-4|5|6|7|K|8|@]|9|@]|A|$]]]|H|$]]

This works for me

<pre><code>perl -e 'print join("\n",@INC,"")'
</code></pre>

blocks|key|1534711|text|这就是我要做的：perl+-M{cpan_module}|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|1534712|如果您没有收到任何错误，则很有可能已经安装了该模块。|1534713|entityMap^0|8|K|0|0^^$0|@$1|2|3|4|5|6|7|J|8|@$9|K|A|L|B|C]]|D|@]|E|$]]|$1|F|3|G|5|6|7|M|8|@]|D|@]|E|$]]|$1|H|3|-4|5|6|7|N|8|@]|D|@]|E|$]]]|I|$]]

This is what I do: <code>perl -M{cpan_module}</code> 
If you don't receive any errors there is a good chance that the module is installed.

Aside from trying

<pre><code>perldoc &lt;module name&gt;
</code></pre>

individually for any CPAN module that takes my fancy or going through the file system and looking at the directories I have no idea what modules we have installed. 

What's the easiest way to just get a big list of every CPAN module installed? From the command line or otherwise.

How do I get a list of installed CPAN modules?

翻译质量差，导致语言生硬或混乱。

没有提供实际的解决方法或示例。

解答不清晰，无法理解或解决问题。

页面排版不美观，阅读体验差。

文章

问答

视频

学习中心

腾讯云实验室

直播

竞赛

腾讯云代码分析专区

腾讯iOA零信任安全管理系统专区

腾讯云架构师技术同盟交流圈

腾讯云数据库专区

腾讯云顾问专区

腾讯云原生专区

腾讯混元专区

腾讯云TCE专区

腾讯云Lighthouse专区

腾讯云HAI专区

腾讯云Edgeone专区

腾讯云存储专区

腾讯云智能专区

腾讯轻联专区 

腾讯云开发专区

TAPD专区

腾讯轻量云游戏服专区

腾讯云最具价值专家

腾讯云架构师技术同盟

腾讯云创作之星

腾讯云开发者先锋 

腾讯云代码助手

CODING DevOps

Cloud Studio

SDK中心

API中心

命令行工具

除了尝试perldoc <module name>对于我喜欢的任何CPAN模块，或者遍历文件系统并查看目录，我都不知道我们安装了哪些模块。获得每个已安装CPAN模块的大列表的最简单方法是什么？从命令行或其他方式。

问如何获取已安装CPAN模块的列表？
EN

回答 26

Stack Overflow用户

Stack Overflow用户

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问如何获取已安装CPAN模块的列表？EN

回答 26

Stack Overflow用户

Stack Overflow用户

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问如何获取已安装CPAN模块的列表？
EN