Werkzeug zum Füllen von Datenbanken II

filldb.pl

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.