标签: regex perl
我正在努力提出Reg ex表达式,该表达式将匹配以格式E-开头的电子邮件地址,并将“AT”替换为实际的“@”符号。
以下是一个例子:
E-CANAD.JACK在EXAMPLE.COM 。
所需的输出需要看起来像 CANAD.JACK@EXAMPLE.COM 。
答案 0 :(得分:2)
替换:
[eE]-([a-zA-Z0-9]+(?:[._-][a-zA-Z0-9]+)*) (?:at|AT) ([a-zA-Z0-9]+(?:[._-][a-zA-Z0-9]+)*[.][a-zA-Z]+)
人:
$1@$2
更多:
答案 1 :(得分:0)
你没有提到你的语言,所以我假设perl
perl
s/^E-(.*) AT (.*)$/$1\@$2/;