▼スレッド
│
└◇834:つけたし。 [織江] 10/18 00:07

　└◇836:Re:つけたし。 [moon] 10/18 00:24
　　└◇837:Re[2]:つけたし。 [moon] 10/18 00:31
　　　└◇838:さらに追記 [moon] 10/18 00:35

念のためファイルを貼り付けさせて頂きます。
教えていただいたままだと上手くいかなかったので、組み合わせた結果、おかしくなってしまったのかもしれません…。

http://noiz.edisc.jp/cgi/sos2/sos2.txt

再配布を公開しているのでもない限り、ファイルそのままはリンクしないほうが良いと思いますよ。

スクリプトを見た感じ新規登録時も同じ症状になりそうな気がしますね・・・。
normal_actionの
　　($pid,$pnm,$pps,$pjb,$pig,$psp,$pbp,$others) = split(/<>/,$line);
　　if ($Fm{'id'} eq $pid) { $mysp = $psp; $mybp = $pbp; $myjb = $pjb }
を、
　　($pid, $pnm, $pps, $pjb, $pig, $psp, $pbp, $ptw) = (split(/<>/, $line))[0, 1, 2, 3, 4, 5, 6, ???]; # ???は$ptwに相当するパラメータの番号（IDから順に数えていってください。）
　　if($Fm{'id'} eq $pid){$mysp = $psp; $mybp = $pbp; $myjb = $pjb; $hp = $php; $tw = $ptw;}
に変更すれば良いと思います。

> 　　($pid, $pnm, $pps, $pjb, $pig, $psp, $pbp, $ptw) = (split(/<>/, $line))[0, 1, 2, 3, 4, 5, 6, ???]; # ???は$ptwに相当するパラメータの番号（IDから順に数えていってください。）

付け足したパラメータが$twだけ（つまり$klの次が$tw）なら???は30です。

> [0, 1, 2, 3, 4, 5, 6, ???]

これの表記方法は、[0 .. 6, ???]でもOKです。