正则表达式匹配后未定义Perl $1变量

这对我来说可能是一个非常基本的错误,但是我已经被困在这个问题上很长时间了,它正在推动我的问题！

我正在使用Perl循环遍历Python代码文件并识别其变量.我使用Perl正则表达式在空格之间挑选出字母数字字符的子串.正则表达式工作正常并标识匹配所属的行,但是当我尝试返回与正则表达式匹配的实际子字符串时,捕获变量$1未定义.

这是我的正则表达式：

if ($line =~ /.*\s+[a-zA-Z0-9]+\s+.*/) {
    print $line;
    print $1;
}

这是错误：

x = 1
Use of uninitialized value $1 in print at ./vars.pl line 7,<> line 2.

据我了解,$1应该返回x.我的代码在哪里出错了？

解决方法

你没有捕获结果：

if ($line =~ /.*\s+([a-zA-Z0-9]+)\s+.*/) {

如果你想匹配像x = 1那样的线并得到它的两个部分,你需要匹配并用括号捕获它们.原油方法：

if ( $line =~ /^\s* ( \w+ ) \s* = \s* ( \w+ ) \s* $/msx ) {
    my $var = $1;
    my $val = $2;
}