Opened by Gast at 2004-06-02 07:16
User since
2003-08-15
692 Artikel
BenutzerIn
![[Homepage]](/battie/theme/default/homepage.gif)
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-15
692 Artikel
BenutzerIn
[quote=Dubu,02.06.2004, 21:45]siehe oben[/quote]
Und noch etwas besser ist es, das Statementhandle zu speichern, weil doch die Daten in der Schleife von der Menge her immer die gleichen sind. Dadurch wird die Schleife schlanker und einunddasselbe Statement muß nicht bei jedem Durchlauf erst wieder auf Gültigkeit geprüft werden.
Ansosten macht die Konstruktion mit "prepare/execute" keinen Sinn und "do" wäre zutreffender:
Konstruktion mit prepare/execute:
\n\n
<!--EDIT|steffenw|1086380516-->
Und noch etwas besser ist es, das Statementhandle zu speichern, weil doch die Daten in der Schleife von der Menge her immer die gleichen sind. Dadurch wird die Schleife schlanker und einunddasselbe Statement muß nicht bei jedem Durchlauf erst wieder auf Gültigkeit geprüft werden.
Ansosten macht die Konstruktion mit "prepare/execute" keinen Sinn und "do" wäre zutreffender:
Code: (dl
)
$dbh->do($statement, undef, @lines) or ....
Konstruktion mit prepare/execute:
Code: (dl
)
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();
...
<!--EDIT|steffenw|1086380516-->
$SIG{USER} = sub {love 'Perl' or die};