blocks|key|623778|text|类似于：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|623779|perl+-MModule+-e+'print+"$Module::VERSION\n"'+2>/dev/null+%7C%7C+echo+"Not+installed"|code-block|syntax|javascript|623780|会给你一个给定模块的版本，或者告诉你它没有安装。用法如下所示：|623781|perl+-MXML::Parser+-e+'print+"$XML::Parser::VERSION\n"'+2>/dev/null+%7C%7C+echo+"Not+installed"|623782|要查找模块路径，您可以检查@INC以查找可能的位置，或者您也可以查看perlwhich。还有来自pmtools的pmpath。|offset|length|style|CODE|623783|entityMap|0|LINK|mutability|MUTABLE|url|http://www.perlmonks.org/?node_id=275693|1|http://search.cpan.org/~mlfisher/pmtools/|2|http://search.cpan.org/~mlfisher/pmtools/pmpath^0|0|0|0|0|D|4|Y|9|0|1C|7|1|1K|6|2|0^^$0|@$1|2|3|4|5|6|7|12|8|@]|9|@]|A|$]]|$1|B|3|C|5|D|7|13|8|@]|9|@]|A|$E|F]]|$1|G|3|H|5|6|7|14|8|@]|9|@]|A|$]]|$1|I|3|J|5|D|7|15|8|@]|9|@]|A|$E|F]]|$1|K|3|L|5|6|7|16|8|@$M|17|N|18|O|P]]|9|@$M|19|N|1A|1|1B]|$M|1C|N|1D|1|1E]|$M|1F|N|1G|1|1H]]|A|$]]|$1|Q|3|-4|5|6|7|1I|8|@]|9|@]|A|$]]]|R|$S|$5|T|U|V|A|$W|X]]|Y|$5|T|U|V|A|$W|Z]]|10|$5|T|U|V|A|$W|11]]]]

Something like:

<pre><code>perl -MModule -e 'print "$Module::VERSION\n"' 2&gt;/dev/null || echo "Not installed"
</code></pre>

would give you the version of a given module, or tell you it isn't installed. Usage would look like:

<pre><code>perl -MXML::Parser -e 'print "$XML::Parser::VERSION\n"' 2&gt;/dev/null || echo "Not installed"
</code></pre>

To find the module path, you could examine <code>@INC</code> to find possible locations, or you could perhaps look into <a href="http://www.perlmonks.org/?node_id=275693" rel="noreferrer">perlwhich</a>. There is also <a href="http://search.cpan.org/~mlfisher/pmtools/pmpath" rel="noreferrer">pmpath</a> from <a href="http://search.cpan.org/~mlfisher/pmtools/" rel="noreferrer">pmtools</a>.

blocks|key|2124165|text|据我所知，最短的事情不涉及脚本或shell别名：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|2124166|$+perl+-MFoo::Bar\+99
Foo::Bar+version+99+required--this+is+only+version+1.234.|code-block|syntax|javascript|2124167|(或者，如果未安装@INC，则通常会显示不在其中的消息)|offset|length|style|CODE|2124168|对于好奇的人来说，这和perl+-e+'use+Foo::Bar+99'是一样的。|2124169|entityMap^0|0|0|9|4|0|B|P|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|@$I|T|J|U|K|L]]|9|@]|A|$]]|$1|M|3|N|5|6|7|V|8|@$I|W|J|X|K|L]]|9|@]|A|$]]|$1|O|3|-4|5|6|7|Y|8|@]|9|@]|A|$]]]|P|$]]

The shortest thing I know of that doesn't involve a script or shell alias:

<pre><code>$ perl -MFoo::Bar\ 99
Foo::Bar version 99 required--this is only version 1.234.
</code></pre>

