#!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 "<br><br>Tabeellen-INSERTs ausgeführt!</body></html>";