|
my $tuple = join(", ", ("?") x $cols); my $st = $db->prepare("insert into $table values ($tuple)"); while(<>) { chomp; if ($strip_comments) { next if /^\s*#/; next if /^\s*$/; } my @tuple = split /$delim/, $_, $cols; $st->execute(@tuple); } $db->disconnect; |
Mit dem x-Operator können Listen oder Zeichenketten
vervielfältigt werden. $tuple enthält somit genau
soviel Platzhalter, wie über $cols angegeben worden sind.
|
Copyright © 1996 - 2003 Andreas Borchert, in HTML konvertiert am 01.10.2003 |