如何仅删除注释语法？

Question

我想从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); 

我不能做到这一点...我如何删除<!-- -->只是没删除包含哪些内容？

Answer 1

#!/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. 
}