电梯直达

1楼 [收藏(0)] [报告]

发表于 2014-12-17 20:55 |只看该作者 |倒序浏览

新学perl，为今后偷懒更上一层楼努力。

发现
while(m//g){
$eg1 = $eg . $&;
}
运行正常，且$&能够反映出每次的匹配值，$eg1是所有$&“组合”起来的值。

如果不加/g，则DOS窗口卡在那里不动了。

同时
while(s///g){
$eg2 = $eg2 . $&;
}
$&只能反映出最后一次替换时匹配的值，过程中间的所有匹配都替换，但是没有被抓入$&

相反，如果不加/g，则一切正常，能全部匹配替换，$&也能抓到所有匹配值

这尼玛诡异的黑魔法，谁来解释下啊，太神了。。。

2楼 [报告]

发表于 2014-12-19 09:22 |只看该作者

m//g是步进匹配,在scalar context下,每次匹配会从上次匹配结束的位置继续匹配. m//每次都是从0开始匹配,所以每次都成功,进入了死循环.
s///g是全局替换,结束时,$&当然是最后一次成功的匹配的值. s///这个每次匹配一个,所以你在循环里能找到所有匹配的值.

3楼 [报告]

发表于 2014-12-19 14:56 |只看该作者

回复 2# ntwarren

你没发现这两个“兄弟”原理类似但是逻辑完全相反吗？怎么回事啊？是Larry抽了，还是我没理解？

不吝赐教啊~

4楼 [报告]

发表于 2014-12-19 15:15 |只看该作者

是你理解错了.
s///是从头开始,不是步进.呵.
每调用一次s///,$_的值就被替换了一次.

回复 3# 死水站

5楼 [报告]

发表于 2014-12-20 10:37 |只看该作者

my $a = 'ababab';
while ($a =~ s/a/b/) {
}
这里$a 每次都是从头开始匹配，只是上次的匹配的a都会被替换成b，就不会再匹配到

回复 3# 死水站

6楼 [报告]

发表于 2014-12-20 23:19 |只看该作者

本帖最后由死水站于 2014-12-20 23:25 编辑

@tadegenban @ntwarren

谢谢二位大神啊，这么一说我反应过来了，本来还没想到这一层，哈哈

关于m//g;和s///g;在while()循环中的发现，以及$& [复制链接]