Perlでリクに答えるスクリプトを作るスレ
レス数が950を超えています。1000を超えると書き込みができなくなります。
0970デフォルトの名無しさん
2009/11/29(日) 05:27:27ここをこう直せばおk
（$sbjが他のフィールドに出てこないことが前提ですが）
while (<$fh>){
next if !/$sbj/;
my @list = split /\s+/, substr $_, 34;
$sum += $list[0];
}
レス数が950を超えています。1000を超えると書き込みができなくなります。