- ベストアンサー
CGI 文字化け
CGIプログラムでうまく日本語が表示できません。 表示できても、余分な文字列が入ってしまいます。ソースは以下です。 #!/usr/bin/perl -w print "Content-type: text/html\n\n"; use DBI; use CGI; $q = new CGI; print $q->header; $no = $q->param('no'); $program= $q->param('program'); my $UDBNAME=""; my $USERNAME=""; my $USERPASS=""; my $db = DBI->connect("DBI:Pg:dbname=$UDBNAME",$USERNAME,$USERPASS); my $sth=$db->prepare(" select * from server where no = $no "); $sth->execute; my $num_rows=$sth->rows; if($num_rows <= 0){ print <<"_HTML_"; <HTML> <HEAD> <META http-equiv="Content-Type" content="text/html; charset=ecu-jp"> </HEAD> <BODY> <TITLE>Server Search</TITLE> <img src = "http:///Logo.gif"> <BR> <HR width="90%"> <BR> <BR> 文字化け確認! <BR> <BR> <HR width="90%"> </HTML> _HTML_ 以上のようなプログラムをブラウザーで表示させると 先頭行に Content-Type: text/html; charset=ISO-8859-1 と表示されてしまいます。文字化けはしないのですが、余計な Content-Type: text/html; charset=ISO-8859-1 はどうしたら取り除けるのでしょうか？ ちなみにapacheの設定も AddLanguage ja .ja を先頭に LanguagePriority ja en ca cs AddCharset EUC-JP .euc-jp .cgi を先頭に のように設定しております。 もし、お分かりの方教えてください。
- みんなの回答 （2）
- 専門家の回答
質問者が選んだベストアンサー
プログラムの２行目で print "Content-type: text/html\n\n"; と出力しているのに、６行目で print $q->header; と再びヘッダーを出力しているのが Content-Type: text/html; charset=ISO-8859-1 と表示される原因だと思います。
その他の回答 (1)
- flowermaze
- ベストアンサー率56% (159/282)
＞ print "Content-type: text/html\n\n"; ＞ print $q->header; HTTPヘッダがだぶってます。
お礼
ご回答ありがとうございました。 無事解決しました。
お礼
ご回答ありがとうございました。 無事解決しました。