追问-如何追踪模式替换的位置？？？

死水站

前几天发过一贴，询问如何追踪，当晚就有大神解答，甚是感动，
http://bbs.chinaunix.net/thread-4165577-1-1.html

研究发现这个方法是追踪句柄的位置，随着句柄逐步替换。

现在想问，如果一大段字符已经放入字符串$foo了呢？

搜索网络，发现函数pos()可以在模式匹配m//g;时反馈匹配的位置 $position = pos($foo);

但问题是对于s///;，咋就没有这样记录当前位置的函数呢？

有哪位大神知道，求解答~

死水站

@b4and5

能再教我几招吗？哈哈

jason680

回复 1# 死水站

study ...

$ perldoc perlretut
NAME
    perlretut - Perl regular expressions tutorial
    ...

$ perldoc perlre
NAME
    perlre - Perl regular expressions
    ...

死水站

你的意思是说要仔细看一下正则这一块，会有收获？

回复 3# jason680


   

b4and5

回复 4# 死水站

我也不知道哦...为什么会有这种需求呢...？
用匹配捕获不行吗？

   

b4and5

回复 5# b4and5

比如还拿上次的例子来说明：
可以这样试下：

my $content = "
一
   1balbala……
   2balbala……
   3balbala……
二
   1balbala……
   2balbala……
   3balbala……
三
   1balbala……
   2balbala……
   3balbala……
一
   1balbala……
   2balbala……
   3balbala……
二
   1balbala……
   2balbala……
   3balbala……
三
   1balbala……
   2balbala……
   3balbala……
一
   1balbala……
   2balbala……
   3balbala……
二
   1balbala……
   2balbala……
   3balbala……
三
   1balbala……
   2balbala……
   3balbala……
";

$content =~ /三(.*)一/sm;

##then do some operation with $1 ###


这样的话捕获进$1的内容就应该是你实际想替换的部分，再对$1操作试试。
公司的linux不支持中文，没能验证。

死水站

谢谢啊，哈哈。

先说一下我的想法，就是需要你的那块“/三(.*)一/”匹配出来的字段能够直接在整个$content里面被修改操作；而不是先提取出来，比如$temp = $1;然后修改$temp，然后再把$temp放回$content。

所以呢，你上次介绍的追踪句柄，就是有这个效果，从句柄读取一段文字判断，满足条件就修改输出，不满足条件就直接输出，整体来说就是用句柄从头到尾扫描了一遍，对吧？这就是我说的那个意思。

但是问题是很多时候文件已经读出来放到某个$foo里了，这时候肯定是就变成对$foo的匹配和替换咯。

m//;里的pos()函数挺好的，问题是不能在s///;时候用，郁闷。

回复 6# b4and5