au端末で絵文字入力可能に

EZweb

最新のau携帯電話では、フォーム内フィールドに絵文字を入力することができます。

入力される絵文字は、ｉモードと同様シフトJISの外字領域コードですので、除去するのは比較的簡単です。

【EZweb絵文字の除去（Perl）】

# $string の文字コードはシフトJISと前提する。
$sjis = '[\x81-\x9F\xE0-\xF2\xF8-\xFC][\x40-\x7E\x80-\xFC]|[\x00-\x7F]|[\xA1-\xDF]';
$ezweb_emoji 
= '[\xF3-\xF7][\x40-\x7E\x80-\xFC]';

$string =~ 
s/\G((?:$sjis)*)(?:$ezweb_emoji)/$1/go;

＃参照：au技術情報 絵文字（ビルトイン・アイコン）