Perl で MySQL接続の -X オプション（XML出力）を利用したい

MySQL のコマンドシェルで 接続時に -X オプションを指定すると、SQL結果をXMLで返してくれます。

そこで、これをPerlから利用したいのですが、どうすれば良いのでしょうか。
イメージとしては、以下を考えています。
１．[クライアント]サーバーにデータ取得要求
↓
２．[サーバー]MySQLに接続（オプション -X 指定）・SQL実行要求
↓
３．[データベース]SQL実行・結果出力（XML）
↓
４．[サーバー]３の結果をクライアントへ出力（XML）
↓
５．[クライアント]SQL実行結果受取（XML)

せっかくデータベースがXML整形してくれるなら、それを利用したいと考えています。

DBIで出来ないかとCPANを調べてみましたが、それらしい記述を見つけられませんでした。
（英語能力の低さもありますが）

参考になるページ等、ご教示頂ければ有り難く存じます。

以上、失礼いたします。

No.1 ベストアンサー 回答者： uwi 回答日時： 2009/04/24 17:49

結果をXMLで取得するだけなら

DBIx::XML_RDB
http://search.cpan.org/~msergeant/DBIx-XML_RDB-0 …
とか
XML::Generator::DBI
http://search.cpan.org/~msergeant/XML-Generator- …
があります。
でも、どっちも結果をXMLに変換してるだけなので、
MySQL -X オプションを使いたいという要望には合わないかもしれません。

この回答へのお礼

uwi 様：
回答ありがとうございます。
お礼遅くなりまして申し訳ございません。
blue-horse と申します。

せっかくMySQLにXML出力機能があるので、そちらを利用できればと考えたのですが、やはりPerl側で加工してやる必要がありそうですね。

紹介いただいたURLをざっと見せて頂いた感じでは、XML::Generator::DBIの方が、使い易そうなので、こちらを試してみるつもりです。

ありがとうございました。

お礼日時：2009/04/27 08:58