#!/usr/bin/perl -w
# dbi2.pl vorhandene Datenbanktreiber
use DBI;
print "Content-type: text/html\n\n";
@drivers = DBI->available_drivers;
print "vorhandene Treiber:<br>";
foreach (@driver){
print "$_<br>";
}

#!/usr/bin/perl -w
# dbi3.pl vorhandene Datenquellen
use DBI;
print "Content-type: text/html\n\n";
$driver = "mysql";
@sources = DBI->data_sources($driver);
print "vorhandene Datenquellen:<br>";
foreach (@sources){
print "$_<br>";
}

#!/usr/bin/perl -w
# dbi4.pl Anweisungs-Handles
use DBI;
print "Content-type: text/html\n\n";
my $db = "adressen";
my $SQL_Driver = "mysql";
my $SQL_User="root";
my $SQL_Passw="Felix31.07";
my $dbh = DBI ->connect("DBI:SQL_Driver:$db", $SQL_User, $SQL_Passw)
or die "Verbindung konnte nicht hergestellt werden: $DBI::errstr\n";
my $sth= $dbh ->prepare("SELECT * FROM adressen") or die "Die
SQL-Anweisung konnte nicht vorbereitet werden: $DBI::errstr\n";
$sth->execute();
while (@ary = $sth->fetchrow_array)
{
	foreach (@ary)
	{
		print "$_ ";
	}
$sth->finish;
$dbh->disconnect;
}

#!/usr/bin/perl -w
# dbi4.pl Anweisungs-Handles
use DBI;
print "Content-type: text/html\n\n";
my $db = "adressen";
my $SQL_Driver = "mysql";
my $SQL_User="root";
my $SQL_Passw="";
my $dbh = DBI->connect("DBI:$SQL_Driver:$db", $SQL_User, $SQL_Passw)
or die "Verbindung konnte nicht hergestellt werden: $DBI::errstr\n";

my $sth= $dbh->prepare("SELECT * FROM adressen") or die "Die
SQL-Anweisung konnte nicht vorbereitet werden: $DBI::errstr\n";
$sth->execute();
while (@ary = $sth->fetchrow_array) {
	foreach (@ary) {
	print "$_";
	}
print "<br>";
}
$sth->finish;
$dbh->disconnect;
<STDIN>; # damit das Konsolenfenster sich nicht sofort schliesst

BEGIN {
print "Content-type: text/html\n\n";
use CGI::Carp qw/fatalsToBrowser/
}