UTF-8と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);

文字化け対策が必要な文字は
「~」「∥」「-」「¢」「£」「¬」

==PR==
色鉛筆,カラーペンシル ナイフ,短剣 緑,植物,グリーン,葉,葉っぱ ソリ 車,トラック 机,デスク,椅子,チェアー,テーブルセット,応接セット 船,帆,ボート トマト,ミニトマト ミリタリー,BOX 箱,BOX,小物入れ 洗濯バサミ,ピンチ 積み木,おもちゃ 地図,世界地図 ジクソーパズル,ピース ビーチサンダル 拳銃,銃,鉄砲,ライフル 積み木,おもちゃ,組み木 家,ハウス 椅子,テーブル,応接セット,テーブルセット 酒,ワイン,洋酒,ボトル


SNSでもご購読できます。

コメントを残す


This site uses Akismet to reduce spam. Learn how your comment data is processed.