Perlのインストール済みモジュール一覧

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

一覧取得スクリプト

以下のスクリプトを作成して実行する

# 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$_/") }
     }
    }

トップ   編集 凍結 差分 バックアップ 添付 複製 名前変更 リロード   新規 一覧 検索 最終更新   ヘルプ   最終更新のRSS
Last-modified: 2009-05-27 (水) 01:15:27 (5392d)