#!/usr/local/bin/perl5 -w
use CGI qw(:standard);
use DBI;
use DBI::DBD;
$ENV{'ORACLE_HOME'} = '/opt5/oracle8i/app';
my $dbh = DBI->connect("dbi:Oracle:db00",'your account','your password')
or die "Can't connect to Oracle database";
my $statement = $dbh->prepare("select * from test")
or die "Can't prepare SQL statment: $DBI::errstr\n";
$statement->execute
or die "Can't execute SQL statment: $DBI::errstr\n";
print header();
print qq(
Test page
This is a table
| field1 |
field2 |
field3 |
field4 |
);
my @row;
while (@row = $statement->fetchrow_array()) {
print qq (
| $row[0] |
$row[1] |
$row[2] |
$row[3] |
);
}
print qq(
);
$statement->finish;
$dbh->disconnect or warn "Error disconnecting\n";
exit(0);