Perlの掲示板で5列ごとに改行したいです

質問

Perlで掲示板を作っています
掲示板で回答した人の回答文が
例えば10個回答があったとしたら2行5列に回答を表示したいです
下記スクリプトでやってみたのですがうまくいきません
$iの指定の仕方が間違えているようなのですが
$iを投稿に指定する方法を教えてください
よろしくお願いします

$lay="";
$layend="";
$i=$0;
$i++;
if($i == 0){$lay="<tr>";}
if($i >= 5){$layend="</tr>"; $i=0;}

$a =<<EOF;
$lay<td>
No:$bno&nbsp;投稿者:$bname&nbsp;投稿日$btime$url_link
<p>$bcom</p>
</td>$layend
EOF
}
return($a);
}

回答No.3

twinkleluz

すみません、#2の回答にミスがありました。

・$a=<<EOFを$a+=<<EOFにする

ではなく、

・$a=<<EOFを$a.=<<EOFにする

にしてください。

お礼

こちらの方法で動きました
ありがとうございます

回答No.2

twinkleluz

・$i=0をループが始まるブロックの上（もしくはサブルーチンの開始時）に移動させる
・$i++をEOFの下に移動させる
・$a=<<EOFを$a+=<<EOFにする

ここを直せば動くと思われます。

回答No.1

twinkleluz

3行目の、

$i=$0;

ではなくて、

$i=0

が正解です。

ちなみに$0という変数は予約変数で、実行するスクリプトのファイル名が入ります。

補足

回答ありがとうございます
実は$i=$0;これはわたしのコピペの際のミスで
動かないプログラム自体はちゃんと$i=0これになってました

プログラムの動かない理由がどうも$iこれの部分の認識を
掲示板の各投稿に指定されていないことにあるようなのですが
$iこれの部分の指定の方法をご存知の方おりましたら回答お願いします