#!C:\Perl\bin\perl.exe -w
# Dateiname: myscript04.cgi
use DBI;
$db="pizzadb";
$host='localhost';
$verbindung="dbi:mysqlPP:database=$db;host=$host";
$benutzername="root";
$benutzerpasswort="1234";
@einträge=(
[1001,13,"Salami 2 mal",20.5],
[1002,14"Salami und Schinken",20.6],
[1003,23,"Napoli und Gorgonzola",23.5]
);
my $dbh = DBI->connect(
"$verbindung","$benutzername","$benutzerpasswort") || die
"Database connection nicht erfolgreich!: $DBI::errstr";
my $sql = qq{INSERT INTO pizzabestellungen
(BestellNr,KundenNr,Beschreibung,Preis) values (?,?,?,?)};
my $sth = $dbh->prepare( $sql );
foreach $eintrag(@einträge)
{
($bestellNr,$kundenNr,$beschreibung,$preis)=@$eintrag;
$sth->execute($bestellNr,$kundenNr,$beschreibung,$preis);
}
$sth->finish();
$dbh->disconnect();
print "Content-type: text/html\n\n";
print "
Tabeellen-INSERTs ausgeführt!