扩展 Perl 正则表达式以考虑更多字符?

Question

所以我有这个正则表达式来匹配任何电子邮件地址，我需要扩展它以包含以下内容，

：或 ;，后跟 14 个字符(任何可能的类型)。

这是我现在的表达方式：

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

我不知道如何处理这个问题，有人可以帮忙吗？

我正在考虑做这样的事情：

[A-Z0-9._%+-]+@[A-Z0-9.-]+\.[A-Z]{2,}+{:;}+{14*}

但它似乎不起作用

Answer 1

你可以做：

b[A-Z0-9._%+-]+@[A-Z0-9.-]+.[A-Z]{2,}b(?:[;:][sS]{0,14})?

演示

请注意，任何可能类型的 14 个字符都是非常不明确的。这是否包括或n？[sS]的结构与"任何可能的字符"相匹配，因此请澄清您是否表示不同的含义。