perl踩坑系列=====正则表达式捕获

perl 复制代码

#!/usr/bin/perl -w
use strict;


my $cigar = "18S20M30D20I50H";

my $read_span = 0;

while($cigar =~ s/([0-9]+)([MIDNSHP=X])//){
	#$read_span += $1; #这个不会报错
	if ($2 =~ /[MD]/) {$read_span += $1;} #这个报错，匹配几次就报错几次
}

print "read_span\t$read_span\n";

运行之后，报错的信息如下：

Use of uninitialized value $1 in addition (+) at a.pl line 11.

Use of uninitialized value $1 in addition (+) at a.pl line 11.

read_span 0

为什么直接" $read_span +=$ 1;"不会报错，

而多一个if条件中的"if ( $2 =\~ /\[MD\]/) {$ read_span += $1;}" 就会报错？

原因在于 $1,$ 2这类神奇的变量，

每发生一次正则表达式匹配，会生成一套新的捕获结果 $1,$ 2....$n.

哪怕没有指定 $1,$ 2,等，这些变量也会被undef代替，

而不是用上次匹配的 $1,$ 2.

以我的例子来说，while循环每循环一次，会发生两次匹配。

第一次是：

perl 复制代码

$cigar =~ s/([0-9]+)([MIDNSHP=X])//

第二次是：

perl 复制代码

if ($2 =~ /[MD]/) {$read_span += $1;}

很明显，if条件语句中的 $1是对应$ 2 =~ /[MD]/ 的，

而这次匹配并没有指定捕获什么，所以$1变成undef,

此时再去操作$1(已经变成了undef)，当然会报错

当然，匹配一次，重新生成一次 $1...$ n的前提是 ：得匹配成功

比如，重新修改一下代码：

perl 复制代码

#!/usr/bin/perl -w
use strict;


my $cigar = "18S20M30D20I50H";

my $read_span = 0;

while($cigar =~ s/([0-9]+)([MIDNSHP=X])//){
        #$read_span += $1;
        if ($2 =~ /[MD]/) {$read_span += $1;}
        print "$1\t$2\n";
}

print "read_span\t$read_span\n";

输出信息（包括报错信息）如下：

18 S

Use of uninitialized value $1 in addition (+) at c.pl line 11.

Use of uninitialized value $1 in concatenation (.) or string at c.pl line 12.

Use of uninitialized value $2 in concatenation (.) or string at c.pl line 12.

Use of uninitialized value $1 in addition (+) at c.pl line 11.

Use of uninitialized value $1 in concatenation (.) or string at c.pl line 12.

Use of uninitialized value $2 in concatenation (.) or string at c.pl line 12.

20 I

50 H

read_span 0

可以看出，

如果 $2 =\~ /\[MD\]/ 没有成功，$ 1就仍然是 $cigar =~ s/([0-9]+)([MIDNSHP=X])// 的。

只要 $2 =\~ /\[MD\]/ 匹配成功了，$ 1，$2 都会变。

那么对应的策略就是：

谨慎使用 $1...$ n，最好第一时间赋值给其他变量。

比如：

perl 复制代码

#!/usr/bin/perl -w
use strict;


my $cigar = "18S20M30D20I50H";

my $read_span = 0;

while($cigar =~ s/([0-9]+)([MIDNSHP=X])//){
        #$read_span += $1;
        my $number = $1;
        my $operation = $2;
        if ($operation =~ /[MD]/) {$read_span += $number;}
}

print "read_span\t$read_span\n";

perl踩坑系列=====正则表达式捕获

谨慎使用1...n，最好第一时间赋值给其他变量。

谨慎使用 $1...$ n，最好第一时间赋值给其他变量。