Perl语言入门

256

｜

第

14

章

这到底是在做什么？其实这里的意思是，只要这个替换运算返回真（表示成功），就

去执行循环主体。但是循环里的程序没有任何作用！对

Perl

来说，这没关系，这不过

是要让我们知道，该语句的主要目的是在执行条件表达式（替换运算），而不是这个

无用的循环主体。这么做时习惯上会使用数值

1

来占个位子，其实任何数值都可以使

用。为了改善可读性，改成以下等效写法：

'keep looping' while $number =~ s/^(-?\d+)(\d\d\d)/$1,$2/;

所以，现在我们知道替换运算是循环的真正目的。但此处的替换运算又做了什么事？

别忘了，这里的

$number

是个像

"12345678.90"

这样的字符串。上面的模式会匹配

字符串的第一个部分，但它不会越过小数点（你知道为什么吗？）。内存变量

$1

会

是

"12345"

，而

$2

会是

"678"

，所以这个替换运算会让

$number

变成

"12345,678.90"

（别忘了，它不会匹配小数点，所以字符串后面的部分并不会改变）。

你知道模式开头的减号是什么用处么？（提示：这个减号只能在字符串中的一个地方

出现），在本节结束时，万一你还没找到答案，可以看看我们的解答。

整个替换过程并非到此为止。既然替换运算成功了，这个无事可做的循环就会再来一

次。因为这次模式只能替换逗号之前的部分，所以

$number

会变成

"12,345,678.90"

。

于是在每次循环执行后，替换运算就会在数字中加一个逗号。

循环的工作还没完呢。因为上一次替换成功了，所以又会重新开始循环。但由于模式 ...