perl如何向左匹配

[LiuLinda999]

假设有一字符串#SN123#SVaaa#SN456#SVbbb#SN789#SVccc#SN

如何匹配得到第一个#SV后面的且位于第一个#SN前面的内容aaa

多谢！

[bugs2k]

$_ = "#SN123#SVaaa#SN456#SVbbb#SN789#SVccc#SN";
/#SV(((?<!#SN).)*)#SN/;
print $1;

[bugs2k]

$_ = "#SN123#SVaaa#SN456#SVbbb#SN789#SVccc#SN";
/#SV(((?!#SN).)*)#SN/;
print $1;

[LiuLinda999]

求救哈！自己顶一下！

[LiuLinda999]

谢谢楼上的指点，终于截取出了想要的内容。 麻烦再看看下面的语句： 我从$fullwaferdata中截取了数据$fulltestparmdata， 本来我是替换这部分的内容，但是发现在$fullwaferdata中根本找不到它。 if (($fullwaferdata =~ /(#SN\s\d+\s\d+\s\d+\n\s$wafer_id\n$parm_seq).*?(#SV(((?<!#SN).)*))#SN/ms) ){ $fulltestparmdata = $2; } if ($fullwaferdata =~ /$fulltestparmdata/ms) { print "Find fulltestparmdata! \n"; } else { print "Not Find fulltestparmdata! \n"; #打印输出的是这句话 }

[LiuLinda999]

我之前的问题是截取出来的$fulltestparmdata 中含有“+”等特殊字符，终于知道原因了

[jiandingzhe]

我不喜欢复杂的正则表达式。 你完全可以先找出第一个#SV和#SN在哪里，然后截出来，看有没有你要的东西。