ご希望のCGIを作成いたします

ご希望のCGIを作成いたします at PHP

463:nobodyさん
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;

次ページ

続きを表示

1を表示