Question

perl 正则匹配中使用$1捕获变量的问题.

使用了三次正则,每次需要用()捕获正则中的内容,但是$1中会记录上次捕获的数据.该怎样清理上次捕获的东西,每次的$1只是要这次捕获的内容呢?
比如
$aaa="1234,5677,3333";
$aaa~/\d+,(\d+),\d+/; #现在$1中就是5677
$bbb="2223,4241,45452";
$bbb~/(\d+),\d+,\d+/; #现在$1中是56772223
我在第二次匹配,只想$1中为2223.该怎样写?

Answer 1

$aaa="1234,5677,3333";
$aaa=~/\d+,(\d+),\d+/; #现在$1中就是5677
print $1."\n";
$bbb="2223,4241,45452";
$bbb=~/(\d+),\d+,\d+/; #现在$1中是2223
print $1;

Answer 2

$1每次匹配都会被改写的，
你的写法有问题吧
$bbb=~/(\d+),\d+,\d+/; #