| ■No8089に返信(KENさんの記事) > とりあえずファイルを表示したいです。(羅列で構わないので。) > $icoを@icoにしてforeachですよね… > いっぱいありすぎてどうしたものか…
とりあえず、design サブルーチンだけを改造すればよいかもしれません。 まず、design に渡されてくる $ico には半角スペースを区切りとした 画像情報が入っていますので、それを配列に入れます(あと、$fimgも)。
@ico= split(/ /,$ico); @fimg=split(/ /,$fimg);
あとは142行目の処理をループさせればよいので
if($ico && $i_mode){$Pr=""; &size(); $Pr="<tr><td align=center>$Pr</td></tr>\n"; $SIZE+=$Size;}else{$Pr="";} を if($ico && $i_mode){$Pr=""; &size(); $Pimg.="<tr><td align=center>$Pr</td></tr>\n"; $SIZE+=$Size;}else{$Pr="";} として、201行目の $Pr を $Pimg にしてみてください。
|