Changeset 4878 for lang/perl/Encode-JP-Mobile/trunk/tools

Timestamp:

01/18/08 16:08:47 (10 months ago)

Author:

miyagawa

Message:

updating Charnames to get English names by mapping kddi/softbank to DoCoMo? and 'borrow' these names.

Files:

• lang/perl/Encode-JP-Mobile/trunk/tools/docomo-scrape.pl (moved) (moved from lang/perl/Encode-JP-Mobile/trunk/tools/docomo-uni2name.pl) (1 diff)

lang/perl/Encode-JP-Mobile/trunk/tools/docomo-scrape.pl

@@ -37 +37 @@
         @prev == @chars or die "ja/en count doesn't match";
         for my $c (0..$#prev) {
-            $prev[$c]->{en_name} = $chars[$c]->{name};
+            $prev[$c]->{name_en} = $chars[$c]->{name};
         }
         push @$res, @prev;