Perl regex matching emoticons

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!