perl - 使用Perl在句子中匹配单词边界的正则表达式？

Question

他们是一种将以下句子中的单词与单词边界匹配的方法，并且应该在单词的右侧或左侧匹配带有破折号、bracket、逗号、句号等的单词。

例如：

 $str = "The quick brown fox (jump) over the lazy dog yes jumped, fox is quick jump, and jump-up and jump.";

如何使用 perl 正则表达式匹配示例句子中单词“jump”的 4 次出现？

注意：我不想匹配“跳跃”这个词。

Answer 1

my @words = $str =~ m{\bjump\b}g;
print "@words\n";

Answer 2

单词边界 ("\b") 是两个字符之间的一个点，它的一侧有一个“\w”，另一侧有一个“\W”（以任意顺序），计算虚构字符字符串的开头和结尾与“\W”匹配。

-- perldoc perlre > 断言

foreach($str=~/\b(jump)\b/g){
    print "$1\n";
}

Answer 3

print "$_\n" for $str =~ /\bjump\b/g;

Answer 4

my @arr = $string =~ m{\bjump\b}g;
print "@arr\n";