(or the usual message about not being in <code>@INC</code> if it's not installed)

For the curious, this is the same as <code>perl -e 'use Foo::Bar 99'</code>.

blocks|key|623785|text|instmodsh|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|623786|NAME
+++++++instmodsh+-+A+shell+to+examine+installed+modules

SYNOPSIS
+++++++++++instmodsh

DESCRIPTION
+++++++A+little+interface+to+ExtUtils::Installed+to+examine+installed+modules,+validate+your+packlists+and+even+create+a+tarball+from+an+installed+module.

SEE+ALSO
+++++++ExtUtils::Installed|code-block|syntax|javascript|623787|entityMap^0|0|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|$]]

<code>instmodsh</code>

<pre><code>NAME
 instmodsh - A shell to examine installed modules

SYNOPSIS
 instmodsh

DESCRIPTION
 A little interface to ExtUtils::Installed to examine installed modules, validate your packlists and even create a tarball from an installed module.

SEE ALSO
 ExtUtils::Installed
</code></pre>

blocks|key|715370|text|这是一个可以做到这一点的程序：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|715371|#!/usr/bin/perl
#+testmod+-+test+to+see+if+a+module+is+available

use+strict;
use+warnings;

my+$mod+=+(shift+@ARGV)+%7C%7C+die+"usage:+$0+module\n";

#+convert+module-name+to+path
my+$file+=+$mod;
$file+=~+s{::}{/}gsmx;
$file+.=+'.pm';

#+Pull+in+the+module,+if+it+exists
eval+{+require+$file+}
++++or+die+"can't+find+module+$mod\n";

#+Get+the+version+from+the+module,+if+defined
my+$ver;
{+no+strict+'refs';
++++$ver+=+${$mod+.+"::VERSION"}+%7C%7C+'UNKNOWN';
}
#+And+its+location
my+$from+=+$INC{$file};
print+"module+$mod+is+version+$ver+loaded+from+$from\n";|code-block|syntax|javascript|715372|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 program which does that:

<pre><code>#!/usr/bin/perl
# testmod - test to see if a module is available

use strict;
use warnings;

my $mod = (shift @ARGV) || die "usage: $0 module\n";

# convert module-name to path
my $file = $mod;
$file =~ s{::}{/}gsmx;
$file .= '.pm';

# Pull in the module, if it exists
eval { require $file }
 or die "can't find module $mod\n";

# Get the version from the module, if defined
my $ver;
{ no strict 'refs';
 $ver = ${$mod . "::VERSION"} || 'UNKNOWN';
}
# And its location
my $from = $INC{$file};
print "module $mod is version $ver loaded from $from\n";
</code></pre>

blocks|key|715228|text|使用pmvers。顾名思义，它显示已安装模块的版本。如果没有安装模块，它将失败，并显示熟悉的错误消息：Can't+locate+…+in+@INC+(@INC+contains:+…)|type|unstyled|depth|inlineStyleRanges|offset|length|style|CODE|entityRanges|data|715229|使用同一发行版中的pmpath查找模块的安装路径。|715230|entityMap|0|LINK|mutability|MUTABLE|url|http://search.cpan.org/perldoc?pmvers|1|http://search.cpan.org/perldoc?pmpath^0|2|6|1F|15|2|6|0|0|9|6|9|6|1|0^^$0|@$1|2|3|4|5|6|7|R|8|@$9|S|A|T|B|C]|$9|U|A|V|B|C]]|D|@$9|W|A|X|1|Y]]|E|$]]|$1|F|3|G|5|6|7|Z|8|@$9|10|A|11|B|C]]|D|@$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]]]]

Use <a href="http://search.cpan.org/perldoc?pmvers" rel="nofollow noreferrer"><code>pmvers</code></a>. Like the name suggests, it shows the version of an installed module. If a module is not installed, it fails with the familiar error message: <code>Can't locate … in @INC (@INC contains: …)</code>

Use <a href="http://search.cpan.org/perldoc?pmpath" rel="nofollow noreferrer"><code>pmpath</code></a> from the same distribution to find a module's installation path.

