如何使用 XML::Simple 将 XML 数据保存到文件中？

Question

我正在使用 XML::Simple 包导入 XML 文件并更改一些内容一些子标签的属性。当数据转储时，更改是可见的：

 print Dumper($data);

但是如何将编辑后的数据写入新的 XML 文件中？我确实浏览了 CPAN 页面，但一些与此相关的代码确实会有帮助。

Answer 1

my $ref = XMLin(...);

# ...

open my $fh, ">", $path or die "$0: open $path: $!";
print $fh XMLout($ref);
close $fh or warn "$0: close $path: $!";

Answer 2

将 XMLout 方法与 OutputFile 选项结合使用。这是一个示例（为了保护无辜者，名称已更改:)：

use strict;
use warnings;
use XML::Simple;

my $href = {
      'dir'        => '/tmp/foo/',
      'file'       => '/tmp/foo.debug',
      'abc'        => {
          'boo' => {
              'num'     => '55',
              'name'    => 'bill',
          },
          'goo' => {
              'num'     => '42',
              'name'    => 'mike',
          },
      }
};
 
my $xml = XMLout($href, OutputFile => 'out.xml');

文件 out.xml 的内容是：

<opt dir="/tmp/foo/" file="/tmp/foo.debug">
  <abc name="bill" num="55" />
  <abc name="mike" num="42" />
</opt>