エントリーを書いてる途中に解決しましたがメモっておきます。 use XML::Simple; use Data::Dumper; my $xml = <<'XML'; <a> <b> <c> <d> </d> </c> </b> </a> XML $\ = "\n"; print $xml; my $obj = XMLin($xml); # XMLを入力して print Dumper($obj); # 中身を確認し、 print XMLout( $…

XMLoutのオプションにNSExpand=>1を加えると名前空間を扱えるようになる。XML::NamespaceSupportが必要。 use XML::Simple; my $obj = {'{http://www.w3.org/2000/xmlns/}foaf' => 'http://xmlns.com/foaf/0.1/', '{http://www.w3.org/2000/xmlns/}rdf' => '…