>>974　おつ〜

>>973
なるほどねｗ　簡単、こうすればOK

変更点1

# 親記事のみの配列データを作成
foreach $line (@lines) {
　local($num,$k,$date,$name,$email,...
　# 親記事を集約
　if ($k eq "") { push(@new,$line); }
　else { $res_count{$k}++; }　# <-- 真のﾒｯｾｰｼﾞ番号「$k」に置換
}