使えるモジュール一覧の表示

これといってない(^^;

↓こんなスクリプトを動かせばよいだろう。


#!/usr/bin/perl

#map { print; print "\n"; } @INC;
#print "----\n";

foreach (@INC) {
  &chkmodule($_);
}

sub chkmodule {
  my $dir = shift;
  my $target;
  my @targets;

  opendir(DIR, $dir);
  @targets = readdir(DIR);
  closedir(DIR);
  shift @targets; shift @targets;

  foreach $target (@targets) {
    if (-d $dir."/".$target) {
      &chkmodule($dir ."/". $target);
    } elsif ($target =~ /\.pm$/) {
      print $dir."/".$target."\n";
    }
  }
}