/
mktbl.pl
54 lines (47 loc) · 1.57 KB
/
mktbl.pl
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
use strict;
use warnings;
use JSON;
use Data::Dumper;
use LWP::Simple;
&main;exit;
sub main {
my $docomo;
my $ezweb;
my $softbank;
my $au;
my $c_docomo = slurp_json('http://svn.openpear.org/Text_Pictogram_Mobile/trunk/data/docomo_convert.json')->{docomo};
my $e_docomo = slurp_json('http://svn.openpear.org/Text_Pictogram_Mobile/trunk/data/docomo_emoji.json')->{docomo};
my $e_softbank = slurp_json('http://svn.openpear.org/Text_Pictogram_Mobile/trunk/data/softbank_emoji.json')->{softbank};
while (my ($docomo_id, $val) = each %$c_docomo) {
$ezweb->{$docomo_id} = $val->{ezweb};
$docomo->{$docomo_id} = $e_docomo->{$docomo_id}->{unicode};
if ($val->{softbank} =~ /^\d+$/) {
$softbank->{$docomo_id} = $e_softbank->{$val->{softbank}}->{unicode};
} else {
$softbank->{$docomo_id} = $val->{softbank};
}
}
local $Data::Dumper::Sortkeys = 1;
local $Data::Dumper::Terse = 1;
print "package HTML::Pictogram::MobileJp::EmojiNumber::Map;\n";
print "use strict;\n";
print "use warnings;\n";
print "# This file was generated automatically.\n";
print "use base qw/Exporter/;\n";
print "our \@EXPORT = qw/\$DOCOMO \$EZWEB \$SOFTBANK/;\n";
print "our \$DOCOMO = ";
print Dumper($docomo);
print ";\n\n";
print "our \$EZWEB = ";
print Dumper($ezweb);
print ";\n";
print "our \$SOFTBANK = ";
print Dumper($softbank);
print ";\n";
print "1;\n";
exit;
}
sub slurp_json {
my $content = get($_[0]) // die;
decode_json($content);
}