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

珞水的大叔

回复 20# pangeno


    (?=)是顺序环视，如：    $lala =~ m/a(?=b)/   表示查找后面有b的a
   (?<=)是逆序环视，如：  $lala =~ m/(?<=b)a/ 表示查找前面有b的a

pangeno

回复 21# 珞水的大叔


    谢啦

xiaoxinlovernes

1. my $v = "12321347317347317.12734712347313471324";
   2. $v =~ s/\G(?:(?!^\d+$)(?!\d*\.)\d{3}(?!$)\K|\d{0,3}\.\d{3}(?!$)\K|\d*?\K(?!^)(?=(?:\d{3})+(?:\.|$)))/,/g;
   3. warn $v;
莫言(63359149)  10:43:13
my $v = "12321347317347317.12734712347313471324";
$v =~ s/\G(?:(?!^\d+$)(?!\d*\.)\d{3}(?!$)\K|\d{0,3}\.\d{3}(?!$)\K|\d*?\K(?!^)(?=(?:\d{3})+(?:\.|$)))/,/g;
warn $v;