编写Perl正则表达式匹配指定域名的Reply-To字段

嘿，我来帮你搞定这个正则的问题！你的思路方向是对的，但用错了预查的类型，而且位置也不对，这就是为什么目标字符串匹配不上的原因。

先分析你的原正则问题 #

你写的/^Reply-To: *(?!@domain1.fr|@domain2.fr)/用了负向预查(?!...)，这个语法的意思是“当前位置后面不能跟着括号里的内容”——刚好和你的需求相反！你本来想找包含@domain1.fr或@domain2.fr的字符串，但这个正则反而会匹配那些不包含这两个域名的Reply-To:行，自然匹配不上你的目标字符串。

正确的正则写法 #

根据你的需求，我们需要匹配：

1. 以Reply-To: 开头（注意后面可能有0或多个空格）
2. 中间包含任意字符
3. 必须出现@domain1.fr或@domain2.fr
4. 结尾可以有任意字符

对应的Perl正则应该是：

/^Reply-To: .*@domain(1|2)\.fr.*/

如果你的Reply-To:内容可能跨多行（比如包含换行符），就加上/s修饰符让.匹配换行：

/^Reply-To: .*@domain(1|2)\.fr.*/s

逐部分解释 #

• ^Reply-To:：严格匹配字符串开头的Reply-To:
• *：匹配Reply-To:后面0个或多个空格（兼容可能的空格差异）
• .*：匹配任意数量的任意字符（默认不包含换行，加/s后会包含）
• @domain(1|2)\.fr：精准匹配@domain1.fr或@domain2.fr——这里用(1|2)分组简化重复部分，\.是转义点号（因为正则里.是通配符，必须转义才能匹配实际的点）
• .*：匹配域名后面的任意字符（满足“结尾可带任意字符”的需求）

测试验证 #

• 匹配成功：Reply-To: abc def@domain1.fr、Reply-To: abc def@domain2.fr、Reply-To: test@domain2.fr extra text
• 匹配失败：Reply-To: abc def@domain3.fr、Reply-To: no domain here

额外优化（可选） #

如果需要确保@domain1.fr或@domain2.fr是一个完整的域名（比如避免匹配@domain1.frxyz这种情况），可以加上单词边界\b：

/^Reply-To: .*@domain(1|2)\.fr\b.*/

这样就不会匹配域名后面直接跟其他字符的情况啦！

内容的提问来源于stack exchange，提问作者JO P