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])+//) { # 先
リリース、障害情報などのサービスのお知らせ
最新の人気エントリーの配信
処理を実行中です
j次のブックマーク
k前のブックマーク
lあとで読む
eコメント一覧を開く
oページを開く