Prabhath Kota: Perl connect to Database

Sep 13, 2012

Perl connect to Database

#!c:/perl/bin/perl
use CGI qw(:all);
use HTML::Template;
use DBI;

my $dbh = DBI->connect('dbi:mysql:perltest','root','password') or die "Connection Error: $DBI::errstr\n"; ####MYSQL
my $db=DBI->connect("dbi:Oracle:local", "scott", "tiger"); ###Oracle

my $sql = "select * from languages";
my $sth = $dbh->prepare($sql) or die "SQL Error: $DBI::errstr\n";
$sth->execute();

my $languages = $sth->fetchall_arrayref(
 {
 language_name => 1,
 description => 1
 }
);

=cut
while (@row = $sth->fetchrow_array) {
 print "@row\n";
}
=cut

print header;
my $template = HTML::Template->new( filename => 'template2.tmpl' );
$template->param( language => $languages );
print $template->output();

template2.tmpl
#################
 <html> 
 <head> 
 <title>Template 3</title> 
 </head> 
 <body> 
 <table> 
 <tmpl_if name=language> 
 <tr> 
 <th>Language</th> 
 <th>Description</th> 
 </tr> 
 <tmpl_loop name="language"> 
 <tr> 
 <td><tmpl_var name="language_name"></td> 
 <td><tmpl_var name="description"></td> 
 </tr> 
 </tmpl_loop> 
 <tmpl_else> 
 Sorry, no languages were found 
 </tmpl_if> 
 </table> 
 </body> 
 </html>

Prabhath Kota

Sep 13, 2012

Perl connect to Database

No comments:

Post a Comment