最近は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,小物入れ 洗濯バサミ,ピンチ 積み木,おもちゃ 地図,世界地図 ジクソーパズル,ピース ビーチサンダル 拳銃,銃,鉄砲,ライフル 積み木,おもちゃ,組み木 家,ハウス 椅子,テーブル,応接セット,テーブルセット 酒,ワイン,洋酒,ボトル