blocks|key|623725|text|我使用这些bash函数/+Perl单行器来查找Perl模块的版本号和位置：|type|unstyled|depth|inlineStyleRanges|entityRanges|data|623726|#+equivalent+to+perldoc+-l+<module>
perlwhere()+{
++++perl+-wle'eval+"require+$ARGV[0]"+or+die;+($mod+=+$ARGV[0])+=~+s%7C::%7C/%7Cg;+print+$INC{"${mod}.pm"}'+$1
}

perlversion()+{
++++perl+-M$1+-wle'print+$ARGV[0]->VERSION'+$1
}

:+[ether+~].2$;+perlwhere+Test::More
/usr/lib/perl5/5.8.8/Test/More.pm
:+[ether+~].2$;+perlversion+Test::More
0.94|code-block|syntax|javascript|623727|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|$]]

I use these bash function/Perl oneliners to find the version number and location of Perl modules:

<pre><code># equivalent to perldoc -l &lt;module&gt;
perlwhere() {
 perl -wle'eval "require $ARGV[0]" or die; ($mod = $ARGV[0]) =~ s|::|/|g; print $INC{"${mod}.pm"}' $1
}

perlversion() {
 perl -M$1 -wle'print $ARGV[0]-&gt;VERSION' $1
}

: [ether ~].2$; perlwhere Test::More
/usr/lib/perl5/5.8.8/Test/More.pm
: [ether ~].2$; perlversion Test::More
0.94
</code></pre>

blocks|key|623746|text|pmvers实用程序和其他pmtools将执行所需的操作。否则，下面是查找模块版本的一行代码：|type|unstyled|depth|inlineStyleRanges|entityRanges|offset|length|data|623747|perl+-le+'eval+"require+$ARGV[0]"+and+print+$ARGV[0]->VERSION'+Some::Module|code-block|syntax|javascript|623748|entityMap|0|LINK|mutability|MUTABLE|url|http://search.cpan.org/perldoc?pmvers^0|0|6|0|0|0^^$0|@$1|2|3|4|5|6|7|Q|8|@]|9|@$A|R|B|S|1|T]]|C|$]]|$1|D|3|E|5|F|7|U|8|@]|9|@]|C|$G|H]]|$1|I|3|-4|5|6|7|V|8|@]|9|@]|C|$]]]|J|$K|$5|L|M|N|C|$O|P]]]]

The <a href="http://search.cpan.org/perldoc?pmvers" rel="nofollow noreferrer">pmvers</a> utility and the other pmtools will do what you need. Otherwise here is a one-liner to find a module version:

<pre><code>perl -le 'eval "require $ARGV[0]" and print $ARGV[0]-&gt;VERSION' Some::Module
</code></pre>

blocks|key|1924343|text|如果您正在寻找跨平台的CLI+(Linux、OSX、Windows)，请考虑我的+；例如：|type|unstyled|depth|inlineStyleRanges|offset|length|style|BOLD|entityRanges|data|1924344|#+Locate+the+Data::Dumper+module,+and+also+print
#+version+information+and+core-module+status.
$+whichpm+-v+Data::Dumper
Data::Dumper++++2.145+++core>=5.005+/usr/lib/perl/5.18/Data/Dumper.pm|code-block|syntax|javascript|1924345|它还可以查找意外的重复项并列出所有已安装的模块。|1924346|如果您碰巧安装了Node.js+/+io.js，您可以从npm注册表安装它：|1924347|[sudo]+npm+install+whichpm+-g|1924348|有关手动安装说明和更多信息，请参阅the+repo；这里有指向latest+version的直接下载链接(将保持最新状态)。|1924349|entityMap|0|LINK|mutability|MUTABLE|url|https://github.com/mklement0/whichpm|1|2|https://raw.githubusercontent.com/mklement0/whichpm/stable/bin/whichpm^0|7|7|14|1|0|0|0|0|0|0|H|8|1|V|E|2|0^^$0|@$1|2|3|4|5|6|7|13|8|@$9|14|A|15|B|C]]|D|@$9|16|A|17|1|18]]|E|$]]|$1|F|3|G|5|H|7|19|8|@]|D|@]|E|$I|J]]|$1|K|3|L|5|6|7|1A|8|@]|D|@]|E|$]]|$1|M|3|N|5|6|7|1B|8|@]|D|@]|E|$]]|$1|O|3|P|5|H|7|1C|8|@]|D|@]|E|$I|J]]|$1|Q|3|R|5|6|7|1D|8|@]|D|@$9|1E|A|1F|1|1G]|$9|1H|A|1I|1|1J]]|E|$]]|$1|S|3|-4|5|6|7|1K|8|@]|D|@]|E|$]]]|T|$U|$5|V|W|X|E|$Y|Z]]|10|$5|V|W|X|E|$Y|Z]]|11|$5|V|W|X|E|$Y|12]]]]

