出道正则难题，数字千分点

lkk2003rty

回复 10# liyangole


     \K         Keep the stuff left of the \K, don't include it in $&

珞水的大叔

我也单行一下

1. my $v = "12321347317347317.12734712347313471324";
   
2. $v =~ s/(?<=\d)(?=(\d\d\d)+\.)|(?<=\.\d\d\d)(?!$)|(?<=\G\d\d\d)(?!\.|$)/,/g;print $v;

复制代码

也x一个，呵呵

1. my $v = "12321347317347317.12734712347313471324";
   
2. $v =~ s/(?<=\d)(?=(\d\d\d)+\.)    #处理整数部分
   
3.         |
   
4.         (?<=\.\d\d\d)(?!$)        #处理小数点后面第一次千分位，例子中就是.127后面的逗号
   
5.         |
   
6.         (?<=\G\d\d\d)(?!\.|$)     #处理小数点后第一个千分位以后的内容
   
7.         /,/gx;
   
8. print $v;

复制代码

黑色阳光_cu

我也单行一下也x一个，呵呵
珞水的大叔 发表于 2011-03-14 12:51

你试试 my $v = "12321347317347317";

isaacblue

while(($v=~s/(\d{1,})(\d{3})([\._])/\1_\2\3/)||($v=~s/([\._])(\d{3})(\d{1,})/\1\2_\3/)||($v=~s/(\d{1,})(\d{3})$/\1_\2/)){}
这样也算一句话吧。。。。。。

珞水的大叔

回复 13# 黑色阳光_cu


    那就这样，呵呵

1. $v = "12321347317347317";
   
2. $v =~ s/(?<=^\d)(?=(\d\d\d)+$)     #处理不含小数点的情况
   
3.         |
   
4.         (?<=^\d\d)(?=(\d\d\d)+$)   #处理不含小数点的情况
   
5.         |
   
6.         (?<=\d)(?=(\d\d\d)+\.)    #处理整数部分
   
7.         |
   
8.         (?<=\.\d\d\d)(?!$)        #处理小数点后面第一次千分位，例子中就是.127后面的逗号
   
9.         |
   
10.         (?<=\G\d\d\d)(?!\.|$)     #处理小数点后第一个千分位以后的内容，或者不含小数点的情况
    
11.         /,/gx;
    
12. print $v;

复制代码

黑色阳光_cu

回复  黑色阳光_cu


    那就这样，呵呵
珞水的大叔 发表于 2011-03-14 17:30

   
这次对了

py

请写一句正则，把 $v 变成 12,321,347,317,347,317.127,347,123,473,134,713,24 。也就是说，按千分点把数字 ...
黑色阳光_cu 发表于 2011-03-11 15:18

这是《Mastering Regular Expressions, 2nd Edition》在讲lookbehind和lookahead的时候使用的例子。详见英文版的2.3.5.4章

1. ~ s/(?<=\d)(?=(\d\d\d)+(?!\d))/,/g

复制代码

iLRainyday

这是《Mastering Regular Expressions, 2nd Edition》在讲lookbehind和lookahead的时候使用的例子。详见 ...
py 发表于 2011-03-15 10:54

你没看明白需求。这个regex只能拿来处理小数点之前的部分。因为perl不支持任意深度的lookbehind，所以最恶心的是如何处理小数点之后的部分。如果可以分开写，当然好处理，MRE上也给的有例子，使用$1,进行全局替换就行了。

珞水的大叔

回复 16# 黑色阳光_cu


    顺便请教一下， \K 究竟用来作什么，它不把左边的内容存到$&里面是为了提高效率么?

pangeno

回复 4# iLRainyday


    弱弱地问一句：?=   和  ?<=  是什么意思？