■こんなCGI作ってください■

>>919

@images; ← ここに画像のファイル名が入ってるとする
my($perline) = 5; # 行あたりの画像数
my($img, $imgcnt, $i);

$imgcnt = 1;
print "<table>\n";
foreach $img (@images){
　　if($imgcnt == 1){ print "<tr>\n"; }

　　print "\t<td><img src=\"$img\"></td>\n";

　　$imgcnt++;
　　if($imgcnt == $perline){
　　　　print "</tr>\n";
　　　　$imgcnt = 1;
　　}
}
# 空白セルの処理
if($imgcnt != 1){
　　for($i = $imgcnt; $imgcnt >= $perline $i++){
　　　　print "\t<td><br></td>\n";
　　}
}
print "</table>\n";

こんな感じかな？