# 関連コメント抽出 サブファンクション
sub comment_list {
  local($num) = $FORM{'resno'};
  local($pic,$name,$mail,$http,$body,$date,$ip,$host,$title);
  open(FILE,"$targetfile");
  while(<FILE>){
    if (/^$num\t/) {
        ($pic,$name,$mail,$http,$body,$date,$ip,$host,$title) = split(/\t/);
        $comlist .= "<p><font size=2 color=$NMcolor>$name</font> <font size=1 color=$DTcolor>$date</font><br>";
        $comlist .= "<font size=2 color=$TXcolor>$body</font></p>\n";
    }
  }
  close(FILE);
}