如何检查aaa或aab或Perl字符串？

Question

如果我想检查字符串是否包含aaa或aab或者？是否可以告诉我在绑定表达式中需要写什么模式？

$str = "Hello how are aaa you?";
print $str =~ m/what should i write here?/;

Answer 1

$str =~ /a|aaa|aab/

您可能希望检查常规运算符优先级,以确保不会被/^foo|bar$/(匹配^foo或bar$对比^(foo|bar)$)等事件所捕获.

Answer 2

$str =~ /a/

(想一想......)