#!/usr/bin/perl
###########################################
# mysql_add_mult.pl
# Mike Schilli, 2002 (
[email protected])
###########################################
use warnings;
use strict;
my $USER = "root";
my $PASSWORD = "";
use DBI;
my $dbh = DBI->connect(
"DBI:mysql:" .
"database=keep_on_truckin;" .
"host=localhost",
$USER, $PASSWORD,
{PrintError => 0, AutoCommit => 1});
my @fuhrpark = (
[ "M-AX 4712", 7 ],
[ "M-AN 1234", 3 ],
[ "HH-AA 471", 8 ],
[ "HB-O 321", 8 ],
[ "A-DX 729", 7 ],
);
my $sth = $dbh->prepare( "
INSERT INTO fahrzeuge (
kennz, tonnen
) VALUES (?,?)
" ) or die $dbh->errstr();
for (@fuhrpark) {
my($kennz, $tonnen) = @$_;
$sth->execute($kennz, $tonnen) or
die $dbh->errstr();
}
$dbh->disconnect();
