#!/usr/local/bin/perl
print "Content-type: text/html\n\n";
print "
\n";
print "CGIのサンプル
\n";
print "
\n";
print "ディレクトリ表示のサンプル(readdir)
\n";
opendir(DIR01,".") || die "can not open dir";
@_ = readdir(DIR01);
closedir(DIR01) || die "can not close dir";
foreach $file (@_) {
if ($file eq '.') {next;}
if ($file eq '..') {next;}
print "$file
\n";
}
print "
\n";
print "ディレクトリ表示のサンプル(ls)
\n";
print "\n";
print `ls -lL`;
print "
\n";
print "
\n";
print "このCGIのソース:dir01.cgi
\n";
print "\n";