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

发布时间：2020-12-14 05:37:58 所属栏目：百科来源：网络整理

导读：这对我来说可能是一个非常基本的错误,但是我已经被困在这个问题上很长时间了,它正在推动我的问题！我正在使用Perl循环遍历Python代码文件并识别其变量.我使用Perl正则表达式在空格之间挑选出字母数字字符的子串.正则表达式工作正常并标识匹配所属的行,但是

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

我正在使用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;
}

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!