If you're looking for a cross-platform CLI (Linux, OSX, Windows), consider my <a href="https://github.com/mklement0/whichpm" rel="nofollow"><code>whichpm</code> utility</a>; e.g.:

<pre><code># Locate the Data::Dumper module, and also print
# version information and core-module status.
$ whichpm -v Data::Dumper
Data::Dumper 2.145 core&gt;=5.005 /usr/lib/perl/5.18/Data/Dumper.pm
</code></pre>

It can also find accidental duplicates and list all installed modules.

If you happen to have Node.js / io.js installed, you can install it from the npm registry:

<pre><code>[sudo] npm install whichpm -g
</code></pre>

For manual installation instructions and more, see <a href="https://github.com/mklement0/whichpm" rel="nofollow">the repo</a>; here's a direct download link to the <a href="https://raw.githubusercontent.com/mklement0/whichpm/stable/bin/whichpm" rel="nofollow">latest version</a> (will stay current).

Is there a smart way to detect whether a certain Perl module has been installed in your system?
My old sutpid way is to write a Perl script in which the only thing I do is just to use the module. If nothing croaks when I run the detect script, then I know the module has been installed, although I still don't know which version and where the module has been installed .

thanks in advance.

How can I get the version and location of an installed Perl module?

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

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

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

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

文章

问答

视频

学习中心

腾讯云实验室

直播

竞赛

腾讯云代码分析专区

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

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

腾讯云数据库专区

腾讯云顾问专区

腾讯云原生专区

腾讯混元专区

腾讯云TCE专区

腾讯云Lighthouse专区

腾讯云HAI专区

腾讯云Edgeone专区

腾讯云存储专区

腾讯云智能专区

腾讯轻联专区 

腾讯云开发专区

TAPD专区

腾讯轻量云游戏服专区

腾讯云最具价值专家

腾讯云架构师技术同盟

腾讯云创作之星

腾讯云开发者先锋

腾讯云代码助手

云原生构建

TAPD 敏捷项目管理

Cloud Studio

SDK中心

API中心

命令行工具

涵盖代码开发、场景应用、自动测试全流程，助你从零构建专属AI助手

一站式MCP教程库，解锁AI应用新玩法

有没有一种聪明的方法来检测系统中是否安装了某个Perl模块？我的老方法是编写一个Perl脚本，在这个脚本中，我唯一要做的就是使用模块。如果在运行检测脚本时没有发出任何声音，那么我知道模块已经安装，尽管我仍然不知道模块安装的版本和位置。提前谢谢。

问如何获得已安装的Perl模块的版本和位置？
EN

回答 8

Stack Overflow用户

Stack Overflow用户

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问如何获得已安装的Perl模块的版本和位置？EN

回答 8

Stack Overflow用户

Stack Overflow用户

Stack Overflow用户

社区

活动

圈层

关于

腾讯云开发者

热门产品

热门推荐

更多推荐

问如何获得已安装的Perl模块的版本和位置？
EN