2

该线程是Perl 脚本的延续，用于填充 XML 文件。

我要更改的文件是：

<?xml version="1.0" encoding="UTF-8"?>
  <configuration start="earth">
    <country-list>
      <country name="japan">
        <description></description>
        <start>1900</start>
        <end/>
      </country>
      <country name="italy">
        <description></description>
        <start>1950</start>
        <end/>
      </country>
      <country name="korea">
        <description></description>
        <start>1800</start>
        <end/>
      </country>
    </country-list>
  </configuration>

我想在此列表中添加一个新国家/地区。

在上一个问题中，用于填充 XML 文件的 Perl 脚本。

#Get the list of cities as a list, then push "Tokyo" to it.
push @{$doc->{countries}->{country}->{'japan-'}->{city}}, 'Tokyo';

建议添加一个新标签，但在我的情况下，我不确定如何使用“推送”。我无法映射到正确的标签。

4

2 回答 2

2

我发现XML::DOM使用起来要简单得多。它可能有点冗长，但你可以很容易地理解它在做什么。

use XML::DOM;

#parse the file
my $parser = new XML::DOM::Parser;
my $doc = $parser->parsefile ("test.xml");
my $root = $doc->getDocumentElement();

#get the country-list element
my $countryListElement = pop(@{$root->getElementsByTagName('country-list')}); 

#create a new country element
my $newCountryElement= $doc->createElement('country');
$newCountryElement->setAttribute("name","England");

my $descElement= $doc->createElement('description');
$newCountryElement->appendChild($descElement);

my $startElement= $doc->createElement('start');
my $startTextNode= $doc->createTextNode('1900');
$startElement->appendChild($startTextNode);
$newCountryElement->appendChild($startElement);

my $endElement= $doc->createElement('end');
$newCountryElement->appendChild($endElement);

#add the country to the country-list
$countryListElement->appendChild($newCountryElement);

#print it out
print $doc->toString;

#print to file
$doc->printToFile("out.xml");
于 2010-11-29T13:56:37.240 回答
0

你不能使用推送。Push 用于将项目附加到数组（列表）。从某人之前给你的“push”命令来看，国家被表示为一个哈希，而不是一个列表，所以你需要类似的东西

$doc->{国家)->{国家}->{特兰西瓦尼亚} = {};

那是为“特兰西瓦尼亚”创建一个空哈希。您的系统可能需要其中有一些结构。

于 2010-11-29T13:03:18.450 回答