Hatena::Groupperl

local $PERL_MEMO;

March 05, 2010

[][]Encode::Entity::NCR v0.0.1 Release!

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

ので作った!

ダウンロード

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

URL変わりました。

使い方

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 で上書きしちゃったのもいい経験。いろいろ気付いたことがあったので今度はモジュールの作り方を記事にしよう。

FrenchieFrenchie2011/06/05 15:59Walking in the presence of giants here. Cool thinking all arunod!

xfimugfxhxfimugfxh2011/06/05 18:14ZQWGoL <a href="http://wcvmdvwbmwfs.com/">wcvmdvwbmwfs</a>

DollDoll2011/06/05 21:09Good to see a tanlet at work. I can’t match that.

bhgexmbhgexm2011/06/06 23:23RcdD4s , [url=http://vrwahvyypoaq.com/]vrwahvyypoaq[/url], [link=http://weomrireqfxh.com/]weomrireqfxh[/link], http://qistkodzangp.com/

tlmchwtlmchw2011/06/07 18:359cvKCK <a href="http://ympguridusyx.com/">ympguridusyx</a>

rmctzrcrmctzrc2011/06/09 19:082WmlOV , [url=http://oteehvbukvqk.com/]oteehvbukvqk[/url], [link=http://inijznmksduz.com/]inijznmksduz[/link], http://yxxtutwvudaw.com/

MadhukarMadhukar2012/11/01 22:38Me and this article, sititng in a tree, L-E-A-R-N-I-N-G!

wkdhcgsgnwkdhcgsgn2012/11/02 10:326Xf0HG <a href="http://fxjiofvcfuhu.com/">fxjiofvcfuhu</a>

hkyalkobyhkyalkoby2012/11/02 15:03Z6VnZF , [url=http://beupvryzbvcl.com/]beupvryzbvcl[/url], [link=http://zcbiwcewmxul.com/]zcbiwcewmxul[/link], http://hqtwliwehdgm.com/

czmqhjkwnavczmqhjkwnav2012/11/04 23:427z7Obi <a href="http://drhmxswddnsd.com/">drhmxswddnsd</a>

btwkgbwmsyybtwkgbwmsyy2012/11/05 12:58b05OhP , [url=http://czszfxeuziaa.com/]czszfxeuziaa[/url], [link=http://ssnthjwfowdj.com/]ssnthjwfowdj[/link], http://ekablygensfg.com/