xml - 如何将固定数字添加到 XML 文件中某行的特定属性？

Question

我有一个 XML 文件，其中包含如下几行：

<Teste  Time="380643" TT="380592" Win="-2" Xl="28" Yl="55" />
<Teste  Time="380660" TT="380592" Win="-2" Xl="28" Yl="55" />

我需要为Time属性的每个实例添加一个固定数字，例如380643 + 10000，并获取一个带有新行的 XML 文件，例如<Time="390643" TT="380592" Win="-2" Xl="28" Yl="55"/>. 这可以使用 Perl 吗？如果是这样，怎么做？如果没有，我该怎么办？

Answer 1

使用XML::Twig和twig_roots：

my $twig=XML::Twig->new(   
  twig_roots => 
    { Time => sub { $_->set_att( TT => $_->att('TT')+10000 )->flush; } 
    },
  twig_print_outside_roots => 1 
);
$twig->parsefile('myXmlFile.xml');

Answer 2

你可以这样做：

#!/usr/bin/perl

# use module
use XML::Simple;

# create object
$xml = new XML::Simple;

# read XML file
$data = $xml->XMLin("data.xml");

# access XML data
$time = $data->{Time}->TT;
//do your stuff here

更多： 这里