Question

能否使用 Perl 脚本从这样的 XML 文件中只获取数据( 战争、欧洲、首先等), 并将其存储在. txt 文件中?

<Node id="93" /> 
  war 
  <Node id="102" /> 
  Europe 
  <Node id="112" /> 
  first 
  <Node id="117" /> 
  <Node id="118" /> 
  world
  <Node id="120" /> 
  <Node id="121" /> 
  country 
  <Node id="126" /> 
  fire
  <Node id="132" /> 
  <Node id="135" /> 
  The 
  <Node id="139" /> 
  Government
  <Node id="144" /> 
  has greeted 
  <Node id="157" /> 
  King
  <Node id="159" /> 
  <Node id="160" />

Answer 1

您可以使用 < a href=> "http://p3rl.org/XML% 3a% 3aLibXML" rel=“ no follow” >XML::LibXML 。

use XML::LibXML qw();
my $dom = XML::LibXML->load_xml(string => << XML );
<root>
  <Node id="93" />
  war
  <Node id="102" />
  Europe
  <Node id="112" />
  first
  <Node id="117" />
  <Node id="118" />
  world
  <Node id="120" />
  <Node id="121" />
  country
  <Node id="126" />
  fire
  <Node id="132" />
  <Node id="135" />
  The
  <Node id="139" />
  Government
  <Node id="144" />
  has greeted
  <Node id="157" />
  King
  <Node id="159" />
  <Node id="160" />
</root>
XML

print $dom->textContent;

Answer 2

您可以使用"http://search.cpan.org/ ~grantm/XML-Sple-2.18/lib/XML/Spro.pm" rel =“nofollow”>XML::Spere 。看起来你只想要内容部分。

use strict;
use warnings;
use XML::Simple;
my $xml = qq~<root>
<Node id="93" /> 
  war 
  <Node id="102" /> 
  Europe 
  <Node id="112" /> 
  first 
  <Node id="117" /> 
  <Node id="118" /> 
  world
  <Node id="120" /> 
  <Node id="121" /> 
  country 
  <Node id="126" /> 
  fire
  <Node id="132" /> 
  <Node id="135" /> 
  The 
  <Node id="139" /> 
  Government
  <Node id="144" /> 
  has greeted 
  <Node id="157" /> 
  King
  <Node id="159" /> 
  <Node id="160" />
</root>
~;

my $ref = XMLin($xml);
open $out,  > ,  output.txt  or die "Could not open output file";
print $out join "
", map {s/s{2,}//g;$_} @{$ref->{ content }};
close $out;

周围还有其他的 XML 模块, 您也可以使用。

Answer 3

使用 < a href=> "http://p3rl.org/XML%3a%3aXSH2" rel="nofollow">XML::XSH2 :

open 1.xml ;
echo (/) ;

友情链接