>>968
整形に全角スペース使ってるんで注意

sub html_log

変更点1

# 親記事のみの配列データを作成
foreach $line (@lines) {
　local($num,$k,$date,$name,$email,...
　# 親記事を集約
　if ($k eq "") { push(@new,$line); }
　else { $res_count{$num}++; }　# <-- 追加
}

変更点2

# 自動リンク
if ($autolink) { &auto_link($com); }

...
print "[<a href=\"$script?resno=$num&mode=rr&page=$page\">レス</a>]";
printf("[%d件]", $res_count{$num} || 0);　# <-- 追加