1

XMLファイルからすべてのタグを収集したい。コメント構文のみを削除するにはどうすればよいですか?

XML ファイル:

<xml>
<contrib-group>
<contrib contrib-type="author">
<name>
<surname>Holt</surname>
<given-names> Maurice<!--<xref ref-type="fn" rid="fnI_1"><sup>1</sup></xref>--></given-names>
</name>
</contrib>
</contrib-group>
</xml>

次のように出力する必要があります。

<xml>
<contrib-group>
<contrib contrib-type="author">
<name>
<surname>Holt</surname>
<given-names> Maurice<xref ref-type="fn" rid="fnI_1"><sup>1</sup></xref></given-names>
</name>
</contrib>
</contrib-group>
</xml>

コメントを削除するにはどうすればよいですか?

脚本：

#!/usr/bin/perl
use warnings;
use strict;
use XML::Twig;

open(my $output , '>', "split.xml") || die "can't open the Output $!\n";
my $xml = XML::Twig->new( twig_handlers => { xref => sub{comments => 'drop'} } );
$xml->parsefile("sample.xml");
$xml->print($output);

私はそれを行うことはできません.削除を含め<!-- -->ずに削除するにはどうすればよいですか?

4

1 に答える 1

6 
#!/usr/bin/perl
use warnings;
use strict;

use XML::Twig;

open my $output , '>', 'split.xml' or die "Can't open: $!\n";
my $xml = XML::Twig->new( comments      => 'process',       # Turn on comment processing
                          twig_handlers =>
                              { '#COMMENT' => \&uncomment }
                        );
$xml->parsefile('sample.xml');
$xml->print($output);

sub uncomment {
    my ($xml, $comment) = @_;
    $comment->set_outer_xml($comment->text);                # Replace the comment with its contents.
}
于 2013-01-08T09:26:00.727 に答える