- 463 名前：nobodyさん [2007/01/16(火) 16:54:39 ID:iFu13O6o]
- >>461
適当でいいなら。
#!/usr/local/bin/perl
my $dir = './images';
opendir(DIR, $dir);
my @images = grep(/\.jpg/, readdir(DIR));
closedir(DIR);
print "Content-Type: text/html\n\n";
foreach (@images) {
my $path = "$dir/$_";
print "<img src=\"$path\">\n";
}
exit;
