我想清除中的全部内容目录树中XML文件中的元素。我正在使用适用于64位Windows的StrawberryPerl。例如这个XML文件:更改后的文件应该如下所示:我有这个代码:#!/usr/bin/perlusewarnings;usestrict;useFile::Find::Rule;useXML::Twig;subdelete_loot{my($twig,$loot)=@_;foreachmy$loot_entry($loot->children){$loot_entry->delete;}$twig->flush;}my$twig=XML::Twig->new(pretty_p