ウェブメールで質問です、、、
絵文字変換 j → jに対応したサブルーチンについて質問です。
ドコモはわかってますが、
sub emoji{
$old=$_[0];
$new='';
if($old=~/[\xF8\xF9]/){
while(1){
if($old=~ s/^[\xF8\xF9][\x40-\x7E\x80-\xFC]//){
$new .= '？' . unpack('n', $&) . ';';
}elsif($old=~s/^([\x81-\x9F\xE0-\xF7\xFA-\xFC][\x40-\x7E\x80-\xFC])+//){
$new .= $&;
}elsif($old=~s/^(\n|\r\n|\r)//){
$new.="\n";
}elsif($old=~s/^.//){
$new .= $&;
}else{
last;
}
}
}else{
$new = $old;
}
return $new;
}
------------------
こんなんですが、jからjへ送信の絵文字に対応するサブルーチンお願いします。