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

Timestamp:

01/18/08 10:28:13 (10 months ago)

Author:

tokuhirom

Message:

lang/perl/Encode-JP-Mobile: added unicode_auto into kddi-table.*

Files:

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

lang/perl/Encode-JP-Mobile/trunk/tools/kddi-extract.pl

@@ -3 +3 @@
 use warnings;
 use Encode;
+use Encode::JP::Mobile;
 use CAM::PDF;
+
+# scraping from http://www.au.kddi.com/ezfactory/tec/spec/pdf/typeD.pdf
 
 my $file = shift or die "Usage: kddi-extract.pl typeD.pdf\n";
@@ -9 +12 @@
 
 my @res;
-foreach my $p (1..$doc->numPages()) {
+for my $p (1..$doc->numPages()) {
     my $text = decode("shift_jis", $doc->getPageText($p));
     while ($text =~ m/(\d+)(?: |[abcdef \x{FF43}\x{3000}]+|\x{306A}\x{3057} )([^ ]*) ([0-9A-F]{4})([0-9A-F]{4})([0-9A-F]{4})([0-9A-F]{4})/gs) {
@@ -15 +18 @@
         @data{qw( number name sjis unicode email_jis email_sjis )} = ($1, $2, $3, $4, $5, $6);
         $data{name} =~ s/\n//g;
+        $data{unicode_auto} = sprintf '%X', ord decode 'x-sjis-kddi-auto', pack "H*", $data{sjis};
         push @res, \%data;
     }