使用命名的子表達式時可以複製％+哈希值嗎？

Question

我有輸出readelf -Ws匹配以下正則表達式：

my $regex = qr{ ^\s+(?'Num'\d+): 
        \s+(?'Value'\w+) 
        \s+(?'Size'(?:\d+|0x[0-9a-fA-f]+)) 
        \s+(?'Type'\w+) 
        \s+(?'Bind'\w+) 
        \s+(?'Vis'\w+) 
        \s+(?'Ndx'\w+) 
        \s+(?'Name'\S+) 
       }x; 

...雖然它可能不是完美的，它適合我的需求不夠好。

理想的情況下，這將被使用的方式是：

while(<>) { 
    chomp; 
    m{${regex}} || next; 
    # an implicit assertion here is that length($+{Name}) > 0 
    if( $+{Type} =~ m{something} 
    && $+{Bind} =~ m{something} 
    ... 

...然而，%+得到第一個正則表達式後重挫。我不知道如何製作%+的散列副本。是否有可能，如果有的話，我會怎麼做？

顯然，下面可以做：

while(<>) { 
    chomp; 
    my ($Num, $Value, $Size, $Type, $Bind, $Vis, $Ndx, $Name) = ($_ =~ m{${regex}}); 
    next unless defined($Name); 

    if( $Type =~ m{something} 
    && $Bind =~ m{something} 
    ... 

...但我比較喜歡使用命名的子表達式，因爲它可以幫助正則表達式自我記錄。

Answer 1

%captures = %+; 

use Data::Dumper qw(Dumper); 

local $_ = 'abc123'; 

my @captures; 
while (/(?'Letters'\pL+)|(?'Digits'\pN+)/g) { 
    my %captures = %+; 
    push @captures, \%captures; 
} 

print(Dumper(\@captures)); 

$VAR1 = [ 
      { 
      'Letters' => 'abc' 
      }, 
      { 
      'Digits' => '123' 
      } 
     ]; 

---

或者因爲只有定義的字段都存在，你可以使用

%captures = (%captures, %+); 

或

$captures{$_} = $+{$_} for keys %+; 

use Data::Dumper qw(Dumper); 

local $_ = 'abc123'; 

my %captures; 
while (/(?'Letters'\pL+)|(?'Digits'\pN+)/g) { 
    %captures = (%captures, %+); 
} 

print(Dumper(\%captures)); 

$VAR1 = { 
      'Letters' => 'abc', 
      'Digits' => '123' 
     };