regex - Perl m//运算符莫名其妙地无法匹配简单的正则表达式

Question

今天为了通过IPC::RUN与程序交互，编写正则表达式匹配提示输出时，遇到了一个莫名其妙的匹配简单正则表达式失败的问题。

$ perl -E 'say "OK" if "mbox user@testdomain.it> " =~ /mbox\s+.*@.*> /s'
$
$ perl -E 'say "OK" if "mbox user@testdomain.it> " =~ /mbox\s+.*@t.*> /s'
OK
$

我认为这可能是将«@»作为符号插入的问题，但是

$ perl -E 'say "OK" if "mbox user@testdomain.it> " =~ /mbox\s+.*\@.*> /s'
$

这太简单了，我似乎无法理解问题出在哪里。

Perl 版本在 Ubuntu 10.4 上是 5.10.1

有任何想法吗？

提前致谢

Answer 1

我认为您在正确的轨道上，但在错误的位置查看了插值。

考虑一下 @ 会发生什么情况在你的字符串而不是你的正则表达式中。