perl中正则的前后查找断言

Dragon_yao

做了一个关于正则的前后查找断言实验，但是不成功？请各位大侠们，指点一下。先谢了。
my $pop = 301139843;
my ($result_ok) = $pop =~ s/ (?<=\d)(?=(?:\d\d\d)+$) /,/g;
print $result_ok . "\n";
实验结果:打印出来的是空.而不是正确结果：3,01139843

zhlong8

{:3_196:} s/// 是改变原字符串的，你 print $pop 看看

jason680

做了一个关于正则的前后查找断言实验，但是不成功？请各位大侠们，指点一下。先谢了。
my $pop = 30113984 ...
Dragon_yao 发表于 2011-04-08 10:45

1.不是很懂,你要什么....(结果跟你所说差很多301,139,843)
2.不要随便乱放空白...

# cat t.pl
my $pop = 301139843;
my ($result_ok) = $pop =~ s/(?<=\d)(?=(?:\d\d\d)+$)/,/g;
print "pop=$pop\n";
print "result_ok=$result_ok\n";

# perl t.pl
pop=301,139,843
result_ok=2

Dragon_yao

对于前后查找断言，如何确定当前匹配位置？这个也不是太懂。

zhlong8

对于前后查找断言，如何确定当前匹配位置？这个也不是太懂。
Dragon_yao 发表于 2011-04-08 11:35

    匹配位置如果前后断言之间没有内容就是左右两个字符中间的点，理解为插入

mingxw

s/(?<!\.\d)(?<=\d)(?=(?:\d\d\d)+\b)/,/g;

yakczh

前台断言很好记啊
(?=xxx) 后面是xx
(?!xxx) 后台不是xx
(?<=xx) 前面是xx
(?<!xx) 前面不是xx