> > #!/usr/local/bin/perl
> > print "Content-Type: text/html\n\n";
> > opendir(DIR, './');
> > foreach(readdir(DIR)) {
> >     print "<a href=\"$_\">$_</a><br>\n";
> > }
> > closedir(DIR);
> > こんだけヽ(´ー｀)ノ
> http://lodges.virtualave.net/id.cgi
> 参照ヽ(´ー｀)ノ

next if $_ eq '.';
ぐらい入れた方がいいかも知れん

参考：2000/03/21(火)03時12分38秒