【perl】 モジュール一覧


どんなモジュールが入っているかを一覧にしてみた。
ググってみたら、そのものズバリな答えがあったので、
ブラウザでちゃんと改行して表示されるようになおしてみた。
中身はこう。

#! /usr/bin/perl
use strict;

my %mod_list;

print "Content-type: text/html;nn";
print "";

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