Main Contents
Perl 5.8未満でもOKなUTF8フラグ除去コード
XML::RSSを使うとUTF8フラグが付いちゃいますが、utf8::encodeで除去できます。
しかしutf8はPerl 5.8.x以上(5.7.x以上？)じゃないと使えないんですねぇ。
たまたま使ったサーバが5.6.xだったので使えず焦りました。
ところが今回は意外とあっさり正規表現を使った代替コードを発見。
助かりましたー。
正規表現ファンタジスタ！(おおげさ)。
nDiki: [WiKicker] WiKicker の文字化け対応 (2004-02-03)
ここのコード例は、Wikickerのスニペットのようなので、
$val = eval "no utf8; \$val =~ /^(.*)\$/; \$1";
こんな感じで使いました。
- by 宮永邦彦
- at 2005年09月06日 22:02
- in プログラミング道
TrackBacks
トラックバックURL:
Post a comment