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

my $driver = "mysql";
my @sources = DBI ->data_sources($driver);

#!C:/Perl/bin/perl.exe -w
# dbi4.pl Anweisungs-Handles
use DBI;
BEGIN {
print "Content-type: text/html\n\n";
use CGI::Carp qw/fatalsToBrowser/
}
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() or die "$DBI::errstr\n";
while (@ary = $sth ->fetchrow_array) {
        foreach (@ary) {
        print "$_ <br>";
        }
print "<br>";
}
$sth ->finish;
$dbh ->disconnect;

use strict;

#!C:/Perl/bin/perl.exe -w
# dbi2.pl vorhandene Datenbanktreiber
use strict;
use warnings;
use DBI;
use CGI;
my $q = CGI->new();
#print "Content-type: text/html\n\n";
print $q->header();
my $driver = "mysql";
my @sources = DBI ->data_sources($driver); 
print "vorhandene Datenquellen:<br>";
foreach (@sources){
print "$_<br>";
}

perl -MDBI -e '
@drivers = DBI->available_drivers;
for (@drivers) {
print join("\n", DBI->data_sources($_));
}'

#!C:/Perl/bin/perl.exe -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>";
}