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