【Perl】インストールされているモジュールの一覧を取得する｜研究日誌

この記事は2年以上前に書かれたものです。情報が古い可能性があります。

複数のシステムを運用している場合、それぞれのシステムにどのモジュールが(追加で)インストールされているか、確認したくなることがあります。

インストールされているモジュールの一覧を得るための一般的な方法として、@INC配下にある.packlistというファイルの存在を確認する、という方法があります。強引にワンライナーでやろうとすると、概ね以下のようになります。なお、grep /auto/としているのは、コアモジュールを除外するためです。

[atomitech@node01 perlbrew]$ find . -name "*packlist*" | grep /auto/ | \
&gt; perl -ple 's{.+/auto/(.+)/\.packlist}{$1}' | perl -ple 's{/}{::}g' | \
&gt; sort | perl -MUNIVERSAL::require -nle \
&gt; 'if ($_-&gt;require) { $version=${$_.'::VERSION'}; \
&gt; print defined $version ? "$_\t$version" : "$_\tundetectable" }'
Algorithm::Dependency 1.110
Algorithm::Diff 1.1902
Alien::Tidyp v1.4.7
Any::Moose 0.18
(中略)
prefork 1.04
strictures 1.002002
threads::shared 1.4
version 0.95

[atomitech@node01 perlbrew]$ find . -name "*packlist*" | grep /auto/ | \

> perl -ple 's{.+/auto/(.+)/\.packlist}{$1}' | perl -ple 's{/}{::}g' | \

> sort | perl -MUNIVERSAL::require -nle \

> 'if ($_->require) { $version=${$_.'::VERSION'}; \

> print defined $version ? "$_\t$version" : "$_\tundetectable" }'

Algorithm::Dependency 1.110

Algorithm::Diff 1.1902

Alien::Tidyp v1.4.7

Any::Moose 0.18

(中略)

prefork 1.04

strictures 1.002002

threads::shared 1.4

version 0.95

いくつかのモジュールのバージョン取得に失敗していますが、概ねうまくいっているようです。

上記のように.packlistからモジュール一覧を取得する処理を、もう少し実用的に実装したモジュールとして、ExtUtils::Installedがあります。これを使って、上記よりも少しだけ洗練された(?)スクリプトを書いてみます。

#!/usr/bin/env perl
# pmlist - report modules which are installed on your machine
use strict;
use warnings;
use ExtUtils::Installed;
use UNIVERSAL::require;
use Getopt::Long;
GetOptions( verbose =&gt; \my $verbose );
my @installed_modules = ExtUtils::Installed-&gt;new-&gt;modules;
for my $module (@installed_modules) {
print $module;
if ($verbose) {
if ($module eq 'Perl') {
print "\t$^V";
}
else {
# suppress some 'inevitable' warnings
local $SIG{__WARN__} = sub { };
$module-&gt;require;
no strict 'refs';
my $v = ${$module . '::VERSION'};
printf "\t%s", defined $v ? $v : 'undetectable' ;
}
}
print "\n";
}
__END__

#!/usr/bin/env perl

# pmlist - report modules which are installed on your machine

use strict;

use warnings;

use ExtUtils::Installed;

use UNIVERSAL::require;

use Getopt::Long;

GetOptions( verbose => \my $verbose );

my @installed_modules = ExtUtils::Installed->new->modules;

for my $module (@installed_modules) {

print $module;

if ($verbose) {

if ($module eq 'Perl') {

print "\t$^V";

}

else {

# suppress some 'inevitable' warnings

local $SIG{__WARN__} = sub { };

$module->require;

no strict 'refs';

my $v = ${$module . '::VERSION'};

printf "\t%s", defined $v ? $v : 'undetectable' ;

}

print "\n";

}

__END__

実行結果は、以下のとおりです。

[atomitech@node01 ~]$ pmlist -v
Algorithm::Dependency 1.110
Algorithm::Diff 1.1902
Alien::Tidyp v1.4.7
Any::Moose 0.18
(中略)
strictures 1.002002
threads 1.86
threads::shared 1.4
version 0.95

[atomitech@node01 ~]$ pmlist -v