YAPC::Asia::2008

鐃緒申鐃叔わ申鐃緒申鐃薯が書かわ申討鐃緒申泙鐃緒申鐃緒申鐃�

[鐃緒申] Unicode 鐃緒申16鐃淑随申鐃塾種申鐃塾誌申鐃夙わ申鐃緒申鐃緒申表鐃緒申鐃淑どで醐申鐃緒申鐃潤す
pack 鐃緒申 Encode::decode 鐃緒申箸鐃緒申鐃緒申匹鐃緒申澆鐃緒申鐃緒申鐃�
鐃熟てなブッワ申鐃殉￥申鐃緒申 - miyagawa鐃塾ブッワ申鐃殉￥申鐃緒申 / 2008年05鐃緒申11鐃緒申
鐃緒申鐃緒申 HTML::Entities::decode / regexp 鐃叔わ申 chr(hex($1)) 鐃塾ほわ申鐃緒申鐃緒か鐃緒申笋刻申鐃緒申覆鐃緒申鐃緒申鐃�

鐃緒申鐃緒申鐃瞬わ申鐃銃わ申鐃緒申鐃緒申鐃緒申鐃塾駕申鐃粛はわ申鐃緒申里如鐃�

HTML::Entities鐃緒申箸鐃�

鐃殉わ申鐃緒申HTML::Entities鐃緒申decode_entities()鐃緒申箸鐃緒申箸鐃緒申鐃緒申鐃祝￥申鐃緒申鐃緒申鐃殉わ申鐃緒申鐃緒申鐃曙が鐃駿ワ申鐃夙プラク鐃銃ワ申鐃緒申鐃緒申鐃淑￥申

#!/usr/local/bin/perl
use strict;
use warnings;
use Encode;
use HTML::Entities;

my $eucjp = "Dan Kogai \xbe\xae\xbb\xf4\xc3\xc6 断固害";
my $utf8  = decode('eucjp', $eucjp);

binmode STDOUT, ':utf8';
print $utf8, "\n";
print decode_entities($utf8), "\n";

鐃緒申鐃緒申鐃緒申鐃夙わ申鐃銃は￥申鐃緒申鐃�UTF-8鐃祝わ申鐃銃わ申鐃緒申鐃夙わ申鐃緒申鐃緒申鐃夙わ申鐃藷げわ申鐃殉わ申鐃緒申鐃緒申鐃緒申覆鐃�UTF-8鐃祝わ申鐃緒申鐃緒申鐃緒申鐃叔￥申文鐃緒申鐃緒申鐃緒申(character reference)鐃緒申鐃緒申分鐃緒申(ASCII鐃淑のわ申)鐃緒申鐃塾ままなので￥申鐃緒申鐃塾逆わ申鐃夙￥申decode_entities()鐃緒申UTF-8鐃緒申鐃緒申鐃曙た鐃緒申分鐃夙醐申鐃緒申文鐃緒申鐃緒申鐃緒申鐃宿わ申鐃緒申鐃緒申鬚犬辰鐃緒申丱鐃緒申鐃緒申鵑�緒申鐃緒申討鐃緒申泙鐃緒申泙鐃緒申鐃�

Dan the Perl Monger

鐃緒申鐃緒申表鐃緒申鐃叔わ申鐃�

鐃宿わ申鐃緒申鐃銃わ申鐃緒申鐃緒申表鐃緒申鐃叔わ申蠅随申鐃緒申鐃緒申箸鐃緒申鐃緒申鐃緒申呂鐃緒申鐃淑器申鐃緒申鐃叔わ申鐃順う鐃緒申鐃緒申

#!/usr/local/bin/perl
use strict;
use warnings;
use Encode;

my $eucjp = "Dan Kogai \xbe\xae\xbb\xf4\xc3\xc6 断固害";
my $utf8  = decode('eucjp', $eucjp);

binmode STDOUT, ':utf8';
print $utf8, "\n";
$utf8 =~ s/([0-9A-Fa-f]{2,6});/chr hex $1/eg;
print $utf8, "\n";

鐃緒申鐃緒申鐃緒申鐃緒申鐃緒申鐃塾常申鐃祝わ申&鐃塾よう鐃緒申名鐃緒申鐃叔誌申鐃夙わ申鐃緒申鐃緒申里鐃緒申弔辰討鐃緒申泙鐃緒申泙鐃緒申鐃緒申覆鐃駿わ申HTML::Entities鐃緒申弔鐃緒申辰鐃緒申鐃緒申鐃緒申茲わ申任鐃緒申腓�鐃緒申

Dan the Man with Too Many Bits and Bytes to Transcode