MySQL的XML输出

将XML与MySQL结合使用似乎是从MySQL查询转换为XML的各种不同方式的好地方。

从文章：

   use strict;   use DBI;   use XML::Generator::DBI;   use XML::Handler::YAWriter;   my $dbh = DBI->connect ("DBI:mysql:test",     "testuser", "testpass",     { RaiseError => 1, PrintError => 0});   my $out = XML::Handler::YAWriter->new (AsFile => "-");   my $gen = XML::Generator::DBI->new (  Handler => $out,  dbh => $dbh         );   $gen->execute ("SELECt name, category FROM animal");   $dbh->disconnect ();