Question

我需要修改XML文档并将其转回。我可以在perl中使用XML :: Parser来执行此操作，但是我找不到将其转回的方法。找不到将其写回去的东西。

愚蠢的实现之一

use warnings;
use strict;
use XML::Parser;
use Data::Dumper;

sub char_handler
{
        my ($parser, $text) = @_;
        $text = #DO SOMETHING HERE WITH THE TEXT
}

my ($file) = @ARGV;
open(FILE,$file);
$xml=<FILE>;
my $parser = new XML::Parser( Style=>"Tree",
                              Handler => {
                              Char => \&char_handler
                });
my $doc = $parser->parse($xml);

print Data::Dumper->Dump([$doc]);

dumps the XML.

Answer 1

XML :: Parser只是一个解析器，并不是真正用于修改文档并将其另存为XML。对于这种类型的应用程序，您需要具有某种DOM（文档对象模型）的模块，该模块可以保留有关文档的足够信息，并能够序列化回XML。

我使用并推荐XML :: LibXML并写了a tutorial，您可能会觉得有用。

这绝不是唯一的选择，但它是可靠的。它比XML :: Simple更简单，更一致（我足够知道不要使用它）。

如何在perl中使用XML :: Parser写回XML？

1 个答案: