Hello,
it looks that query in TT actually works, because it apparently returned
three rows. I would suspect the keys would be uppercase, but it actually
depends on DBI driver.
You can check in the small script by using fetchrow_hashref instead of
fetchrow_arrayref and dumping the result. Something like:
use Data::Dump qw{dump};
...
while (my $row = $sth->fetchrow_hashref()) {
dump $row;
}
-- regards, Roman
Dne 24.3.2010 17:05, William Bulley napsal(a):
> I am learning about Template::Toolkit and how to use the DBI plugin.
>
> I am running Perl 5.10.1 on FreeBSD 8.0-STABLE and have these available:
>
> bsdpan-Template-DBI-2.64 Template::Plugin::DBI
> p5-Template-Toolkit-2.22_1 Extensive Toolkit for template processing
> p5-DBI-1.60.9 The perl5 Database Interface.
> p5-DBD-Oracle-1.19_3 DBI driver for Oracle RDBMS server
>
> I used the following DDL to create my Oracle table. I then INSERTed
> three rows (see below):
>
> freebsd% cat foo.create.sql
> CREATE TABLE me.myuser (
> id INTEGER CONSTRAINT con1 NOT NULL,
> name VARCHAR2(255),
> email VARCHAR2(255),
> CONSTRAINT con3 PRIMARY KEY (id)
> ) ;
>
> The following is my template file "foo.tmpl":
>
> =*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=
>
> [% INCLUDE header.tmpl title = 'User Info' %]
>
> [% USE DBI('dbi:Oracle:sid', 'me', 'pw') %]
>
> [% rows = DBI.query('SELECT * FROM me.myuser') %]
> <p> Number of users = [% rows.size %]</p>
>
> <table border=0 width="100%">
> <tr>
> <th>User ID</th>
> <th>Name</th>
> <th>Email</th>
> </tr>
> [% FOREACH user = DBI.query('SELECT * FROM me.myuser ORDER BY id') %]
> <tr>
> <td>[% user.id %]</td>
> <td>[% user.name %]</td>
> <td>[% user.email %]</td>
> </tr>
> [% END %]
> </table>
>
> [% INCLUDE footer.tmpl %]
>
> =*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=
>
> This is the output of "% tpage foo.tmpl":
>
> <html>
> <head>
> <title>User Info</title>
> </head>
> <body>
>
> <p> Number of users = 0</p>
>
> <table border=0 width="100%">
> <tr>
> <th>User ID</th>
> <th>Name</th>
> <th>Email</th>
> </tr>
>
> <tr>
> <td></td>
> <td></td>
> <td></td>
> </tr>
>
> <tr>
> <td></td>
> <td></td>
> <td></td>
> </tr>
>
> <tr>
> <td></td>
> <td></td>
> <td></td>
> </tr>
> </table>
>
> <div class="copyright">
> © Copyright 2010 by Web
> </div>
> </body>
> </html>
>
> =*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=
>
> I don't know how to track down what is wrong. The same query in a
> small Perl script using the same DSN and credentials results in this:
>
> freebsd% ./foo.oracle.test.pl
> 1 curly [email protected]
> 2 moe [email protected]
> 3 larry [email protected]
>
> =*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=
>
> #!/usr/bin/perl
>
> use strict;
> use warnings;
> use DBI;
>
> # omit $user, $password, and $sid initallization for clarity
>
> my $dbh = DBI->connect("dbi:Oracle:$sid", $user, $password)
> or die "Can't connect to database: $DBI::errstr
> $!\n";
>
> my $query = qq/select * from me.myuser/;
>
> my $sth = $dbh->prepare ($query)
> or die "Couldn't prepare statement: " . $dbh->errstr;
>
> $sth->execute() or die "Couldn't execute statement: " . $sth->errstr;
>
> while (my @row = $sth->fetchrow_array())
> {
> print join ("\t", @row), "\n";
> }
>
> $sth->finish;
>
> print "\n";
>
> $dbh->disconnect;
>
> exit (0);
>
> =*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=*=
>
> Can anyone recommend any pointers for ways to make this work? Thanks.
>
>
> Regards,
>
> web...
>
> --
> William Bulley Email: [email protected]
>
> 72 characters width template ----------------------------------------->|
>
> _______________________________________________
> templates mailing list
> [email protected]
> http://mail.template-toolkit.org/mailman/listinfo/templates
>
>
_______________________________________________
templates mailing list
[email protected]
http://mail.template-toolkit.org/mailman/listinfo/templates
