1

次のようないくつかの行を含む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を使用して可能ですか？もしそうなら、どのように？そうでない場合は、どうすればよいですか？

4

2 に答える 2

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');
于 2013-03-16T15:41:07.897 に答える
0

次のようなことができます：

#!/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

詳細： こちら

于 2013-03-16T15:36:29.417 に答える