Perlの正規表現と一致する絵文字

Question

文字列から特定の絵文字を削除しようとしていますが、特殊文字や文字からなる絵文字をどのようにマッチさせるかはわかりません（例：Dまたは:-D ":-)"のように）。私は

$message =~ s/\:D//;

およびその他のいくつかのバリエーションを試してみましたが、何も動作していないようにみえます。どこが間違っていますか？

EDIT：私は実際には馬鹿だったし、このコマンドの前にすべての文字を小文字にしたので、すべての絵文字がすでに「：d」に変更されていました。手伝ってくれてありがとう。

Answer 1

あなたは、いくつかのユニットテストを書くことができます。

sub assert_equals($$) { 
    my ($expected, $actual) = @_; 
    $expected eq $actual or die "expected <$expected>, got <$actual>\n"; 
} 

sub no_smilies($) { 
    my ($message) = @_; 
    $message =~ s/:D\b//g; 
    return $message; 
} 

sub test() { 
    assert_equals("", no_smilies(":D")); 
    ... 
} 

その後、試行錯誤を使用して残りの部分を行うことができます。

Answer 2

あなたは初心者のために、このような何かを試みることができる：あなたが新しいと面白い顔文字を発見するよう

s/[:;]-?[D)]// 

は[]クラスに文字を追加します。

Answer 3

use strict; use warnings; 

my $s = "Hello ;-) :D :-D <3 World!"; 
my @emoticons = qw' ;-) :D :-D <3 '; 

my $pat = join '|', map qr/\Q$_\E/, @emoticons; 
$s =~ s/$pat//g; 
$s =~ s/ +/ /g; 

print "$s\n"; 

出力：

Hello World!