Insertando multiples registros con MySQL

[jferrero]

Es que lo correcto es sacar el prepare fuera del bucle, ya que siempre es la misma "preparación", y hacer un execute en cada vuelta. El finish() sobra la mayoría de las veces (esto último lo dice el manual, no yo).

Código Perl:

my $dbh = ConectarDB->connect();
my $sth = $dbh->prepare('INSERT INTO inventarios values(?,?,?,?,?,?,?,?)')
    or die("Couldn't prepare statement: " . $dbh->errstr);
my @id;
my ($departamento, $categoria);
my @vars;
foreach ( @data_ ) {
    @id = split q{,}, $_;
    ($departamento, $categoria) = split q{.}, $id[6];
    @vars = ($id[0], $departamento, $categoria, @id[2,1,4,3,5]);
    print "($id[6]) ", join(q{|}, @vars), "<br>\n";
    $sth->execute(@vars) or die("Couldn't execute statement: " . $sth->errstr);
}
$dbh->disconnect;