Changeset 5328 for lang/perl/Encode-JP-Mobile

Timestamp:

01/23/08 10:00:44 (5 years ago)

Author:

miyagawa

Message:

print compatible table

Files:

• lang/perl/Encode-JP-Mobile/trunk/tools/softbank-convert.pl (modified) (3 diffs)

lang/perl/Encode-JP-Mobile/trunk/tools/softbank-convert.pl

@@ -14 +14 @@
 
 my @table;
+my %conv;
 for (split /\n/, $text) {
     next unless /^\d/;
@@ -31 +32 @@
     for my $c ( qw( softbank kddi docomo )) {
         warn "[$c] $_" unless defined $map{$c};
+        my $key = $c eq 'kddi' ? 'unicode_auto' : 'unicode';
         if ($map{$c} =~ m!/!) {
             my @code = split '/', $map{$c};
-            $map{$c} = join " ", map $from_number->{$c}{$_}{unicode}, @code;
+            $map{$c} = join "", map $from_number->{$c}{$_}{$key}, @code;
         } else {
             my $info = $from_number->{$c}{$map{$c}};
             if ($info) {
-                $map{$c} = $info->{unicode};
+                $map{$c} = $info->{$key};
             } elsif ($map{$c} ne '〓' && $map{$c} !~ /^\[/) {
                 warn "$c: $map{$c}";
@@ -45 +47 @@
 
     push @table, \%map;
+    $conv{$map{softbank}} = {
+        kddi => $map{kddi},
+        docomo => $map{docomo},
+    };
 }
 
 binmode STDOUT, ":utf8";
-print Dump \@table;
+#print Dump \@table;
+print Dump \%conv;
 
 sub setup_table {