name、valueで記述されているxmlをnameを列にしてcsvに変換するツール

Question

<data>
  <value>
　　<struct>
      <member>
        <name>名前</name>
        <value>田中一郎</value>
      </member>
      <member>
        <name>年齢</name>
        <value>15</value>
      </member>
    </struct>
  </value>
  <value>
    <struct>
      <member>
        <name>名前</name>
        <value>橋本次郎</value>
      </member>
      <member>
        <name>年齢</name>
        <value>13</value>
      </member>
    </struct>
  </value>
</data>      

のようなXMLを

名前,年齢
田中一郎,15
橋本次郎,13

のようなCSVに変換できるツールなどないでしょうか？
(ヘッダー行はなくても構いません)
階層はvalueタグを空白に文字列置換することで浅くはできると思いますが。。。
プログラムを組めばもちろんできますが、なにか良いツールがあれば教えて頂けると助かります。

Comments

[AbeTakashi]

「xml csv 変換 ツール」で検索すればいっぱい出てきますが、これじゃダメだということですか？　なにをもって「良いツール」「ダメなツール」なのかがこの質問文だけではちょっと読み取れないので、もう少し要件や望むものを具体的に記入された方が良いと思います。

[benjamin]

> 「xml csv 変換 ツール」で検索すればいっぱい出てきますが、これじゃダメだということですか？　
ダメだということです。

<struct>
<名前>田中一郎</名前>
<年齢>15</年齢>
</struct>
<struct>
<名前>橋本次郎</名前>
<年齢>13</年齢>
</struct>
のようなXMLであれば、おっしゃるとおり検索すればいっぱい出てくると思いますが、
提示しているような形式のXMLだと難しそうなので質問しました。

Answer 1

xsltprocを使えば変換できます。

xmlからcsvへの変換（xsltprocコマンド） - Qiita

ややこしすぎる気がしますね。素直にスクリプトで処理するのが手っ取り早くて分かりやすそうです。

use strict;
use warnings;
use XML::Simple;

my $xml     = XML::Simple->new;
my $xmldata = XMLin('input.xml', forceArray=>1);

binmode STDOUT, ':utf8';
foreach my $value (@{$xmldata->{value}}){
  printf "%s,%s\n", 
    $value->{struct}[0]{member}[0]{value}[0],
    $value->{struct}[0]{member}[1]{value}[0];
}

Comments

[benjamin]

やはりそうなりますか。
あまりこのへんは詳しくないのでもしかしたら何かあるかなと思いましたが。
ダメならXSLを調べるか、得意なC#で作るかと思っていましたが、
良い機会なのでPerlも参考にさせて頂いてすこしカジッてみようと思います。
ありがとうございました。