Question

我需要使用Perl提取关联rightmh = 后面的字符串。

在此示例中：“0x42001dc”＆amp; “0x4200000”。

每个字符串都将添加到同一个数组中。

<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<association-response-list xmlns="http://url.com">
<association-responses>
<association rightmh="0x42001dc" leftmh="0x4055246" rh="0x1003b"/>
<association rightmh="0x4200000" leftmh="0x455246" rh="0x1003b"/>
</association-responses>
</association-response-list>

Answer 1

使用XML解析器，例如XML::LibXML：

#!/usr/bin/perl
use warnings;
use strict;

use XML::LibXML;

my $xml = << '__XML__';
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<association-response-list xmlns="http://url.com">
<association-responses>
<association rightmh="0x42001dc" leftmh="0x4055246" rh="0x1003b"/>
<association rightmh="0x4200000" leftmh="0x455246" rh="0x1003b"/>
</association-responses>
</association-response-list>
__XML__

my $doc = 'XML::LibXML'->load_xml(string => $xml);

my @rightmh;
push @rightmh, $_->value for $doc->findnodes('//@rightmh');
print "@rightmh\n";

Answer 2

XML::Twig的解决方案：

#!/usr/bin/perl
use warnings;
use strict;

use XML::Twig;

my $xml = << '__XML__';
<?xml version="1.0" encoding="UTF-8" standalone="yes"?>
<association-response-list xmlns="http://url.com">
<association-responses>
<association rightmh="0x42001dc" leftmh="0x4055246" rh="0x1003b"/>
<association rightmh="0x4200000" leftmh="0x455246" rh="0x1003b"/>
</association-responses>
</association-response-list>
__XML__

my @rightmh;
XML::Twig->new( twig_roots => { 'association[@rightmh]'
                                   => sub { push @rightmh, $_->att( 'rightmh'); }
                              }
              )
         ->parse( $xml);
print "@rightmh\n";

Answer 3

您可以使用正则表达式。

my @array;
open XML, "<file.xml";
while(<XML>){
 if($_ =~ /association rightmh="(.*?)"/){
  push @array, $1;
 }
}

使用Perl从xml文件中提取字符串

3 个答案: