如何使用perl脚本将XML文件转换/读取到文本文件

Question

我有一个XML文件的小snipet。我想知道如何使用perl将此XML文件转换为文本文件

<Root>
    <Top name="hello">
      <Module name="cpu">
        <input name="power_bus"/>
        <bidirection name="add_bus"/>
      </Module>
      <Module name="Pow_control">
        <input name="cpu_bus"/>
        <output name="power_bus"/>
        <bidirection name="add_bus"/>
    </Module>
</Root>

我对e

有所了解的脚本的一般概念

use XML::TreePP;
use Data::Dumper;
my $tpp = XML::TreePP->new();
my $tree = $tpp->parsefile( "family.xml" );
my $text = Dumper( $tree );
print $text;