perl正则表达式中该注意的一个问题

冰镇可乐

　　请看以下例子
　　代码1

$a='abc123EEE11';
while($a=~/\d+/g){
print $&,"\n";
}
　　将输出 
　　123
　　11
　　代码2

$a='abc123EEE11';
while($a=~/\d+/){
print $&,"\n";
}
　　将无限输出123，该程序将无限循环
　　代码3

$a='abc123EEE11';
@result=$a=~/\d+/g;

　　
 result数组中包含2个数，123和11
　　ps：
　　如果你想在匹配表达式过程中添加控制
　　则使用以下方式
　　


$a='abc123EEE11';
while($a=~/\d+/g){
print $&,"\n";
}
　　如果想直接返回所有匹配结果则使用
　　


$a='abc123EEE11';
@result=$a=~/\d+/g;



　　如果只想匹配一个结果，则把g参数省略掉
　　另外如果使用的是替换模式
　　如
　　$a='abc123EEE11k11';
　　@result=$a=~s/\d+/P/g
　　则result只有一个元素，其值为匹配的数目，当没有匹配时，是存储的是一个空置，似乎是空字符串吧