$ 1在Perl中意味着什么？

$ 1在Perl中意味着什么？此外，$ 2是什么意思？有多少个$ number变量？

该$number变量包含字符串匹配的部分捕捉组 ( ... )的图案为你最后的正则表达式匹配，如果匹配成功。

例如，使用以下字符串：

$text = "the quick brown fox jumps over the lazy dog.";

声明后

$text =~ m/ (b.+?) /;

$1等于文本“ brown”。

数字变量是您应用的最后一个成功匹配或替换运算符的匹配：

my $string = 'abcdefghi';

if ($string =~ /(abc)def(ghi)/) {
    print "I found $1 and $2\n";
}

在使用$1等之前，请始终测试匹配或替换是否成功。否则，您可能会从其他操作中提取剩余物。

Perl正则表达式记录在perlre中。

$ 1，$ 2等将包含上次成功匹配的捕获值-重要的是在访问捕获之前检查匹配是否成功

 if ( $var =~ m/( )/ ) { # use $1 etc... }

问题的一个例子-$ 1在下面的两个打印语句中都包含“ Quick”：

#!/usr/bin/perl

'Quick brown fox' =~ m{ ( quick ) }ix;
print "Found: $1\n";

'Lazy dog' =~ m{ ( quick ) }ix;
print "Found: $1\n";

正如其他人指出的那样，$ x是正则表达式的捕获变量，允许您引用匹配模式的各个部分。

Perl还支持命名捕获，这在某些情况下可能使人类更容易记住。

给定输入：111222

/(\d+)\s+(\d+)/

$ 1是111

$ 2是222

也可以说：

/(?<myvara>\d+)\s+(?<myvarb>\d+)/

$ + {myvara}是111

$ + {myvarb}是222

这些称为“匹配变量”。如前所述，它们包含您上一次正则表达式匹配中的文本。

更多信息在Essential Perl中。（Ctrl+F用于“匹配变量”以找到相应的部分。）

由于您询问了捕获组，因此您可能也想了解$ +。

use Data::Dumper;
$text = "hiabc ihabc ads byexx eybxx";
while ($text =~ /(hi|ih)abc|(bye|eyb)xx/igs)
{
    print Dumper $+;
}

输出：
$ VAR1 ='hi';
$ VAR1 ='ih';
$ VAR1 ='再见';
$ VAR1 ='eyb';

通常，有关Perl中“魔术”变量的问题可以通过查看Perl预定义变量文档中的la来回答：

perldoc perlvar

但是，当您在本文档中搜索$ 1等时，您会在许多地方找到引用，但这些“数字”变量的内容除外。您必须搜寻

$<digits>

我本可以通过评论或编辑将其添加到Brian的答案中，但是我没有足够的代表。如果有人添加了此内容，我将删除此答案。

变量$ 1 .. $ 9也是只读变量，因此您不能为它们隐式分配值：

$ 1 ='foo'; 打印$ 1;

这将返回错误：在脚本行1尝试修改只读值。

您也不能在变量名的开头使用数字：

$ 1foo ='foo'; 打印$ 1foo;

上面的内容也会返回错误。

我怀疑2**32 -1在32位编译的Perl二进制文件上可以有多达编号的匹配变量。