#!/usr/bin/perl #use strict; use DBI; use XML::Generator::DBI; use XML::Handler::YAWriter; my $dbname = ''; my $host = ''; my $user = ''; my $pwd = ''; my $dbh = DBI->connect("DBI:mysql:$dbname:$host",$user,$pwd) or die "Can't connect to database ($dbname:$host)!\n"; my $query = ""; #REGULAR DBI/STH OUTPUT my $sth = $dbh->prepare($query) or die "Can't prepare $query: " . $dbh->errstr . "\n"; $sth->execute or die "Can't execute query: " . $dbh->errstr . "\n"; my @row; while(@row = $sth->fetchrow_array) { for my $i (0..($sth->{NUM_OF_FIELDS}-1)) { print "[" . $row[$i] . "]"; } print("\n"); } $sth->finish; print "\n\n"; #XML OUTPUT (TO STRING AS SETUP) my $out = XML::Handler::YAWriter->new(AsString => 1); #Print to std-out use: AsFile => "-" my $gen = XML::Generator::DBI->new(dbh => $dbh, Handler => $out, RootElement => "rowset", Indent => 1 ); my $xp = $gen->execute($query); print "$xp\n"; $dbh->disconnect; exit(0);