Changeset 5229 for lang/perl/Encode-JP-Mobile/trunk/tools/softbank-scrape.pl

Timestamp:

01/22/08 07:53:37 (10 months ago)

Author:

tokuhirom

Message:

r5455@skinny (orig r5195): tokuhirom | 2008-01-22 00:48:55 +0900
unicode2sjis_auto のマップは別ファイルとしてあらかじめつくっておく。unicode2sjis_auto のスクレイピング
スクリプトは chiba さんにつくっていただく予定になってます。

Files:

• lang/perl/Encode-JP-Mobile/trunk/tools/softbank-scrape.pl (modified) (1 diff)

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

@@ -25 +25 @@
 my $res;
 foreach my $url (@urls) { push @$res, @{$emoji->scrape(URI->new($url))} };
+fill_sjisauto($res);
 binmode STDOUT, ":utf8";
 print Dump $res;
+
+sub fill_sjisauto {
+    my $res = shift;
+    my $uni2sjisauto = YAML::LoadFile('dat/softbank-unicode2sjis_auto.yaml');
+    for my $row (@$res) { 
+        $row->{sjis_auto} = $uni2sjisauto->{$row->{unicode}};
+    }
+}