Perl捕获组$1在作用域内失效问题咨询

先看这段解析文件名的Perl代码：

#!/usr/bin/env perl

use 5.040;
use warnings FATAL => 'all';
use autodie ':default';

my $string = '/home/con/bio.data/blastdb/phytophthora.infestans.KR_2_A2/GCA_012552325.1.protein.faa';

if ($string =~ m/blastdb\/(\w)\w+\.([\w\.]+)/) {
    my $rest = $2; # 这里$1是有效的
    $rest =~ s/\./ /g;
    my $name = "$1.$rest"; # 这里$1变成未初始化
}

运行后会报错：Use of uninitialized value $1 in concatenation (.) or string

但把$1提前保存到普通变量后，代码就能正常运行：

if ($string =~ m/blastdb\/(\w)\w+\.([\w\.]+)/) {
    my ($g, $rest) = ($1, $2);
    $rest =~ s/\./ /g;
    my $name = "$g.$rest";
}

原因解析 #

这不是Perl的Bug，是Perl正则捕获变量的设计规则：

• $1、$2这类特殊捕获变量属于动态作用域变量，且会被任何后续的正则操作（包括匹配、替换、split等）覆盖。
• 你代码里的$rest =~ s/\./ /g;本质是一次正则替换操作，内部执行了正则匹配，这次匹配没有定义捕获组，执行后$1就被重置为未初始化状态。哪怕是在同一个if块里，后续再引用$1时，它已经不是之前正则捕获的值了。

所以正确的做法是：在执行任何可能修改捕获变量的操作前，把$1、$2的值保存到普通Perl变量中，避免被后续正则操作覆盖。

内容的提问来源于stack exchange，提问作者con