07/01/16 16:54:39 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;