![]() |
|< 1 2 >| | ![]() |
15 Einträge, 2 Seiten |
$dbh->do($statement, undef, @lines) or ....
1
2
3
4
5
6
7
8
9
10
11
12
13
...
my $dbh = DBI->connect("dbi:mSQL:T1:fabian:3306", "password", "fabian")
or die "Kann Datenbank nicht oeffnen: " . DBI->errstr();
my $statement = 'insert into fabian (month1, day1, time1, ip, port, month2, day2, time2, message) values (?,?,?,?,?,?,?,?,?)';
my $sth=$dbh->prepare($statement) or die "Prepare $statement fehlgeschlagen: ".$dbh->errstr();
while (defined(my $getline=<FH>)) {
my @lines = split(/ /, $getline, 8);
$sth->execute(@lines)
or warn "Fehler beim Schreiben in Datenbank: " . $sth->errstr();
}
$dbh->disconnect();
...
![]() |
|< 1 2 >| | ![]() |
15 Einträge, 2 Seiten |