変数の内容が表示できません。perl初心者です。

質問

問合せフォームでのことです。
HTML fileからの入力内容をCGI fileで表示させ送信ボタンを押して、
確認のalert.htmlに表示させることにしてます。
CGIfileの変数が一部alert.htmlで表示できません。
スクリプトは以下の通りです。

# imag_o　下の2行はうまくいってます。
$t_imag_o="<input type=\"text\" size=\"10\"";
$t_imag_o.= "name=\"imag_o\" value=\"$imag_o\">\n";

#comment　下のスクリプトはうまくいきません。 $commentの内容が渡せなくCGI fileで表示された内容が空白になります。

$t_comment="<textarea cols=\"40\" rows=\"5\"";
$t_comment.= "name=\"comment\" value=\"$comment\"></textarea>\n";

このスクリプトでデータを渡しています。
sub replaceTags{
foreach (@html){
s/<CGI:error message>/$errMsg/i;
s/<CGI:error num>/$errNum/i;

　s/<CGI:imag_o>/$t_imag_o/i;
s/<CGI:comment>/$t_comment/i;

if ($errNum > 0){
s/<CGI:submit>/<input type="submit" value="送信">/i;
}else{
s/<CGI:submit>//i;
}
}
return 1;
}

質問内容が不十分の所もあるかもしれませんが、よろしくお願いします。

回答No.1

alfeim · ベストアンサー

たしか<textarea>タグでの値渡しはvalueではなく、
<textarea>と</textarea>で挟まれた部分がデータとして渡されたはずですので、

>$t_comment.= "name=\"comment\" value=\"$comment\"></textarea>\n";
を

$t_comment .= "name=\"comment\">$comment</textarea>\n";
に書き換えてみてください。

お礼

早速お教えいただき、感謝します。
お蔭様で上手くいきました。有難うございます。
「マスターに推薦」