Changeset 10024

Timestamp:

04/21/08 00:09:25 (5 years ago)

Author:

tokuhirom

Message:

docomo は 10 進数実体参照sjis OK.

Location:

lang/perl/HTML-ReplacePictogramMobileJp/trunk

Files:

• lib/HTML/ReplacePictogramMobileJp/DoCoMo.pm (modified) (2 diffs)
• t/01_simple.t (modified) (2 diffs)

lang/perl/HTML-ReplacePictogramMobileJp/trunk/lib/HTML/ReplacePictogramMobileJp/DoCoMo.pm

@@ -3 +3 @@
 use warnings;
 use HTML::ReplacePictogramMobileJp::Base;
+use Encode;
 
 filter utf8 => 'x-utf8-docomo', sub {
@@ -12 +13 @@
     unicode_property 'I';
     unicode_hex_cref 'I';
+
+    s/&#([0-9]+);/
+        my $original = $1;
+        my $x = unpack 'U*', decode 'x-sjis-imode', pack 'H*', sprintf '%x', $original;
+        callback($x, 'I')
+    /gei;
 };
 

lang/perl/HTML-ReplacePictogramMobileJp/trunk/t/01_simple.t

@@ -1 +1 @@
 use strict;
 use warnings;
-use Test::More tests => 16;
+use Test::More tests => 17;
 use HTML::ReplacePictogramMobileJp;
 use Encode;
@@ -9 +9 @@
 is _x('I', 'sjis', encode('x-sjis-docomo', "\x{E757}")), "<U+E757> I";
 is _x('I', 'sjis', "&#xE757;"), "<U+E757> I";
+is _x('I', 'sjis', "&#63647;"), "<U+E63E> I";
 
 is _x('E', 'utf8', encode('x-utf8-ezweb', "\x{ED80}")), "<U+ED80> E";