テレワークならECナビ Yahoo 楽天 LINEがデータ消費ゼロで月額500円〜！
無料ホームページ 無料のクレジットカード 海外格安航空券　海外旅行保険が無料！ 海外ホテル

メモ３

467 ：名無しさん＠勉強中 ★：08/02/05 21:08:31 ID:???

メモ
これでどうだろうか


$sjis = '[\x81-\x9F\xE0-\xEF\xFA-\xFC][\x40-\x7E\x80-\xFC]|[\x00-\x7F]|[\xA1-\xDF]';
$emoji_sb = '[\xF9][\x41-\x9B]|[\xF7][\x41-\xF3]|[\xF9][\xA1-\xED]|[\xFB][\x41-\xD1]';
$elem[3] =~ s/\G((?:$sjis)*)($emoji_sb)/$1.'&#'.unpack('n',$2).';'/ego;

open(SBDATA,"<softbanksjisdata.txt") || die "can not open file02";

foreach(<SBDATA>){
chop;
@_ = split(/\t/);

$elem[3] =~ s/$_[1]/'<img src=..\/..\/..\/imgs\/j\/'.$_[0].'.gif>'/eg;
}

close(SBDATA);


どうだ全然わかんないだろう
自分も何が何やら。
まだ覚えていた頃に書いたコードを真似しただけですが
これで良いのかどうか。

とりあえず
$elem[3] =~ s/\G((?:$sjis)*)($emoji_sb)/$1.'&#'.unpack('n',$2).';'/ego;
のunpack部分は違ってるかも。

これで合ってたとしても
softbanksjisdata.txtに書く変換表を478行用意しないとならないかも。
頭が痛くなりそうだ。

imodeとezwebの変換表の時はというと
公式にあったpdfファイルを印刷して一つ一つ手入力したですが
softbankにもそういう公式情報があったら嬉しいのですが。