Insertando multiples registros con MySQL

[Saga]

Hola a todos, tengo un problema insertando muchos registros en una base de datos de MySQL, lo extraño es que de un total de 3200 registros solo se graban 184.

Les anexo el código simplificado: @data_ contiene los 3200 registros, los cuales si son desplegados en pantalla, los datos antes de ser insertados en la tabla son validados y no se generan errores de tipo de datos o longitud.

Esta estructura de código lo he utilizado varios años y nunca había tenido problemas manipulado una menor cantidad de datos, ¿existe alguna sintaxis diferente cuando se trata de volúmenes de datos mayores?

espero me puedan ayudar
Saludos

Código:

	
$dbh = ConectarDB->connect();
foreach $i (@data_) {
        ($id1_, $id2_, $id3_, $id4_, $id5_, $id6_, $id7_) = split(/,/,$i);
	 ($departamento, $categoria) = split(/\./,$id7_);
         print "($id7_) $id1_|$departamento|$categoria|$id3_|$id2_|$id5_|$id4_|$id6_<br>\n";

	 $sth = $dbh->prepare('INSERT INTO inventarios values(?,?,?,?,?,?,?,?)') or die("Couldn't prepare statement: " . $dbh->errstr);
         $sth->execute($id1_,$departamento,$categoria,$id3_,$id2_,$id5_,$id4_,$id6_) or die("Couldn't execute statement: " . $sth->errstr);
}
$sth->finish;
$dbh->disconnect;

[monoswim]

hay un grabe error en el código, estás dejando las sth abiertas

debería de ser así...

Código:

my $dbh = ConectarDB->connect();
foreach my $i (@data_) {
        my ($id1_, $id2_, $id3_, $id4_, $id5_, $id6_, $id7_) = split(/,/,$i);
	 ($departamento, $categoria) = split(/\./,$id7_);
         print "($id7_) $id1_|$departamento|$categoria|$id3_|$id2_|$id5_|$id4_|$id6_<br>\n";

	 my $sth = $dbh->prepare('INSERT INTO inventarios values(?,?,?,?,?,?,?,?)') or die("Couldn't prepare statement: " . $dbh->errstr);
         $sth->execute($id1_,$departamento,$categoria,$id3_,$id2_,$id5_,$id4_,$id6_) or die("Couldn't execute statement: " . $sth->errstr);
         $sth->finish;
}

$dbh->disconnect;

Fijate que el finish de sth está dnetro del bucle ahora, y que las variables fueron bien definidas con my, eso optimiza mucho el uso de la memoria...Siempre es recomendable usar el use strict para acostumbrarnos a programar correctamente...

Saludos

[Saga]

Muchas gracias Monoswin, tienes toda la razón el problema estaba en el $sth->finish; por eso me acababa la memoria. Por cierto jeje si estaba declarando las variables solo que postee un fragmento del código.

Gracias por la ayuda

[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;