在Perl中使用正则表达式的匹配元素

Question

我有一个包含正则表达式的散列：要在其中捕获的匹配数和变量以及它们的匹配位置。例如：

my %hash = (
    reg_ex => 'Variable1:\s+(.*?)\s+\n\s+Variable2:\s+(.*?)\s+\n', 
    count => 2, 
    Variable1 => 1, 
    Variable2 => 2, 
); 

我会在代码的其他部分，我会只给说$to_be_matched_variable =~ /$hash{reg_ex}/使用这个表达式，我们在$1，$2这里获得所需要的匹配，...

我需要使用密钥Variable1的值，它表示在我们通常使用的地方使用的匹配数$1。我试过$.$hash{Variable1}和$,$hash{Variable1}。我无法找到如何框架的东西，将相当于$1，$2 ...

Answer 1

尝试：

(my @ArrayOfMatches) = $to_be_matched_variable =~ /$hash{reg_ex}/; 

my $Variable1 = $ArrayOfMatches[$hash{Variable1}]; 

Answer 2

（$ 1，$ 2，$ 3，...，$ 9）[$ hash {Variable1}]

Answer 3

由于您已经在使用散列，因此您可以使用将名称映射到匹配的内置%+。因此，如果您将正则表达式更改为命名匹配，则可以轻松使用%+来检索匹配的部分。

$reg_ex = 'Variable1:\s+(?<foo>.*?)\s+\n\s+Variable2:\s+(?<bar>.*?)\s+\n'; 

匹配成功后，%+应该有钥匙foo和bar和值将对应于什么匹配。

因此原来的散列可以改成这样的：

my %hash = (
    reg_ex => 'Variable1:\s+(?<foo>.*?)\s+\n\s+Variable2:\s+(?<bar>.*?)\s+\n', 
    groups => [ 'foo', 'bar' ], 
);