提取电子邮件地址,并使用Regex替换字符

时间:2013-09-17 17:17:39

标签: regex perl

我正在努力提出Reg ex表达式,该表达式将匹配以格式E-开头的电子邮件地址,并将“AT”替换为实际的“@”符号。

以下是一个例子:

E-CANAD.JACK在EXAMPLE.COM

所需的输出需要看起来像 CANAD.JACK@EXAMPLE.COM

2 个答案:

答案 0 :(得分:2)

替换:

[eE]-([a-zA-Z0-9]+(?:[._-][a-zA-Z0-9]+)*) (?:at|AT) ([a-zA-Z0-9]+(?:[._-][a-zA-Z0-9]+)*[.][a-zA-Z]+)

Regular expression visualization

人:

$1@$2

更多:

答案 1 :(得分:0)

你没有提到你的语言,所以我假设perl

s/^E-(.*) AT (.*)$/$1\@$2/;