我有下面的XML:如何替換XML屬性名值
<resources xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance">
<resource id="kig" type="com.ac.resourcedata.xml" site="ki">
<property name="name1">value1</property>
<property name="name2">value2</property>
</resource>
</resources>
我需要修改值1到別的東西, 和下面的Perl腳本是什麼,我可以迄今組成:
use strict;
use XML::Twig;
my $file = $ARGV[0];
my $twig=XML::Twig->new(
twig_handlers => {
parameter => sub {
if ($_->att('name') eq 'name1') {
->set_att(new value)
}
}
},
pretty_print => 'indented',
);
$twig->parsefile($file);
$twig->print(\*XMLOUT) or
die "Failed to write modified XML file:$!\n";
close XMLOUT;
$twig->flush();
但沒有什麼變化! 任何想法真的很感激。
問候, Behzad