インストール済みモジュールの一覧を取得する の変更点

• 追加された行はこの色です。
• 削除された行はこの色です。
• インストール済みモジュールの一覧を取得する へ行く。
• インストール済みモジュールの一覧を取得する の差分を削除

**Perlのインストール済みモジュール一覧[#p9b78468]

 find `perl -e 'print "@INC"'` -name '*.pm' -print





**一覧取得スクリプト [#l19f9ccf]
以下のスクリプトを作成して実行する

# perl modlist.pl

-modlist.pl
 use strict;
 
 my %mod_list;
 
 listup($_) for grep {$_ ne '.'} @INC;
 print "$_\n" for sort keys %mod_list;
 
 sub listup {
 my ($base, $path) = @_;
 (my $mod = $path) =~ s!/!::!g;
 
 opendir DIR, "$base/$path" or return;
 my @node = grep {!/^\.\.?$/} readdir DIR;
 closedir DIR;
 
 foreach (@node) {
 if (/(.+)\.pm$/) { $mod_list{"$mod$1"} = 1 }
 elsif (-d "$base/$path$_") { listup($base, "$path$_/") }
  }
 }