$sth->execute(@bind); my %xml_hash = ( dataset => [ ] ); while (my $row = $sth->fetchrow_hashref ){ push @{$xml_hash{dataset}}, $row; } my $cgi = CGI->new; print $cgi->header('text/xml'); my $testxml = XMLout( \%xml_hash, NoAttr => 1, RootName => data +set, ); print $testxml; $sth->finish();
In reply to Re^6: Building SQL Query on the fly
by hallikpapa
in thread Building SQL Query on the fly
by hallikpapa
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |