正则表达式替换电子邮件地址域？

Question

我需要一个正则表达式来混淆我拥有的数据库转储文件中的电子邮件。我想用@fake.com 之类的设置域替换所有域，这样我就不会冒险在开发过程中向真实的人发送电子邮件。电子邮件必须是唯一的才能匹配数据库约束，所以我只想替换域并保留用户名。

我目前有这个用于查找电子邮件的正则表达式

\b[A-Z0-9._%-]+@[A-Z0-9.-]+\.[A-Z]{2,4}\b

如何将此搜索正则表达式转换为可用于 Sublime Text、SED 或 Vim 中的查找和替换操作的正则表达式？

编辑：

请注意，我刚刚意识到在这种情况下我可以替换 @[A-Z0-9.-]+\.[A-Z]{2,4}\b 找到的所有字符串，但在学术上我仍然对如何将电子邮件正则表达式的每个部分视为令牌并替换用户名/域感兴趣独立。

Answer 1

SublimeText

SublimeText 使用Boost syntax，它支持 Perl 正则表达式中相当大的功能子集。但对于这项任务，您不需要所有这些高级构造。

以下是两种可能的方法：

1234563

1. 如果您在替换字符串中使用捕获组(pattern) 和反向引用。

   找到什么

   \b([A-Z0-9._%-]+)@[A-Z0-9.-]+\.[A-Z]{2,4}\b
   

   ([A-Z0-9._%-]+) 是正则表达式中的第一个（也是唯一一个）捕获组。

   替换为

   $1@fake.com
   

   $1指的是第一个捕获组捕获的文本。

请注意，对于上述两种方法，您都需要关闭区分大小写（显示为左下角的第二个按钮），除非您特别想只删除以全大写形式编写的电子邮件。

Answer 2

你可以对 Vim 使用以下命令：

:%s/\(\<[A-Za-z0-9._%-]\+@\)[A-Za-z0-9.-]\+\.[A-Za-z]\{2,4}\>/\1fake.com/g

\( 和 \) 之间的所有内容都将成为一个组，该组将被该组的转义数字替换（在本例中为 \1）。我还修改了正则表达式以匹配小写字母并具有与 Vim 兼容的语法。

您也可以通过将\c 放在正则表达式中的任何位置来关闭区分大小写，如下所示：

:%s/\c\(\<[A-Z0-9._%-]\+@\)[A-Z0-9.-]\+\.[A-Z]\{2,4}\>/\1fake.com/g

还请注意，行首的 % 要求 Vim 在整个文件中进行替换，而最后的 g 要求在同一行中进行多次替换。

另一种方法是使用零宽度匹配 (\@<=)：

:%s/\c\(\<[A-Z0-9._%-]\+@\)\@<=[A-Z0-9.-]\+\.[A-Z]\{2,4}\>/fake.com/g