Changeset 5243 for lang/perl/Encode-JP-Mobile/trunk/tools/make-utf8-ucm.pl

Timestamp:

01/22/08 10:01:31 (10 months ago)

Author:

tokuhirom

Message:

2コマ系絵文字の相互変換に対応。2コマ分の bytes を ucm に定義。以前は、最初の1コマをひろっていた。
see. http://gyazo.com/db2cc92d58aff62fb3e1783bd32b9b5e.png

Files:

• lang/perl/Encode-JP-Mobile/trunk/tools/make-utf8-ucm.pl (modified) (1 diff)

lang/perl/Encode-JP-Mobile/trunk/tools/make-utf8-ucm.pl

@@ -90 +90 @@
 sub unihex2utf8hex {
     my $uni = shift;
-    $uni = 'H*'->unpack($uni->hex->chr->encode('utf-8'));
-    $uni =~ s/(..)/\\x$1/g;
+    $uni =~ s{(....)}{
+        my $x = 'H*'->unpack($1->hex->chr->encode('utf-8'));
+        $x =~ s/(..)/\\x$1/g;
+        $x;
+    }ge;
     $uni;
 }