Perl cgiの文字化けを直したい (UTF8)

2023/08/11 08:27

このQ&Aのポイント

現在、jcode.plを使用したShift JISで構成されていた Perlのcgi を UTF-8 に改造しています。フォームに書き込んだPAGETITLEを別ファイルへUTF-8で書きこむ際に、文字化けしてしまいます。
以下のPerlのPAGETITLEをどのように改造すれば、文字化けしないで、$foundations_fileへUTF-8で書き込みすることができるのでしょうか？※個人的にはデータ書き込みの sub REGIST 以下を改造すれば良いのではと推測していますが、どうやれば良いのか分かりません。
どうかご教示、よろしくお願い致します。m（＿＿）m

ベストアンサー

Perl cgiの文字化けを直したい (UTF8)

2011/05/05 18:53

現在、jcode.plを使用したShift JISで構成されていた Perlのcgi を UTF-8 に改造しています。フォームに書き込んだPAGETITLEを別ファイルへUTF-8で書きこむ際に、文字化けしてしまいます。書きこんだファイルを開けてみると、日本語が文字化けしています（アルファベットは大丈夫）以下のPerlのPAGETITLEをどのように改造すれば、文字化けしないで、$foundations_fileへUTF-8で書き込みすることができるのでしょうか？ ※個人的にはデータ書き込みの sub REGIST 以下を改造すれば良いのではと推測していますが、どうやれば良いのか分かりません。どうかご教示、よろしくお願い致します。 m（＿＿）m ------------------------------------- #!/usr/bin/perl use utf8; binmode STDIN,":utf8"; binmode STDOUT,":utf8"; #基本セットアップファイル読込 require './setup_manage.cgi'; #このファイル $cgi = "./foundations.cgi"; #デコード処理 &DECODE; sub VIEW { #基本設定ファイルの読み込み &FOUNDATIONS_READ; 【省略】 <TABLE width="100%" border="0" cellspacing="0" cellpadding="1"><TR> <TD width="70%">変更するデータを直接書き換えて [ 編集実行 ] を押して下さい。</TD> <FORM method="post" action="./login.cgi"> <TD width="30%" align="right"><INPUT type="submit" value="メインメニューに戻る"></TD> <INPUT type="hidden" name="mode" value="main"> <INPUT type="hidden" name="pw" value="$in{'pw'}"> </FORM> </TR></TABLE> 【省略】 <TABLE border="0" cellspacing="1" cellpadding="4" bgcolor="#999999"><TR> <FORM name="SUBMIT" method="post" action="$cgi" onSubmit="return kakunin()"> <TD width="160" bgcolor="#eeeeee"> <TABLE border="0" cellspacing="0" cellpadding="1"><TR> <TD>ページタイトル</TD> </TR></TABLE> </TD> <TD width="400" bgcolor="#ffffff"> <TABLE border="0" cellspacing="0" cellpadding="1"><TR> <TD><INPUT type="text" name="PAGETITLE" size="60" value="$PAGETITLE"></TD> </TR></TABLE> </TD> 【省略】 ------------------------------------------------- # データ書き込み #------------------------------------------------- sub REGIST { #全角英数字を半角に変換 $zenkaku = '０１２３４５６７８９'; $hankaku = '0123456789'; $in{'PAGETITLE'} =~ s/\,/&%/g; $in{'PAGE1'} =~ s/\,//g; $in{'PAGE2'} =~ s/\,//g; $in{'PAGE3'} =~ s/\,//g; $in{'CATECOL'} =~ s/\,//g; $in{'PERIOD'} =~ s/\,//g; $in{'TABLECOL'} =~ s/\,//g; $in{'SIZECOL'} =~ s/\,//g; $in{'SIZEROW'} =~ s/\,//g; $in{'COPYRIGHT'} =~ s/\,/&%/g; #ファイルロック開始 if( $lockkey ne '0' ){ &LOCK; } #ファイルに書きこむ if (!open(OUT,">:utf8",$foundations_file)) { &ERROR( read_foundations ); } print OUT "$datenow,$in{'PAGETITLE'},$in{'INIMODE'},$in{'MODECHG'},$in{'PAGE1'},$in{'PAGE2'},$in{'PAGE3'},$in{'CATEVIEW'},$in{'CATECOL'},$in{'INICATE'},$in{'PERIOD'},$in{'RANKING'},$in{'CMODE'},$in{'RANKVIEW'},$in{'TITLEVIEW'},$in{'SRCHVIEW'},$in{'INPVIEW'},$in{'DATAROW'},$in{'TABLECOL'},$in{'BARCLR'},$in{'BARPER'},$in{'IMGPRT'},$in{'IMGSIZE'},$in{'SIZECOL'},$in{'SIZEROW'},$in{'IMGFRM'},$in{'COPYRIGHT'},$in{'GPVIEW'},"; close(OUT); #ファイルロック解除 if( $lockkey ne '0' ){ &UNLOCK; } &COMP; }

mcse
お礼率55% (148/266)

Perl
回答数12
ありがとう数12

みんなの回答 （12）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

Tacosan
ベストアンサー率23% (3656/15482)

2011/05/08 22:28 回答No.9

どう「実際に Encode::decode を使ったのか」が疑問ですが.... 少なくとも, pack しただけでダメなのは文字数を考えれば明らかで, 「pack で得られた文字列を改めて UTF-8 として解釈し直す」というのは必須なはず. あと, 「フォームで出てくる」というときに, フォントなんかも問題になりえる. そもそも UTF-16 な出力をしているときに UTF-8 な出力をしちゃったらどう考えてもダメだし, あるいは「理由はさておき UTF-8 な文字コードを上手く扱えないフォントレンダラー」だったりするとやっぱり UTF-8 じゃダメだよね. ということは, 「フォームの表示を見る」だけではダメで, HTML (なり XHTML なり) のレベルで正しくなっているかどうかから考えなきゃならないような感じがします.

質問者

お礼 2011/05/08 23:28

たびたびのご回答、誠にありがとうございました。とても参考になります。 HTMLの設定は、以下のように全てUTF-8にしています。 ------------------------------- sub HEADER { print "Content-type: text/html; charset=utf-8\n\n"; #print "Content-type:text/html\n\n"; print <<"EOF"; <HTML><HEAD> <TITLE>管理ページ - 基本設定</TITLE> <META http-equiv="Content-Type" content="text/html; charset=utf-8"> <META http-equiv="Content-Script-Type" content="text/javascript"> <META http-equiv="Content-Style-Type" content="text/css"> <META http-equiv="imagetoolbar" content="no"> <META name="robots" content="none"> <META name="robots" content="noindex,nofollow"> <LINK rel="stylesheet" type="text/css" href="$css"> <SCRIPT Language="JavaScript"></SCRIPT> </HEAD> <BODY topmargin="10" leftmargin="0" rightmargin="0" text="#333333" bgproperties="fixed"> ------------------------------- あと文字が化けて出てくる "$PAGETITLE" の記載してあるHTMLも、上記設定内に含まれているので、UTF-8の状態になっているはずです。 ------------------------------- <TABLE width="100%" border="0" cellspacing="0" cellpadding="0"><TR> <TD height="15"><HR width="100%" size="1" color="#cccccc"></TD> </TR></TABLE> <TABLE border="0" cellspacing="0" cellpadding="0"><TR> <TD height="30">最終更新日時： <FONT class="g10pt" color="#003d84">$DATE_FOUNDATIONS</FONT></TD> </TR></TABLE> <TABLE border="0" cellspacing="1" cellpadding="4" bgcolor="#999999"><TR> <FORM name="SUBMIT" method="post" action="$cgi" onSubmit="return kakunin()"> <TD width="160" bgcolor="#eeeeee"> <TABLE border="0" cellspacing="0" cellpadding="1"><TR> <TD>ページタイトル</TD> </TR></TABLE> </TD> <TD width="400" bgcolor="#ffffff"> <TABLE border="0" cellspacing="0" cellpadding="1"><TR> <TD><INPUT type="text" name="PAGETITLE" size="60" value="$PAGETITLE"></TD> </TR></TABLE> </TD> </TR><TR> ------------------------------- あと一息だと思うんですが・・・

その他の回答 (11)

Tacosan
ベストアンサー率23% (3656/15482)

2011/05/11 23:48 回答No.12

なんか言葉が足らないんだよな～. 例えば #8 のお礼で「Encode::decodeを試してみましたが、うまくいきませんでした。」って書いてるけど, これであなたが「どのように試したのか」わかる人がいると思いますか? また, #10 の方でも「はい、HTMLは確認しています。」と書いてるけど, 具体的にどのように確認したの?

質問者

お礼 2011/05/13 21:56

お礼遅くなりましてすみません。ご返答ありがとうございました。ご指摘の通り、言葉足らずでした。以下のコードを入れてみましたが、ダメでした。 use Encode::Guess qw/ shiftjis euc-jp 7bit-jis /; use Encode qw/ decode /; $enc = guess_encoding ( $PAGETITLE ); if ( ref $enc ) { $utf8 = decode ( $enc->name , $PAGETITLE ); } htmlはコードの <META http-equiv="Content-Type" content="text/html; charset=utf-8"> とcharset=utf-8　に全て変えました。またIE や Firefoxで確認しましたが、やはり文字化けしていました。いろいろ試しても変わらないので、諦めようかとも考えてきました。

kabaokaba
ベストアンサー率51% (724/1416)

2011/05/10 08:59 回答No.11

思うんだけど・・・無駄に複雑なもので検証してないです？ここまでごちゃごちゃになったらいっそすっきり単純化してひとまず「正しく動くもの」を作れません？たとえば，ラジオボタンだけで日本語の文字列を送って処理して出したり， hidden属性もでいいや，それとか POSTとGETを切り替えたりとにかく単純でロジックが簡単に追えるもの．いまのままだと URLエンコーデとPerlのencodeとかがごっちゃごちゃになってませんか？あとは，吐き出したファイル（htmlの必要ないですよね，ひとまず）をエディタでみるんじゃなくて，バイナリエディタでみてコードそのものを確認するとかも必要かもそうすればブラウザやフォントの問題か否かもわかるのでは？

質問者

お礼 2011/05/10 22:18

kabaokabaさまご回答ありがとうございました。単純化するというのは、非常に良いアイデアだと思いますので、週末にチャレンジしようと思います。「バイナリエディタでみてコードそのものを確認する」ということに関して、よく分からなかったのですが、やった方がよさそうみたいなので、ネットで意味を調べて分析を頑張りたいと思います。フォントというヒントを頂き、なるほど！と思って、cssファイルのフォントをSimsunからMSゴシックに変えてみました。しかしながら、症状は同じで文字化けは引き続き発生しています。

Tacosan
ベストアンサー率23% (3656/15482)

2011/05/09 23:39 回答No.10

「実際に出力された (X)HTML」は確認してる?

質問者

お礼 2011/05/10 22:15

またご回答頂きまして、ありがとうございました。はい、HTMLは確認しています。やはり、化けたままです・・・。

Tacosan
ベストアンサー率23% (3656/15482)

2011/05/08 15:03 回答No.8

Encode::decode?

質問者

お礼 2011/05/08 21:14

ご回答ありがとうございました。 Encode::decodeを試してみましたが、うまくいきませんでした。（私のやり方が悪かったのかもしれませんが・・・）なかなかの難問です（汗）

ryu_chan
ベストアンサー率37% (69/186)

2011/05/08 11:15 回答No.7

もう一度、確認させてください。 No.2の記述で、 # これはコメントアウト #binmode STDIN,":utf8"; というのも書いてますが、これもした上で文字化けをしているのでしょうか？ URLエスケープされた文字列に対してutf8フラグが立っているように見えるんですよね。していただくことをまとめると、まず、以下をコメントアウト。 #binmode STDIN,":utf8"; そして、以下もコメントアウト。 #デコード処理 #&DECODE; さらに、以下の3行を追加。 sub REGIST { #全角英数字を半角に変換 $zenkaku = '０１２３４５６７８９'; $hankaku = '0123456789'; # ここに以下3行を追加 use Encode; use CGI; %in = map decode_utf8($_), CGI->new->Vars; $in{'PAGETITLE'} =~ s/\,/&%/g; $in{'PAGE1'} =~ s/\,//g;

質問者

お礼 2011/05/08 23:37

度々のご回答、誠にありがとうございます。はい、この通り行っても文字化けしています。ファイルへ書き出す際に化けている気がしますが、その原因が分からないので悲しいです。どうか引き続きよろしくお願い致します。

質問者

補足 2011/05/09 22:10

お世話になっております。以下のサイトは、何か手掛かりにならないでしょうか？ perlのUTF8プログラミングでのURLエンコード http://typeangler.net/?m=blog&eid=f02547e63ab646ccc4c916ad6f25cc89355c1901

ryu_chan
ベストアンサー率37% (69/186)

2011/05/08 09:04 回答No.6

前回の質問では、 stdio::getFormData(\%in,1,"sjis",1,",","$updir/"); との記述があったのですが、今回のコードにはこれはないのでしょうか？あればコメントアウトしてください。できればエディタで、%inを検索して、%inの記述がある行を全て抽出お願いします。文字の化け具合に関しての補足は、詳しい人が回答（解説）してくれかもしれませんので、文字化けが解消しても質問はオープンのままでお願いします（実は私も回答者というよりこのサイトで勉強しているので＾＾；）

質問者

お礼 2011/05/08 10:25

ryu_chanさまご回答ありがとうございました。今回は、%in　も　stdio::getFormData(\%in,1,"sjis",1,",","$updir/");　もない状態です。ちょっと途方に暮れていますが、もし、何かお気づきの点がありましたら、よろしくお願い致します。 m（＿　＿）m

ryu_chan
ベストアンサー率37% (69/186)

2011/05/08 07:08 回答No.5

#$in{'PAGETITLE'} =~ s/\,/&%/g; #$in{'PAGE1'} =~ s/\,//g; これらは代入でなく置換なのでコメントアウトする必要はないです。推測で、 #デコード処理 &DECODE; ここの関数の中で、%inに代入しているのでしょう。なので、この関数呼び出しをコメントアウトして、No.2の記述を追加すればどうなるでしょうか？

質問者

お礼 2011/05/08 08:08

ryu_chanさま丁寧なご回答、誠にありがとうございます。 #&DECODE;として、No.2の記述を記載しましたが、ダメでした。 No.4のTacosanさまのアドバイスに基づき、文字コードの化け具合を遅まきながら確認してみました。問題のフォームにあ　を入れると「ã」※　と出ます。 ※化けて表示される可能性もあるので、念のため化けた文字の説明も書いておきます。・aの上に波線がある文字　と □の中に小さな数字４つ入っており、・上二段が左から00 ・下二段は左から81 次の□の数字は・上二段が左から00 ・下二段は左から82 と書いてありました。いつも、上記の状態で文字化けします。この文字を http://seo.atompro.net/webtoolfree_strcnvj_.html でescape変換すると、変換後の文字列は、 %E3%81%82 となりました。さらにこの文字を http://seo.atompro.net/webtoolfree_strcnva_.html で変換前：urldecode 変換後：sjis で変換すると、見事に　あ　の文字に戻りました。ちょっと複雑な感じがしますが、この情報を元に、改善策を練ることはできますでしょうか？何卒よろしくお願い致します。 m（＿　＿）m

質問者

補足 2011/05/08 08:21

ちなみにDECODE処理は以下の通りです。 #------------------------------------------------- # デコード処理 #------------------------------------------------- sub DECODE { if ($ENV{'REQUEST_METHOD'} eq "POST") { read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});} else { $buffer = $ENV{'QUERY_STRING'}; } @pairs = split(/&/,$buffer); foreach $pair (@pairs) { ($name,$value) = split(/=/, $pair); $name2 = $name; $value2 = $value; $FORM2{$name} = $value; $value =~ tr/+/ /; $value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; #半角カナを全角に変換 # Jcode::h2z_sjis(*value); #文字コード変換 # Jcode::convert(*value,'sjis'); $value =~ s/</</g; $value =~ s/>/>/g; $value =~ s/\n/!%/g; $value =~ s/\r//g; $value =~ s/\t//g; $value =~ s/\,/&%/g; $value =~ s/ / /g; #フォーム変数へ $in{$name} = $value; } } よろしくお願い致します。

Tacosan
ベストアンサー率23% (3656/15482)

2011/05/08 00:26 回答No.4

「UTF-8で外部ファイルへ書き込めていない」と推測した根拠は? 「UTF-8 じゃない」としたら何で書き込まれている? 「具体的には、どうすれば良いでしょうか」って聞いてるけど, 「何を入力したら何が出てくるのか」はわかるはずだから, あとは文字コード表とにらめっこすればいいだけ. 「文字化けしてる」と思ったらこのくらいは考えていいんじゃない?

質問者

お礼 2011/05/08 08:12

Tacosanさまご指摘及びアドバイス、誠にありがとうございます。基本的なところが抜けておりまして、誠に恥ずかしい限りです。文字化けについて分析したところ、新たなことが分かりました！ ※詳細はNo.5様のご回答のお礼に記述しました。解決へ向けて一歩進めることができました！

kabaokaba
ベストアンサー率51% (724/1416)

2011/05/07 11:55 回答No.3

回答側で動きもしないcgiのスクリプトをdebugする元気はないけどそもそも， cgiではない「普通のperl script」の段階で日本語の入出力はできてるのですか？日本語が書かれたファイルを読み込んで，処理した後にまた別ファイルに出力するってことができてるんでしょうか？それができてるのであれば cgi特有の部分が問題だということになるのでは？

質問者

お礼 2011/05/08 00:07

kabaokabaさま、ご回答ありがとうございました！日本語が書かれたファイルを読み込んで，処理した後にまた別ファイルに出力することはできています。出力の際に、文字化けして書き込んでいる状況です。 cgi特有の部分というのは、具体的にどのあたりが怪しいと思われるのかアドバイス頂けると幸いです。お手数おかけ致しますが、よろしくお願い致します。 m（＿　＿）m

ryu_chan
ベストアンサー率37% (69/186)

2011/05/07 11:50 回答No.2

コードを1つ1つ追跡すれば問題箇所が分かるかもしれませんが、もし%inに入っている値が全てフォームから来る文字列ならば、以前と同じようCGI.pmに丸投げしてみてはどうでしょうか？ # これはコメントアウト #binmode STDIN,":utf8"; # %inに代入してるところを以下に変更 use Encode; use CGI; %in = map decode_utf8($_), CGI->new->Vars;

質問者

お礼 2011/05/08 00:04

ryu_chanさままたご回答頂きまして、ありがとうございました！ #binmode STDIN,":utf8";　として、 #$in{'PAGETITLE'} =~ s/\,/&%/g; #$in{'PAGE1'} =~ s/\,//g; #$in{'PAGE2'} =~ s/\,//g; #$in{'PAGE3'} =~ s/\,//g; #$in{'CATECOL'} =~ s/\,//g; #$in{'PERIOD'} =~ s/\,//g; #$in{'TABLECOL'} =~ s/\,//g; #$in{'SIZECOL'} =~ s/\,//g; #$in{'SIZEROW'} =~ s/\,//g; #$in{'COPYRIGHT'} =~ s/\,/&%/g; # %inに代入してるところを以下に変更 use Encode; use CGI; $in = map decode_utf8($_), CGI->new->Vars; と変更してみましたが、やはり症状は変わりませんでした。上記変更方法が間違えているのでしょうか・・・・

Perl cgiの文字化けを直したい (UTF8)

Perl cgiの文字化けを直したい (UTF8)