在Perl v5.14.2中找到模式后未定义反向引用

Question

我发现奇怪的是，反向引用（$ 1，$ 2，$ 3）在我的原始代码中不起作用，因此我从网络上运行了此示例：

#!/usr/bin/perl
# matchtest2.plx
use warnings;
use strict;
$_ = '1: A silly sentence (495,a) *BUT* one which will be useful. silly (3)';
my $pattern = "silly";
if (/$pattern/) {
    print "The text matches the pattern '$pattern'.\n";
    print "\$1 is '$1'\n" if defined $1;
    print "\$2 is '$2'\n" if defined $2;
    print "\$3 is '$3'\n" if defined $3;
    print "\$4 is '$4'\n" if defined $4;
    print "\$5 is '$5'\n" if defined $5;
}
else {
     print "'$pattern' was not found.\n";
}

这只给了我：

The text matches the pattern 'silly'.

为什么在找到模式后仍未定义反向引用？ 我正在使用Wubi（Ubuntu 12.04 64位），而我的Perl版本是5.14.2。 预先感谢您的帮助。

Answer 1

您没有捕获任何字符串：模式中没有括号。 如果您已完成：

my $pattern = "(silly)";

您会得到$1东西。

如果你不知道， $1是第一个括号中捕获的文本， $2第二个括号，等等。

Answer 2

这是预期的行为！ 很明显，您的模式将匹配，因此， if执行了-block，则不必怀疑。

$1, $2, ...的术语“反向引用”可能略次优，我们称它们为“捕获组”。

在正则表达式中，您可以将模式的某些部分用括号括起来，以备后用：

/(silly)/

此模式有一组。 如果匹配，该组的内容将存储在$1中。

模式中不存在或未填充的组的所有捕获组变量在其他情况下成功匹配时都设置为undef ，因此对于上述模式$2, $3, ...都是undef 。