XML::Simple#XMLoutで元のXMLに戻らない問題→解決 - ヒルズで働く@robarioの技ログ

XML::Simple#XMLoutで元のXMLに戻らない問題→解決 - ヒルズで働く@robarioの技ログ

エントリーを書いてる途中に解決しましたがメモっておきます。 use XML::Simple; use Data::Dumper; my ...概要を表示 エントリーを書いてる途中に解決しましたがメモっておきます。 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( $obj, NoAttr => 1, RootName => 'a' ); # XMLとして出力してみる を実行してみると、 <a> <b> <c> <d> </d> </c> </b> </a> $VAR1 = { 'b' => { 'c' => { 'd' => {} } } }; <a> <b> <name>c</name> <d></d>

• xml
• perl
• programming
• tips