YanoRyuichi.com/
Wiki
Blog
GitHub
Sandbox
開始行:
* 絵文字変換マップ作成スクリプト [#b06c991a]
アシアルの絵文字データベースと相互変換マッピングデータベ...
*** pictogram-1.1.tar.gz [#lb777e98]
http://blog.asial.co.jp/330
#!/usr/bin/perl
use strict;
use utf8;
use Encode qw/encode decode/;
use JSON;
use Jcode;
use Data::Dumper;
my %files = (
docomo => 'docomo_emoji.json',
convert => 'docomo_convert.json',
softbank => 'softbank_emoji.json',
au => 'ezweb_emoji.json',
);
unless (-e $files{docomo} && -e $files{convert} && -e $f...
die "can't find source files\n";
}
my %json;
foreach my $k (qw/docomo convert softbank au/) {
open my $fh, $files{$k} or die $!;
$json{$k} = do {local $/;<$fh>};
close $fh;
}
my %perl;
foreach my $k (qw/docomo convert softbank au/) {
$perl{$k} = JSON->new->decode($json{$k});
}
my %result;
foreach my $docomo_number ( keys %{ $perl{docomo}->{doco...
my $docomo_sjis10 = $perl{docomo}->{docomo}->{$do...
my $docomo_unicode = $perl{docomo}->{docomo}->{$do...
my $softbank_number = $perl{convert}->{docomo}->{$d...
my $softbank_sjis = $perl{softbank}->{softbank}->...
my $softbank_unicode = $perl{softbank}->{softbank}->...
my $au_number = $perl{convert}->{docomo}->{$d...
my $au_unicode = $perl{au}->{ezweb}->{$au_numb...
$result{$docomo_unicode} = {
'number' => $docomo_number,
'title' => encode( 'utf-8', $perl{docomo}->{d...
'color' => encode( 'utf-8', $perl{docomo}->{d...
'docomo' => $docomo_unicode,
'softbank' => $softbank_unicode ? $softbank_unic...
'au' => $au_unicode ? $au_unicode : 'X',
};
}
foreach my $k (keys %result) {
my $buf = sprintf "'&#x%s;'=>array('number'=>%d,'tit...
$k,
$result{$k}->{number},
$result{$k}->{title},
$result{$k}->{color},
$k,
$result{$k}->{au},
$result{$k}->{softbank};
print Jcode->new($buf)->utf8,"\n";
}
終了行:
* 絵文字変換マップ作成スクリプト [#b06c991a]
アシアルの絵文字データベースと相互変換マッピングデータベ...
*** pictogram-1.1.tar.gz [#lb777e98]
http://blog.asial.co.jp/330
#!/usr/bin/perl
use strict;
use utf8;
use Encode qw/encode decode/;
use JSON;
use Jcode;
use Data::Dumper;
my %files = (
docomo => 'docomo_emoji.json',
convert => 'docomo_convert.json',
softbank => 'softbank_emoji.json',
au => 'ezweb_emoji.json',
);
unless (-e $files{docomo} && -e $files{convert} && -e $f...
die "can't find source files\n";
}
my %json;
foreach my $k (qw/docomo convert softbank au/) {
open my $fh, $files{$k} or die $!;
$json{$k} = do {local $/;<$fh>};
close $fh;
}
my %perl;
foreach my $k (qw/docomo convert softbank au/) {
$perl{$k} = JSON->new->decode($json{$k});
}
my %result;
foreach my $docomo_number ( keys %{ $perl{docomo}->{doco...
my $docomo_sjis10 = $perl{docomo}->{docomo}->{$do...
my $docomo_unicode = $perl{docomo}->{docomo}->{$do...
my $softbank_number = $perl{convert}->{docomo}->{$d...
my $softbank_sjis = $perl{softbank}->{softbank}->...
my $softbank_unicode = $perl{softbank}->{softbank}->...
my $au_number = $perl{convert}->{docomo}->{$d...
my $au_unicode = $perl{au}->{ezweb}->{$au_numb...
$result{$docomo_unicode} = {
'number' => $docomo_number,
'title' => encode( 'utf-8', $perl{docomo}->{d...
'color' => encode( 'utf-8', $perl{docomo}->{d...
'docomo' => $docomo_unicode,
'softbank' => $softbank_unicode ? $softbank_unic...
'au' => $au_unicode ? $au_unicode : 'X',
};
}
foreach my $k (keys %result) {
my $buf = sprintf "'&#x%s;'=>array('number'=>%d,'tit...
$k,
$result{$k}->{number},
$result{$k}->{title},
$result{$k}->{color},
$k,
$result{$k}->{au},
$result{$k}->{softbank};
print Jcode->new($buf)->utf8,"\n";
}
ページ名: