Question

perl用if来匹配提取文本内容

Registrant Email ................ zhang4jianxi3u@tiantian.com；

需要提取后面的邮箱

我的意思是当匹配到Registrant Email 时输出后面的邮箱，

就像=~ /(Registrant Email)(.*)(.*)/这样打印$3

文本有很多行，中间的点个数和后面的邮箱是变动的，求输出邮箱perl脚本，用if么？

Answer 1

也可以不用if，直接正则替换

    my $email= s/^Registrant Email\.+(.*)/$1/;
点号要转义的

追问

谢谢！

Answer 2

$s1="Registrant Email ................zhang4jianxi3u\@tiantian.com";
if ($s1=~/Registrant Email (\.+)\s*(.*)/) {print "$2\n";}

Answer 3

my $email = $1 if /^Registrant Email.*(\S+)$/;