Perl正则表达式为char'＆amp;'

Question

我有一个匹配的字符串，其中一个是'Tom＆amp; Jerry'和其他人是'M＆amp; M巧克力'。我尝试过以下正则表达式，但在任何一种情况下都不匹配char'＆amp;'

if($word =~ m/\w+\s&\s\w+/ or $word =~ m/\w\W\w\s\w+/)

请有人在这帮助我。谢谢。

Answer 1

程序中的其他地方一定有错误。

这可以按预期工作：

$s1 = 'M&M chocolates';
$s2 = 'Tom & Jerry';
printf("$s1\n") if $s1 =~ m/\w\W\w\s\w+/;
printf("$s2\n") if $s2 =~ m/\w+\s&\s\w+/;

输出

M&M chocolates
Tom & Jerry