#!/opt/lampp/bin/perl
use DBI;
print "Content-Type: text/html\n\n";
my $dsn="dbi:SQLite2:dbname=../sqlite/cdcol";
my $dbh=DBI->connect("$dsn","","") or
die "Kann Datenbank nicht erreichen!";
print "";
print "";
print "Perl und PostgreSQL";
print "";
print "";
print "Perl und PostgreSQL
";
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 "";