モバイルCGI研究（i-mode編）絵文字の処理 [CGIぽん]i-mode 絵文字を除去するサブルーチンは次のようになります。 Perl # i-mode絵文字除去サブルーチン # 2002.09.13 更新 # Shift_JISから他の文字コードに変換する前に使用すること sub remove_emoji { my $old = $_[0]; # 変換前の文字列 my $new = ''; # 変換後の文字列 if ($old =~ /[\xF8\xF9]/) { # 絵文字を含む可能性があるときだけ処理をします while (1) { if ($old =~ s/^([\xF8\xF9][\x40-\x7E\x80-\xFC])+//) { # 先頭に絵文字列があった場合 next; } elsif ($old =~ s/^([\x81-\x9F\xE0-\xF7\xFA-\xFC][\x40-\x7E\x80-\xFC])+//) { # 先
