Foro - Perl en Español

por **mariomb19** » 2012-05-14 10:03 @460

Buenas. Quiero insertar unos datos a una tabla. Encontré este código. ¿Qué significa "posthilit"?

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$fastaEntry = $dbh -> prepare("<span class="posthilit">INSERT</span> <span class="posthilit">INTO</span> fasta  VALUES (?,?,?,?)");
 
my $sth1 = $dbh->prepare($query1) or die ("Error prepare: $query1" );
$sth1->execute()  or die ("Error prepare: $query1" );
$sth1->finish;
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Lo tengo con este código pero no me funciona. Los datos están en las variables de los values.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my$dbh= DBI->connect('DBI:Pg:dbname=hcm;host=xxx.xxx.xxx','xxx','xxxxxxx')||die"ERROR CONEXIÓN : $DBI::errstr";

$sth=$dbh->prepare("INSERT INTO conversion.conv_compensa_sap_fi(nu_acreedor,nu_doc_sap,nu_factura,nu_doc_comp,tp_documento,fe_factura,fe_pago,mt_factura,mt_sin_imp,nu_siniestro) VALUES($campo1,$campo2,$campo3,$campo4,null,$campo5,$campo6,$campo7,$campo8,null)");
my($nu_acreedor,$nu_doc_sap,$nu_factura,$nu_doc_comp,$tp_documento,$fe_factura,$fe_pago,$mt_factura,$mt_sin_imp,$nu_siniestro);

$dbh->while(<>){
my($nu_acreedor,$nu_doc_sap,$nu_factura,$nu_doc_comp,$tp_documento,$fe_factura,$fe_pago,$mt_factura,$mt_sin_imp,$nu_siniestro);
$sth->execute($nu_acreedor,$nu_doc_sap,$nu_factura,$nu_doc_comp,$tp_documento,$fe_factura,$fe_pago,$mt_factura,$mt_sin_imp,$nu_siniestro);

$sth->finish;
print"hecho";
}

disconnect();Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Lo del "posthilit" no significa nada... es un trozo de código HTML que has copiado y pegado de la página resultado de una búsqueda que has hecho buscando por estos foros por la palabra INSERT. Es obvio que en una sentencia SQL no debería aparecer código HTML (salvo si forma parte de un valor a almacenar, claro).

En cuanto al segundo código, hay un follón tremendo...

Por una parte, tienes una sentencia INSERT que mete los valores de las variables $campo1, $campo2... (que además, no sabemos de dónde vienen) dentro de la llamada a un procedimiento interno asociado a 'conversion'.

Y luego, en la línea siguiente declaras unas variables ($nu_acreedor...). Naturalmente, los valores de esas variables serán indefinidos (undef).

Luego, ejecutas un $dbh->while(), que supongo que provocará el incendio del procesador, o al menos, la generación de un humo espeso...

Vuelves a declarar las mismas variables...

Y ahora llamas a execute(), con las variables. Esto, tiene el efecto de que cada variable se mete en el placeholder asociado en la consulta preparada con el prepare()... pero... 1) no existe ningún placeholder en esa consulta, y 2) las variables que pasas a la consulta están indefinidas, en parte porque las acabas de declarar (y dos veces, además). Ahora sí: ahora es cuando el ordenador estalla en pedazos.

Te recomiendo que te leas la sección 'Ejecutando' del Tutorial 'Cómo conectarte a tu database' de este mismo sitio web.

por **mariomb19** » 2012-05-14 15:35 @691

Muchas gracias, me salió bien. Estoy desarrollando otro script para insertar datos a una base de datos y en este me sale error. No sé por qué, si está igual al otro, que lo tengo bien.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl -w
 
use DBI;
use DBD::Pg;
 
$dirname = "/home/rocco/dir2/";
 
opendir( DIR, $dirname ) || die "Error in opening dir $dirname\n";
 
#Seleccionando archivo de compensación
 
while ( my $rechazo = glob "/home/rocco/dir2/sapfi_rechazo_********_HCM_****.txt" ) {
    open my $FH, '<', $rechazo or die "ERROR: No se pudo abrir [$rechazo]: $!\n";
 
    #Separando cada valor de los archivos y guardándolos en variables
 
    while ( my $reglon = readline $FH ) {
        my @correa    = split /\|\s*/, $reglon;
        my $espacio1  = "$correa[0]";
        my $espacio2  = "$correa[1]";
        my $espacio3  = "$correa[2]";
        my $espacio4  = "$correa[3]";
        my $espacio5  = "$correa[4]";
        my $espacio6  = "$correa[5]";
        my $espacio7  = "$correa[6]";
        my $espacio8  = "$correa[7]";
        my $espacio9  = "$correa[8]";
        my $espacio10 = "$correa[9]";
        my $espacio11 = "$correa[10]";
        my $espacio12 = "$correa[11]";
 
        #Debido a que el primer campo se tiene que cargar la fecha actual de proceso
        my ( $sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $isdst ) = localtime(time);
 
        $year += 1900;
        $mon++;
 
        my $fecha = "$mday/$mon/$year $hour:$min:$sec\n";
 
        #Abriendo conexión a la base de datos
 
        my $dbt = DBI->connect( 'DBI:Pg:dbname=hcm;host=xxx.xxx.xxx.xxx', 'xxx', 'xxxxxxx' )
            || die "ERROR CONECCION : $DBI::errstr";
 
        #Aplicando el insert into
 
        $stl
            = "insert into conversion.conv_rechazo_pago_vuelta(
                   crpv_fecha_proc, crpv_error, crpv_cd_prov_acreed, crpv_nu_factura, crpv_fe_factura,
                   crpv_mt_facturado, crpv_filial, crpv_tp_asiento, crpv_nu_control, crpv_tp_moneda
            ) 
               values( 
                    $fecha, $espacio12, $espacio11, $espacio9, $espacio3, null,
                    $espacio2, $espacio4, $espacio10, $espacio6, null
            )";
 
        #Ejecutando query
 
        $elevar = $dbt->prepare($stl);
        $elevar->execute();
        $elevar->finish;
 
        #Desconectándose de la base de datos
 
        $dbt->disconnect();
 
    }
 
    #desconectando del bucle
 
    close $FH;
}
 
