local $PERL_MEMO;

■ [perl][encode]Encode::Entity::NCR v0.0.1 Release!

• XML::RSSが日本語を数値実体参照で返しやがるのに適当なデコーダがHTML::Entitiesくらいしか見つからない
• Encode.pmはエンコードできるけどデコードの仕方が分からない
• 毎回replaceかくのだるいし出来ればEncode.pmでなんとかしてほしい

ので作った！

ダウンロード

• http://github.com/UCormorant/Encode-Entity-NCR

のDownload Sourceってところから落とせます。

使い方

use Encode;
use Encode::Entity::NCR;
$ncr  = encode('Entity-NCR', $utf8);
$utf8 = decode('Entity-NCR', $ncr);

あとはpod見て。

Encode.pmだけでやる

use Encode qw(encode decode :fallbacks);
$dec_ncr = encode('ascii', $str, FB_HTMLCREF); # 10進数
$hex_ncr = encode('ascii', $str, FB_XMLCREF);  # 16進数
$dec_ncr =~ s/&#(\d+);/chr $1/eg;
$hex_ncr =~ s/&#x([\da-f]+);/chr hex $1/eig;
$ncr =~ s/&#(x)?([\da-f]+);/chr($1?hex $2:$2)/eig; # 両方いっぺんに

デコードがわかんないのでこれを毎回書くわけですけど、めんどい！エンコードのほうも :fallbacks とか覚えられない！

おしまい

何気にmakeするモジュール初めて作ったので楽しかった。一回うっかりして module-starter で上書きしちゃったのもいい経験。いろいろ気付いたことがあったので今度はモジュールの作り方を記事にしよう。