モジュール一覧。

他に方法ないのかなぁ。とりあえず、@INCの下を探して.pmを取って表示。一応CGI*1。

#! /usr/bin/perl
use strict;
use warnings;

print "content-type: text/plain\n\n";

my @modules;
&dir( "$_/", "" ) for @INC;
sub dir{
	my( $inc, $dir ) = @_;
	my $dh;
	opendir $dh, "$inc$dir"
		or print STDERR "'$inc$dir'が開けない。: $!";
	for ( readdir $dh ){
		next if /^\./;
		&dir( $inc, "$dir$_/" ) if -d "$inc$dir$_";
		if(/\.pm$/){
			my $name = "$dir$_";
			$name =~ s/\.pm$//;
			$name =~ s|/|::|g;
			push @modules, $name;
		}
	}
	closedir $dh;
}

my %mod;
for ( @modules ){
	$mod{$_}++;
}
print $_, "\n" for sort keys %mod;

*1:content-typeを出してるだけだけど。