Perl 对xml文件中的某些标记使用commet

我现在读了一个xml文件，我做了特殊的标记注释，但它省略了，然后插入注释

XML:

我的输出是：

<book>
  <book-meta><!--drop-->
  </book-meta>
</book>

我需要：

<book>
  <book-meta>
    <!--<book-id pub-id-type="doi">1545</book-id>-->
</book-meta>
</book>

---

在这个过程中我错了什么

只需将注释文本设置为细枝的XML：

'book-id' => sub { $_->set_comment($_->sprint) },

@user1787633：“谢谢”通过接受和/或向上投票表示。

<book>
  <book-meta>
    <!--<book-id pub-id-type="doi">1545</book-id>-->
</book-meta>
</book>

'book-id' => sub { $_->set_comment($_->sprint) },