- or download this
use strict;
use DBI;
use XML::Generator::DBI;
use XML::Handler::YAWriter;
- or download this
my $dbh = DBI->connect(
qw(DBI:vendor:database:host user pass),
{RaiseError=>1},
);
- or download this
my $handler = XML::Handler::YAWriter->new(AsFile => 'foo.xml');
- or download this
my $generator = XML::Generator::DBI->new(
Handler => $handler,
dbh => $dbh,
Indent => 1,
);
- or download this
$generator->execute('select bar,baz from foo');
- or download this
use strict;
use DBI;
use XML::Generator::DBI;
use XML::XPath;
use XML::XPath::Builder;
- or download this
my $dbh = DBI->connect(
qw(DBI:vendor:database:host user pass),
{RaiseError=>1},
);
- or download this
my $handler = XML::XPath::Builder->new();
- or download this
my $generator = XML::Generator::DBI->new(
Handler => $handler,
dbh => $dbh,
);
- or download this
my $xp = $generator->execute('select bar,baz from foo');
- or download this
my $nodeset = $xp->find('/database/select/row/bar');
print $_->string_value, "\n" for $nodeset->get_nodelist;
- or download this
use strict;
use DBI;
...
qw(DBI:vendor:database:host user pass),
{RaiseError=>1},
);
- or download this
my $handler = XML::Handler::HTMLWriter->new();
- or download this
my $filter = XML::Filter::SAX1toSAX2->new(Handler => $handler);
- or download this
my $generator = XML::Generator::DBI->new(
Handler => $filter,
...
);
$generator->execute('select foo as td,bar as td from baz');
- or download this
use strict;
use DBI;
...
qw(DBI:vendor:database:host user pass),
{RaiseError=>1},
);
- or download this
my $writer = XML::SAX::Writer->new();
my $xsl_filt = XML::Filter::XSLT->new(Handler => $writer);
...
Handler => $sax_filt,
dbh => $dbh,
);
- or download this
$xsl_filt->set_stylesheet_uri('foo.xsl');
$generator->execute('select bar,baz from foo');
- or download this
use strict;
...
use XML::Generator::DBI;
use XML::Filter::SAX1toSAX2;
use XML::Filter::XSLT;
- or download this
my $style = 'dynamic.xsl';
my %field = (
...
title => 'song.title as Song',
year => 'album.year as Year',
);
- or download this
print header, start_html, start_form,
checkbox_group(
...
),
submit('go'), end_form,
;
- or download this
if (param('go')) {
- or download this
my @ok = map { $field{$_} } grep $field{$_}, param('fields');
- or download this
die 'no valid fields selected' unless @ok;
my $select = join(',', @ok);
- or download this
my $dbh = DBI->connect(
qw(DBI:vendor:mp3:host user pass),
{RaiseError=>1},
);
- or download this
my $writer = XML::SAX::Writer->new();
my $xsl_filt = XML::Filter::XSLT->new(Handler => $writer);
...
dbh => $dbh,
ShowColumns => 1,
);
- or download this
die "could not open file $style" unless -r $style;
$xsl_filt->set_stylesheet_uri($style);
- or download this
$generator->execute("
select $select
...
order by artist.name,album.year,album.title
");
}