CGI

最近はUTF-8で記述しているサイトが多く、これまで使用していたCGIを流用させてみる。

Encodeモジュールを使用して

use Encode;
use CGI;

#文字をデコード
$body = decode (‘utf8’,$str);

# ～、－など文字化け対策
$body =~ tr/[\x{ff5e}\x{2225}\x{ff0d}\x{ffe0}\x{ffe1}\x{ffe2}]/[\x{301c}\x{2016}\x{2212}\x{00a2}\x{00a3}\x{00ac}]/;

#JISコードに再度変換
$body = encode (‘jis’,$body);

文字化け対策が必要な文字は
「～」「∥」「－」「￠」「￡」「￢」

よくお問い合わせフォームのCGIで「jcode.pl」を使用してエンコードしているcgiが多い。

最近はxhtmlが主流となりutf−8で記述することが多くなったため、
そのページで今までのcgiを使おうとすると、文字化けするわするわ。
こまったちゃんです。

今さらながら解決法を探っていると「Jcode.pm」の存在を知ったのでメモしておく。

使い方は簡単。
「Jcode.pm」をダウンロードしてjode.plと同じようにcgiと同じ階層にアップロードして「Jcode.pm」を使えるようにPerlソースに以下の1行を書きます。

use Jcode;

そして、変換するときに下記の例を参考に記入。

Jcode::convert( $str , "sjis", "utf8" );

第2引数が変換後の文字コードで第3引数が元の文字コードです。
文字コードの指定には、”jis”、”sjis”、 “euc”、”ucs2″、”utf8″が使えるようだ。

勉強になったわ〜。

UTF-8とCGI