2

私はxmlをxmlファイルに変換しています。ソースとしてテキストを変換しようとしています。現在xml::Twigを使用していますが、xmlを変更せずに出力する必要があります。

私は試した：

xml：

<book>
<book-meta>
<book-id pub-id-type="doi">98568</book-id>
<copyright-statement>Copyright &#x00A9; 1999 Relati</copyright-statement>
<imprint-text type="PublisherInfo">This edition published in the Taylor &#x0026; 2002.</imprint-text>
</book-meta>
</book>

脚本：

use strict;
use XML::Twig;
use XML::Xpath;
open(my $output , '>', "Output.xml") || die "can't open the Output $!\n";
my $xml_twig_content = XML::Twig->new(
twig_handlers => {
keep_atts_order => 1,
keep_encoding => 1,
},
pretty_print => 'indented',
);
$xml_twig_content->parsefile('sample.xml');
$xml_twig_content->print($output);

出力：

<book>
<book-meta>
<book-id pub-id-type="doi">98568</book-id>
<copyright-statement>Copyright © 1999 Relati</copyright-statement>
<imprint-text type="PublisherInfo">This edition published in the Taylor &amp; 2002.</imprint-text>
</book-meta>
</book>

出力が必要です：

<book>
<book-meta>
<book-id pub-id-type="doi">98568</book-id>
<copyright-statement>Copyright &#x00A9; 1999 Relati</copyright-statement>
<imprint-text type="PublisherInfo">This edition published in the Taylor &#x0026; 2002.</imprint-text>
</book-meta>
</book>

変更せずにソースとして必要な方法を教えてください。

4

1 に答える 1

1

newステートメントに問題があります：keep_encodingおよびkeep_atts_orderパラメーターはとして宣言されていtwig_handlersます。keep_atts_orderこれが行うのは、XMLという名前の要素またはkeep_encodingXMLで見つかった要素がすぐに死ぬことだけなので、それはあなたが望んでいることではないと思います。

私はこれがあなたが考えていたものにもっと似ていると思います：

my $xml_twig_content = XML::Twig->new( keep_atts_order => 1,
                                       keep_encoding => 1,
                                       pretty_print => 'indented',
                                     );
于 2012-11-08T07:05:59.233 に答える