环视（解决）

hutong236

关于正则表达式的环视问题。
课本上例子：

1. ＃!/usr/bin/perl
   
2. $text = " The population of 2987654321 is growing";
   
3. $text =~ s/(?<=\d)(?=(\d\d\d)+$)/,/g;
   
4. print "$text\n";
   

复制代码

这段代码测试没有结果，不知道是不是我理解出错了？


我用以下代码重新一下，又没有问题？

1. #!/uer/bin/perl
   
2. $text = " The population of 2987654321 is growing";
   
3. if ($text =~ /(\d)+/){
   
4.         $_=$  &;                              为防止论坛转换了，加了一个空格。
   
5. print if (s/(?<=\d)(?=(\d\d\d)+$)/,/g);
   
6. }

复制代码

请各位GGJJ们指出

1. $text =~ s/(?<=\d)(?=(\d\d\d)+$)/,/g;

复制代码

这个怎么理解？
使用\b来标记，而不能用$来标记。

yybmsrs

看看$是什么意思

ace_fei

楼上回答简单明了。

楼主在论坛中找一份《精通perl》好好看看，它的第二章还专门讲了这个正则表达式。