(keitai-l) Re: imode emoji-text conversion

From: M. David <davidm1_at_hotmail.com> Date: 02/11/01 Message-ID: <LAW2-F272jQWrBSXaD8000008eb@hotmail.com>

Emailed to fast..
http://www.vanillamilk.com/vanilla/imeinfo.html
and http://www.vanillamilk.com/vanilla/pc.html
has info on displaying emoji on the PC, but you need Japanese OS or IME?
anyway here is my converter, for some reason the ID emoji isnt working.]

These probably wont show up unless you hav Japanese OS, but it seems to 
work :> 

sub emojiconvert {
$emoji =~ s/$B!(B/\($B_at_2$l(B\)/g;
$emoji =~ s/$B"(B/\($BF^$j(B\)/g;
$emoji =~ s/$B#(B/\($B1+(B\)/g;
$emoji =~ s/$B$(B/\($B_at_c(B\)/g;
$emoji =~ s/$B%(B/\($BMk(B\)/g;
$emoji =~ s/$B&(B/\($BBfIw(B\)/g;
$emoji =~ s/$B'(B/\($BL8(B\)/g;
$emoji =~ s/$B((B/\($B>.1+(B\)/g;
$emoji =~ s/$B)(B/\($B24MS:B(B\)/g;
$emoji =~ s/$B*(B/\($B245m:B(B\)/g;
$emoji =~ s/$B+(B/\($BAP;R:B(B\)/g;
$emoji =~ s/$B,(B/\($B3*:B(B\)/g;
$emoji =~ s/$B-(B/\($B;b;R:B(B\)/g;
$emoji =~ s/$B.(B/\($B25=w:B(B\)/g;
$emoji =~ s/$B/(B/\($BE7Gi:B(B\)/g;
$emoji =~ s/$B0(B/\($Bj8:B(B\)/g;
$emoji =~ s/$B1(B/\($B(B/\($BEEl(B\)/g;
$emoji =~ s/$BP(B/\($B?.9f(B\)/g;
$emoji =~ s/$BQ(B/\($B%H%$%l(B\)/g;
$emoji =~ s/$BR(B/\($B%l%9%H%i%s(B\)/g;
$emoji =~ s/$BS(B/\($B5JCcE9(B\)/g;
$emoji =~ s/$BT(B/\($B%P!<(B\)/g;
$emoji =~ s/$BU(B/\($B%S!<%k(B\)/g;
$emoji =~ s/$BV(B/\($B%U%!!<%9%H%U!<%I(B\)/g;
$emoji =~ s/$BW(B/\($B%V%F%#%C%/(B\)/g;
$emoji =~ s/$BX(B/\($BH~MF1!(B\)/g;
$emoji =~ s/$BY(B/\($B%+%i%*%1(B\)/g;
$emoji =~ s/$BZ(B/\($B1G2h(B\)/g;
$emoji =~ s/$B[(B/\($B1&e(B\)/g;
$emoji =~ s/$B\(B/\($BM71`CO(B\)/g;
$emoji =~ s/$B](B/\($B2;3Z(B\)/g;
$emoji =~ s/$B^(B/\($B%"!<%H(B\)/g;
$emoji =~ s/$B_(B/\($B1i7`(B\)/g;
$emoji =~ s/$B`(B/\($B%$%Y%s%H(B\)/g;
$emoji =~ s/$Ba(B/\($B%A%1%C%H(B\)/g;
$emoji =~ s/$Bc(B/\($B5J1l(B\)/g;
$emoji =~ s/$Bc(B/\($B6X1l(B\)/g;
$emoji =~ s/$Bd(B/\($B%+%a%i(B\)/g;
$emoji =~ s/$Be(B/\($B%+%P%s(B\)/g;
$emoji =~ s/$Bf(B/\($BK\(B\)/g;
$emoji =~ s/$Bg(B/\($B%j%\%s(B\)/g;
$emoji =~ s/$Bh(B/\($B%W%l%<%s%H(B\)/g;
$emoji =~ s/$Bi(B/\($B%P!<%9%G!<(B\)/g;
$emoji =~ s/$Bj(B/\($BEEOC(B\)/g;
$emoji =~ s/$Bk(B/\($B7HBSEEOC(B\)/g;
$emoji =~ s/$Bl(B/\($B%a%b(B\)/g;
$emoji =~ s/$Bm(B/\($B#T#V(B\)/g;
$emoji =~ s/$Bn(B/\($B%2!<%`(B\)/g;
$emoji =~ s/$Bo(B/\($B#C#D(B\)/g;
$emoji =~ s/$Bp(B/\($B%O!<%H(B\)/g;
$emoji =~ s/$Bq(B/\($B%9%Z!<%I(B\)/g;
$emoji =~ s/$Br(B/\($B%@%$%d(B\)/g;
$emoji =~ s/$Bs(B/\($B%/%i%V(B\)/g;
$emoji =~ s/$Bt(B/\($BL\(B\)/g;
$emoji =~ s/$Bu(B/\($B<*(B\)/g;
$emoji =~ s/$Bv(B/\($Be(B\)/g;
$emoji =~ s/$B{(B/\($BB-(B\)/g;
$emoji =~ s/$B|(B/\($B$/$D(B\)/g;
$emoji =~ s/$B}(B/\($B4c6@(B\)/g;
$emoji =~ s/$B~(B/\($B7n(B\)/g;
$emoji =~ s/$B‘$(B/\($B;0F|7n(B\)/g;
$emoji =~ s/$B‘%(B/\($BK~7n(B\)/g;
$emoji =~ s/$B‘&(B/\($B8$(B\)/g;
$emoji =~ s/$B‘'(B/\($BG-(B\)/g;
$emoji =~ s/$B‘((B/\($B%j%>!<%H(B\)/g;
$emoji =~ s/$B‘)(B/\($B%/%j%9%^%9(B\)/g;
$emoji =~ s/$B‘*(B/\($B:8pJs(B\)/g;
$emoji =~ s/$B‘d(B/\($B%U%j!<%@%$%d%k(B\)/g;
$emoji =~ s/$B‘e(B/\($B%7%c!<%W%@%$%d%k(B\)/g;
$emoji =~ s/$B‘f(B/\($B%b%P#Q(B\)/g;
$emoji =~ s/$B‘g(B/\(1\)/g;
$emoji =~ s/$B‘h(B/\(2\)/g;
$emoji =~ s/$B‘i(B/\(3\)/g;
$emoji =~ s/$B‘j(B/\(4\)/g;
$emoji =~ s/$B‘k(B/\(5\)/g;
$emoji =~ s/$B‘l(B/\(6\)/g;
$emoji =~ s/$B‘m(B/\(7\)/g;
$emoji =~ s/$B‘n(B/\(8\)/g;
$emoji =~ s/$B‘o(B/\(9\)/g;
$emoji =~ s/$B‘p(B/\(0\)/g;
$emoji =~ s/$B’2(B/\($B7hDj(B\)/g;
$emoji =~ s/$B‘q(B/\($B9u%O!<%H(B\)/g;
$emoji =~ s/$B‘r(B/\($BMI$l$k%O!<%H(B\)/g;
$emoji =~ s/$B‘s(B/\($B<:Nx(B\)/g;
$emoji =~ s/$B‘t(B/\($B%O!<%H$?$A(B\$B!JJ#?t%O!<%H(B\$B!K(B\)/g;
$emoji =~ s/$B‘u(B/\($B$o!<$$(B\$B!J4r$7$$4i(B\$B!K(B\)/g;
$emoji =~ s/$B‘v(B/\($B$A$C(B\$B!JE\$C$?4i(B\$B!K(B\)/g;
$emoji =~ s/$B‘w(B/\($B$,$/!A(B\$B!JMnC@$7$?4i(B\$B!K(B\)/g;
$emoji =~ s/$B‘x(B/\($B$b$&$d$@!A(B\$B!JHa$7$$4i(B\$B!K(B\)/g;
$emoji =~ s/$B‘y(B/\($B$U$i$U$i(B\)/g;
$emoji =~ s/$B‘z(B/\($B%0%C%I(B\$B!J>e8~$-Lp0u(B\$B!K(B\)/g;
$emoji =~ s/$B‘{(B/\($B$k$s$k$s(B\)/g;
$emoji =~ s/$B‘|(B/\($B$$$$5$J,(B\$B!J29_at_t(B\$B!K(B\)/g;
$emoji =~ s/$B‘}(B/\($B$+$o$$$$(B\)/g;
$emoji =~ s/$B‘~(B/\($B%-%9%^!<%/(B\)/g;
$emoji =~ s/$B’!(B/\($B$T$+$T$+(B\$B!J?7$7$$(B\$B!K(B\)/g;
$emoji =~ s/$B’"(B/\($B$R$i$a$-(B\)/g;
$emoji =~ s/$B’#(B/\($B$`$+$C(B\$B!JE\$j(B\$B!K(B\)/g;
$emoji =~ s/$B’$(B/\($B%Q%s%A(B\)/g;
$emoji =~ s/$B’%(B/\($BGzCF(B\)/g;
$emoji =~ s/$B’&(B/\($B%`!<%I(B\)/g;
$emoji =~ s/$B’'(B/\($B%P%C%I(B\$B!J2<8~$-Lp0u(B\$B!K(B\)/g;
$emoji =~ s/$B’((B/\($BL2$$(B\($B?gL2(B\)\)/g;
$emoji =~ s/$B’)(B/\(!\)/g;
$emoji =~ s/$B’*(B/\(!?\)/g;
$emoji =~ s/$B’+(B/\(!!\)/g;
$emoji =~ s/$B’,(B/\($B$I$s$C(B\$B!J>W7b(B\$B!K(B\)/g;
$emoji =~ s/$B’-(B/\($B$"$;$"$;(B\$B!JHt$S;6$k4@(B\$B!K(B\)/g;
$emoji =~ s/$B’.(B/\($B$?$i!<$C(B\$B!J4@(B\$B!K(B\)/g;
$emoji =~ s/$B’/(B/\($B%@%C%7%e(B\$B!JAv$j=P$9$5$^(B\$B!K(B\)/g;
$emoji =~ s/$B’0(B/\($B!<(B\$B!JD92;5-9f#1(B\$B!K(B\)/g;
$emoji =~ s/$B’1(B/\($B!<(B\$B!JD92;5-9f#2(B\$B!K(B\)/g;
}

or for &# format

sub emojiconvert {
$emoji =~ s/&$\63647/\($B_at_2$l(B)/g;
$emoji =~ s/&\63648/\($BF^$j(B)/g;
$emoji =~ s/&\63649/\($B1+(B\)/g;
$emoji =~ s/&#63650/\($B_at_c(B\)/g;
$emoji =~ s/&#63651/\($BMk(B\)/g;
$emoji =~ s/&#63652/\($BBfIw(B\)/g;
$emoji =~ s/&#63653/\($BL8(B\)/g;
$emoji =~ s/&#63654/\($B>.1+(B\)/g;
$emoji =~ s/&#63655/\($B24MS:B(B\)/g;
$emoji =~ s/&#63656/\($B245m:B(B\)/g;
$emoji =~ s/&#63657/\($BAP;R:B(B\)/g;
$emoji =~ s/&#63658/\($B3*:B(B\)/g;
$emoji =~ s/&#63659/\($B;b;R:B(B\)/g;
$emoji =~ s/&#63660/\($B25=w:B(B\)/g;
$emoji =~ s/&#63661/\($BE7Gi:B(B\)/g;
$emoji =~ s/&#63662/\($Bj8:B(B\)/g;
$emoji =~ s/&#63663/\($Bl(B\)/g;
$emoji =~ s/&#63694/\($B?.9f(B\)/g;
$emoji =~ s/&#63695/\($B%H%$%l(B\)/g;
$emoji =~ s/&#63696/\($B%l%9%H%i%s(B\)/g;
$emoji =~ s/&#63697/\($B5JCcE9(B\)/g;
$emoji =~ s/&#63698/\($B%P!<(B\)/g;
$emoji =~ s/&#63699/\($B%S!<%k(B\)/g;
$emoji =~ s/&#63700/\($B%U%!!<%9%H%U!<%I(B\)/g;
$emoji =~ s/&#63701/\($B%V%F%#%C%/(B\)/g;
$emoji =~ s/&#63702/\($BH~MF1!(B\)/g;
$emoji =~ s/&#63703/\($B%+%i%*%1(B\)/g;
$emoji =~ s/&#63704/\($B1G2h(B\)/g;
$emoji =~ s/&#63705/\($B1&e(B\)/g;
$emoji =~ s/&#63706/\($BM71`CO(B\)/g;
$emoji =~ s/&#63707/\($B2;3Z(B\)/g;
$emoji =~ s/&#63708/\($B%"!<%H(B\)/g;
$emoji =~ s/&#63709/\($B1i7`(B\)/g;
$emoji =~ s/&#63710/\($B%$%Y%s%H(B\)/g;
$emoji =~ s/&#63711/\($B%A%1%C%H(B\)/g;
$emoji =~ s/&#63712/\($B5J1l(B\)/g;
$emoji =~ s/&#63713/\($B6X1l(B\)/g;
$emoji =~ s/&#63714/\($B%+%a%i(B\)/g;
$emoji =~ s/&#63715/\($B%+%P%s(B\)/g;
$emoji =~ s/&#63716/\($BK\(B\)/g;
$emoji =~ s/&#63717/\($B%j%\%s(B\)/g;
$emoji =~ s/&#63718/\($B%W%l%<%s%H(B\)/g;
$emoji =~ s/&#63719/\($B%P!<%9%G!<(B\)/g;
$emoji =~ s/&#63720/\($BEEOC(B\)/g;
$emoji =~ s/&#63721/\($B7HBSEEOC(B\)/g;
$emoji =~ s/&#63722/\($B%a%b(B\)/g;
$emoji =~ s/&#63723/\($B#T#V(B\)/g;
$emoji =~ s/&#63724/\($B%2!<%`(B\)/g;
$emoji =~ s/&#63725/\($B#C#D(B\)/g;
$emoji =~ s/&#63726/\($B%O!<%H(B\)/g;
$emoji =~ s/&#63727/\($B%9%Z!<%I(B\)/g;
$emoji =~ s/&#63728/\($B%@%$%d(B\)/g;
$emoji =~ s/&#63729/\($B%/%i%V(B\)/g;
$emoji =~ s/&#63730/\($BL\(B\)/g;
$emoji =~ s/&#63731/\($B<*(B\)/g;
$emoji =~ s/&#63732/\($Be(B\)/g;
$emoji =~ s/&#63737/\($BB-(B\)/g;
$emoji =~ s/&#63738/\($B$/$D(B\)/g;
$emoji =~ s/&#63739/\($B4c6@(B\)/g;
$emoji =~ s/&#63740/\($B7n(B\)/g;
$emoji =~ s/&#63811/\($B;0F|7n(B\)/g;
$emoji =~ s/&#63812/\($BK~7n(B\)/g;
$emoji =~ s/&#63813/\($B8$(B\)/g;
$emoji =~ s/&#63814/\($BG-(B\)/g;
$emoji =~ s/&#63815/\($B%j%>!<%H(B\)/g;
$emoji =~ s/&#63816/\($B%/%j%9%^%9(B\)/g;
$emoji =~ s/&#63817/\($B:8pJs(B\)/g;
$emoji =~ s/&#63876/\($B%U%j!<%@%$%d%k(B\)/g;
$emoji =~ s/&#63877/\($B%7%c!<%W%@%$%d%k(B\)/g;
$emoji =~ s/&#63878/\($B%b%P#Q(B\)/g;
$emoji =~ s/&#63879/\(1\)/g;
$emoji =~ s/&#63880/\(2\)/g;
$emoji =~ s/&#63881/\(3\)/g;
$emoji =~ s/&#63882/\(4\)/g;
$emoji =~ s/&#63883/\(5\)/g;
$emoji =~ s/&#63884/\(6\)/g;
$emoji =~ s/&#63885/\(7\)/g;
$emoji =~ s/&#63886/\(8\)/g;
$emoji =~ s/&#63887/\(9\)/g;
$emoji =~ s/&#63888/\(0\)/g;
$emoji =~ s/&#63920/\($B7hDj(B\)/g;
$emoji =~ s/&#63889/\($B9u%O!<%H(B\)/g;
$emoji =~ s/&#63890/\($BMI$l$k%O!<%H(B\)/g;
$emoji =~ s/&#63891/\($B<:Nx(B\)/g;
$emoji =~ s/&#63892/\($B%O!<%H$?$A(B\$B!JJ#?t%O!<%H(B\$B!K(B\)/g;
$emoji =~ s/&#63893/\($B$o!<$$(B\$B!J4r$7$$4i(B\$B!K(B\)/g;
$emoji =~ s/&#63894/\($B$A$C(B\$B!JE\$C$?4i(B\$B!K(B\)/g;
$emoji =~ s/&#63895/\($B$,$/!A(B\$B!JMnC@$7$?4i(B\$B!K(B\)/g;
$emoji =~ s/&#63896/\($B$b$&$d$@!A(B\$B!JHa$7$$4i(B\$B!K(B\)/g;
$emoji =~ s/&#63897/\($B$U$i$U$i(B\)/g;
$emoji =~ s/&#63898/\($B%0%C%I(B\$B!J>e8~$-Lp0u(B\$B!K(B\)/g;
$emoji =~ s/&#63899/\($B$k$s$k$s(B\)/g;
$emoji =~ s/&#63900/\($B$$$$5$J,(B\$B!J29_at_t(B\$B!K(B\)/g;
$emoji =~ s/&#63901/\($B$+$o$$$$(B\)/g;
$emoji =~ s/&#63902/\($B%-%9%^!<%/(B\)/g;
$emoji =~ s/&#63903/\($B$T$+$T$+(B\$B!J?7$7$$(B\$B!K(B\)/g;
$emoji =~ s/&#63904/\($B$R$i$a$-(B\)/g;
$emoji =~ s/&#63905/\($B$`$+$C(B\$B!JE\$j(B\$B!K(B\)/g;
$emoji =~ s/&#63906/\($B%Q%s%A(B\)/g;
$emoji =~ s/&#63907/\($BGzCF(B\)/g;
$emoji =~ s/&#63908/\($B%`!<%I(B\)/g;
$emoji =~ s/&#63909/\($B%P%C%I(B\$B!J2<8~$-Lp0u(B\$B!K(B\)/g;
$emoji =~ s/&#63910/\($BL2$$(B\($B?gL2(B\)\)/g;
$emoji =~ s/&#63911/\(!\)/g;
$emoji =~ s/&#63912/\(!?\)/g;
$emoji =~ s/&#63913/\(!!\)/g;
$emoji =~ s/&#63914/\($B$I$s$C(B\$B!J>W7b(B\$B!K(B\)/g;
$emoji =~ s/&#63915/\($B$"$;$"$;(B\$B!JHt$S;6$k4@(B\$B!K(B\)/g;
$emoji =~ s/&#63916/\($B$?$i!<$C(B\$B!J4@(B\$B!K(B\)/g;
$emoji =~ s/&#63917/\($B%@%C%7%e(B\$B!JAv$j=P$9$5$^(B\$B!K(B\)/g;
$emoji =~ s/&#63918/\($B!<(B\$B!JD92;5-9f#1(B\$B!K(B\)/g;
$emoji =~ s/&#63919/\($B!<(B\$B!JD92;5-9f#2(B\$B!K(B\)/g;
}

David M.

----------------------------------
iKaiwa.com    http://iKaiwa.com  
Japanese Mobile Contents Portal [ringing tones, greeting cards, homepage 
community]
ClubTomo      http://ClubTomo.com   Club Community

CLICK!        http://ikaiwa.com/click/ 
Community for Linking Internet Companies in Kansai!

_________________________________________________________________________
Get Your Private, Free E-mail from MSN Hotmail at http://www.hotmail.com.

[ Did you check the archives?   http://www.appelsiini.net/keitai-l/ ]