Changeset 5444 for lang/perl/Encode-JP-Mobile/branches/character/lib/Encode/JP/Mobile/Character.pm

Timestamp:

01/25/08 00:19:56 (5 years ago)

Author:

tokuhirom

Message:

added $char->from_number method.

Files:

• lang/perl/Encode-JP-Mobile/branches/character/lib/Encode/JP/Mobile/Character.pm (modified) (4 diffs)

lang/perl/Encode-JP-Mobile/branches/character/lib/Encode/JP/Mobile/Character.pm

@@ -11 +11 @@
     my ($class, $unicode) = @_;
     bless {unicode => $unicode}, $class;
+}
+
+sub from_number {
+    my $class = shift;
+    my %args = @_;
+    my $carrier = $args{carrier} or croak "missing carrier";
+    my $number = $args{number} or croak "missing number";
+
+    my $dat = $class->_load_map;
+
+    $carrier = +{I => 'docomo', E => 'kddi', V => 'softbank', 'H' => 'docomo'}->{$carrier};
+    $number = encode_utf8($number);
+
+    my $key = $carrier eq 'kddi' ? 'unicode_auto' : 'unicode';
+    for my $row (@{$dat->{$carrier}}) {
+        if ($row->{number} eq $number) {
+            return $class->from_unicode(hex $row->{$key});
+        }
+    }
+    croak "unknown number: $number for $carrier";
 }
 
@@ -131 +151 @@
 unicode からインスタンスをつくります。
 
+=item from_name
+
+    my $char = Encode::JP::Mobile::Character->from_name(
+        carrier => 'I',
+        number  => "拡76",
+    );
+
+絵文字番号からインスタンスをつくります。
+
 =item name
 
@@ -157 +186 @@
 絵文字番号を得ます。
 
-# docomo はどうするか問題。
+DoCoMo の場合には「拡76」のような文字列が返ってくることに注意してください。
 
 =item carrier
@@ -168 +197 @@
 =back
 
-=head1 TODO
-
-carrier method
-
-performance tuning
-
 =head1 AUTHOR