Извлечение определенных узлов из XML с помощью XML :: Twig

Question

Я пытался извлечь определенный набор узлов из следующей структуры XML, используя XML :: Twig, но с тех пор застрял. Мне нужно извлечь узлы «игрока» из следующей структуры и выполнить строку match/replace для каждого из этих значений.

<pep:record> 
    <agency type="player"> 
     <subrecord type="scout"> 
      <isnum>123XXX (print)</isnum> 
      <isnum>234YYY (mag)</isnum> 
     </subrecord> 
     <subrecord type="group"> 
     </subrecord> 
    </agency> 
</record> 

Я пробовал использовать следующий код, но я указываю на ссылку хеша, а не на фактическую строку.

my $parser = XML::Twig->new(twig_handlers => { 
     isnum => sub { print $_->text."::" }, 
    }); 

foreach my $rec (split(/::/, $parser->parse($my_xml))) { 
    if ($rec =~ m/print/) { 
     ($print = $rec) =~ s/(\(print\))//; 
    } 
    elsif($rec =~ m/mag/) { 
     ($mag = $rec) =~ s/(\(mag\))//; 
    } 
} 

Answer 1

Как я понимаю, что вам нужно что-то вроде этого:

use Modern::Perl; 
use XML::Twig; 

my $my_xml = <<EOL; 
<pep:record> 
    <agency type="player"> 
     <subrecord type="scout"> 
      <isnum>123XXX (print)</isnum> 
      <isnum>234YYY (mag)</isnum> 
     </subrecord> 
     <subrecord type="group"> 
     </subrecord> 
    </agency> 
</pep:record> 
EOL 

my @records; 

my $parser = XML::Twig->new(twig_handlers => { 
     isnum => sub { push @records, $_->text }, 
    }); 

$parser->parse($my_xml); 

foreach my $rec (@records) { 
    if ($rec =~ m/print/) { 
     $rec =~ s/(\(print\))//; 
    } 
    elsif ($rec =~ m/mag/) { 
     $rec =~ s/(\(mag\))//; 
    } 

    say $rec; 
}