#!/opt/lampp/bin/perl
use DBI;
print "Content-Type: text/html\n\n";
my $dsn="DBI:InterBase:db=localhost:/opt/lampp/var/firebird/cdcol.gdb";
my $dbh=DBI->connect("$dsn","oswald","geheim") or
die "Kann Datenbank nicht erreichen!";
print "";
print "";
print "Perl und InterBase/Firebird";
print "";
print "";
print "Perl und InterBase/Firebird
";
print "";
print "";
print "| Interpret | ";
print "Titel | ";
print "Jahr | ";
print "
";
my $query="SELECT * FROM cds";
my $prep_sql=$dbh->prepare($query) or die print "Can't prepare";
$prep_sql->execute() or die print "Can't execute";
while (my @row = $prep_sql->fetchrow_array())
{
print "";
print "| ".$row[2]." | ";
print "".$row[1]." | ";
print "".$row[3]." | ";
print "
";
}
$prep_sql->finish();
$dbh->disconnect();
print "
";
print "";
print "";