closedir(DIR);
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Este es el error que me sale, no se por qué.

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

DBD::Pg::st execute failed: execute called with an unbound placeholder at /home/rocco/Documentos/proyecto/ddd.pl Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2012-05-14 16:34 @732

El error dice que no coincide el número de values (11) con el número de campos en el conv_rechazo_pago_vuelta (10).

Otra cosa... con Perl no necesitas escribir tanto. Me refiero a las líneas 19 a 30. Es mejor quitarlas y modificar estas:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

        $stl
            = "insert into conversion.conv_rechazo_pago_vuelta(
                  crpv_fecha_proc, crpv_error, crpv_cd_prov_acreed, crpv_nu_factura, crpv_fe_factura,
                  crpv_mt_facturado, crpv_filial, crpv_tp_asiento, crpv_nu_control, crpv_tp_moneda
           )
              values(
                   $fecha,
                   $correa[11], $correa[10], $correa[8], $correa[2],
                   null,
                   $correa[1],  $correa[3],  $correa[9], $correa[5]
           )";
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **mariomb19** » 2012-05-15 10:03 @460

Ok, voy a modificar esa líneas pero me sigue saliendo el mismo error. No sé por qué.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl -w
 
use DBI;
use DBD::Pg;
 
 
$dirname = "/home/rocco/dir2/";
 
           opendir ( DIR, $dirname ) || die "Error in opening dir $dirname\n";
           
                      #Seleccionando archivo de compensacion
                      
                      while (my $rechazo = glob "/home/rocco/dir2/sapfi_rechazo_********_HCM_****.txt") {
                                 open my $FH, '<', $rechazo or die "ERROR: No se pudo abrir [$rechazo]: $!\n";
                      
                      #Separando cada valor de los archivos y guardandolos en variables 
                       
                                 while (my $reglon = readline $FH) {             
                                            my @correa = split /\|\s*/, $reglon;
                                            my $espacio1= "$correa[0]";
                                            my $espacio2= "$correa[1]";
                                            my $espacio3= "$correa[2]";
                                            my $espacio4= "$correa[3]";
                                            my $espacio5= "$correa[4]";
                                            my $espacio6= "$correa[5]";
                                            my $espacio7= "$correa[6]";
                                            my $espacio8= "$correa[7]";
                                            my $espacio9= "$correa[8]";
                                            my $espacio10= "$correa[9]";
                                            my $espacio11= "$correa[10]";
                                            my $espacio12= "$correa[11]";
                                 
                                 #Debido a que el primer campo se tiene que cargar la fecha actual de proceso
                                 my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time);
 
                                            $year += 1900;
                                            $mon++;
                      
                                            my $fecha= "$mday/$mon/$year $hour:$min:$sec\n";
                                 
                                 #Abriendo conexion a la base de datos 
                                 
                                 my $dbt= DBI->connect('DBI:Pg:dbname=xxx;host=xxx.xxx.xxx.xxx','xxx','xxxxxxx')|| die "ERROR CONXION : $DBI::errstr";
 
                                 #Aplicando el insert into
                                 
                                            $stl ="insert into conversion.conv_rechazo_pago_vuelta(crpv_error,crpv_cd_prov_acreed,crpv_nu_factura,crpv_fe_factura,crpv_mt_facturado,crpv_filial,crpv_tp_asiento,crpv_nu_control,crpv_tp_moneda,crpv_fecha_proc) 
                                                       values ($espacio12,$espacio11,$espacio9,$espacio3,null,$espacio2,$espacio4,$espacio10,$espacio6,$fecha)";
                                 
                                 #Ejecutando query
                                 
                                            $elevar= $dbt->prepare($stl);                   
                                            $elevar->execute();
                                            $elevar->finish;
 
                                 #Desconectandose de la base de datos
                                 
                                 $dbt->disconnect();
                             
                              
                      }
     
                      #desconectando del buqle
                      
                                 close $FH;
                      }          
                                  
           closedir(DIR);
           
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

error

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

DBD::Pg::st execute failed: execute called with an unbound placeholder at /home/rocco/Documentos/proyecto/ddd.pl line 53, <$FH> line 1.Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2012-05-15 16:01 @709

Yo estoy perdido... Quizás debas preguntar a un experto en PostgreSQL.

por **mariomb19** » 2012-05-16 08:18 @387

Gracias, amigo. Era un problema con un campo de la tabla pues estaba en integer y contenía letras. Gracias.

Foro - Perl en Español

insert into a postgresql

insert into a postgresql

Publicidad

Re: insert into a postgresql

Re: insert into a postgresql

Re: insert into a postgresql

Re: insert into a postgresql

Re: insert into a postgresql

Re: insert into a postgresql

¿Quién está conectado?