如何用perl来修改XML文件，perl::simple 模块可以读出XML中的值，但如何修改XML文件呢？

Question

例如：xml文件如下，我想实现复制多个<User>...</User>,并将其加入到<Users>节点底下，并且要修改每个user的内容。
<Users>

<User Name="test1">
<Option Name="Pass">5a105e8b9d40e1329780d62ea2265d8a</Option>
<Permissions>
<Permission Dir="C:\user\test1">
<Option Name="FileRead">1</Option>
<Option Name="FileWrite">0</Option>
</Permission>
</Permissions>
</User>
</Users>

Answer 1

#先用XMLin读进来，
$ref=XMLin($fh)
my $template = {
Name => $ref->{Users}->{User}->{Name},
Permissions=> $ref->{Users}->{User}->{Permissions},
};

$template->{Name} = 'test2';

push @{$ref->{Users}->{User}},$template;

#最后再用XMLout写出去
XMLout($ref);

追问

XMLout写出去好像默认格式为UTF-8 。print Dumper($data) 在命令行中文都都可以显示，但是为啥$xml2->XMLout($data,outputfile => "ceshi2.xml",XMLDecl =>""); 出来的ceshi2.xml中中文为乱码？ 一定要回啊！我都纠结一周了

追答

perl 默认将读入内存的变量都转为UTF-8的。
把输出的XML文件按照UTF-8格式显示。

或者用Encode，把中文部分的内容转一下GB2312。不过我没试过，可尝试一下。