モジュール一覧をリストアップするCGI
Posted at 2004-01-11T00:58:00+09:00 in Coding
インストール済みのモジュールを調べるCGIはいくつか公開されているのですけれど、単純明快に\w+\.pmというファイル名をリストアップすることでざっと調べてみました。
\w+\.pmをリストアップしてみた結果
XREAのs44サーバーでの結果です。他のサーバーは違うかも違わないかも。XML::Atomキボン!
#!/usr/local/bin/perl
use strict;
print <<"_HTML_";
Content-Type: text/html
<html>
<head>
<title>Module List</title>
</head>
<body>
<pre>
_HTML_
foreach my $inc (@INC) {
scandir($inc);
}
print <<"_HTML_";
</pre>
</body>
</html>
_HTML_
exit;
sub scandir {
my $dir = shift;
opendir(DIR, $dir);
my @finds = readdir(DIR);
closedir DIR;
foreach my $find (@finds) {
if ($find =~ /\.pm$/) {
print "$dir/$find\n";
} elsif (($find =~ /^\w+$/) and -d "$dir/$find") {
scandir("$dir/$find");
}
}
}
暴走危険。
Weblog archives
by Month
- October, 2006 (9)
- September, 2006 (23)
- August, 2006 (31)
- July, 2006 (8)
- October, 2005 (13)
- September, 2005 (24)
- August, 2005 (26)
- July, 2005 (2)
- June, 2005 (2)
- May, 2005 (13)
- April, 2005 (30)
- March, 2005 (33)
- February, 2005 (13)
- January, 2005 (10)
- December, 2004 (28)
- November, 2004 (27)
- October, 2004 (25)
- September, 2004 (38)
- August, 2004 (52)
- July, 2004 (45)
- June, 2004 (41)
- May, 2004 (48)
- April, 2004 (36)
- March, 2004 (51)
- February, 2004 (55)
- January, 2004 (63)
- December, 2003 (46)
- November, 2003 (63)
- October, 2003 (92)
- September, 2003 (61)
- August, 2003 (93)
- July, 2003 (57)
- May, 2003 (5)
- April, 2003 (35)
- March, 2003 (35)
- February, 2003 (37)
- January, 2003 (62)
- December, 2002 (32)
This page was last modified on 2004-03-21T04:31:07+09:00 (in 0.210 secs).