Foro - Perl en Español

por **Antala** » 2010-08-03 04:08 @214

Hola, buenos días:

Este es mi primer post, llevo una semana con Perl y ando un poco perdidillo, a ver si podéis ayudarme con este script que estoy haciendo.

En él tengo que recorrer las tablas tpersonas y tproyectos y que me busque los nombres que sean iguales en dichas tablas, y que los id me los guarde en otra llamada tproyper.

El problema que tengo es el siguiente: el bucle me saca siempre la misma persona siendo que hay bastantes más.

Os pongo aquí el script.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use Pg;
#Conexión a la base de dato local
$conn=Pg::connectdb("dbname=dbproy");
if ($conn->status!=PGRES_CONNECTION_OK){
        print  "Conexion erronea al conertar con base de datos.\n";
        print  "No se ha podido establecer conexion con base de datos, intentelo de nuevo.";
        exit;
                                        }
#Selección de la tabla de datos a modificar
$result=$conn->exec("select id, nombre_
                    from tpersonas order by id");
$n_personas=$result->ntuples;
for($a=0;$a<$n_personas;$a++){
        $id_personas[$a]=trunca_final($result->getvalue($a,0));
        $nombre_personas[$a]=trunca_final($result->getvalue($a,1));
                                }
 
$result1=$conn->exec("select id, investigadorpral
                    from  tproyectos order by id");
$n_tproyectos=$result1->ntuples;
for($a=0;$a<$n_tproyectos;$a++){
        $id_id[$a]=trunca_final($result1->getvalue($a,0));
        $nombre_investigadorpral[$a]=trunca_final($result1->getvalue($a,1));
                                }
        #Hay que relacionar las tablas tpersonas y tproyectos en la tabla tproyper
 
while(){
        for($a=0;$a<$n_personas;$a++){
 
        if($nombre_personas[$a] eq $nombre_investigadorpral[$a1]){
 
        print "Nombre $nombre_personas[$a]\t Nombre $nombre_investigadorpral[$a1]\n";   
        print "Id $id_personas[$a] \t Id $id_id[$a1]\n";
        
        $orden="INSERT INTO tproyper (idproy, idper) VALUES ($id_id[$a1], $id_personas[$a])";
        $result = $conn->exec($orden);
 
        stop(); #Esto esta mal es solo para salir del bucle infinito                                    
                                                                 }#cerrar for
                                        }#cerrar if
        }#cerrar while
 
sub trunca_final ($)
{
    my ($p) = @_;
    $p =~ /(.+?)(\ *)$/;
    return $1;
}
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Un saludo y muchas gracias.

Sintáxis: [ Descargar ] [ Ocultar ]

Using html4strict Syntax Highlighting

[syntax lang=html4strict lines=geshi-n]<span style="font-weight: bold">[b]</span>[/b][/syntax]
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Bienvenido a los foros de Perl en Español, Antala.

Yo veo varios problemas...

* ¿dónde se inicializa e incrementa la variable $a1? necesitas hacer un doble bucle for() para hacer la comparación, no un while()

* stop() no es ninguna función de Perl.

Te aconsejo que, mientras estés aprendiendo Perl (y más tarde, también), inicies todos tus programas con las líneas

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

use strict;
use warnings;
use diagnostics;Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

La primera línea te obligará a escribir un programa de forma estricta: todas las variables que vayas a usar deberán haber sido declaradas con my() u our(). Perl te hubiera avisado de la existencia de una variable $a1 sin declarar.

La segunda línea sirve para que Perl te avise de cualquier cosa rara que vea, en el código. Te hubiera avisado de que la variable $a1 no se inicializado nunca.

La tercera es opcional. Sirve para dar aún más información en las advertencias y errores que tenga tu programa.

Sería algo así (no probado):

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
 
use Pg;
 
#Conexión a la base de datos local
my $conn = Pg::connectdb('dbname=dbproy');
 
if ($conn->status != PGRES_CONNECTION_OK) {
    print "Conexión errónea al conectar con base de datos.\n";
    print "No se ha podido establecer conexión con base de datos, inténtelo de nuevo.";
    exit 1;
}
 
#Selección de la tabla de datos a modificar
my $result = $conn->exec("select id, nombre_ from tpersonas order by id");
my $n_personas = $result->ntuples;
 
my @id_personas;
my @nombre_personas;
 
for(my $a = 0; $a < $n_personas; $a++) {
    $id_personas[$a]     = trunca_final($result->getvalue($a,0));
    $nombre_personas[$a] = trunca_final($result->getvalue($a,1));
}
 
my $result1 = $conn->exec("select id, investigadorpral from  tproyectos order by id");
my $n_tproyectos = $result1->ntuples;
 
my @id_id;
my @nombre_investigadorpral;
 
for(my $b = 0; $b < $n_tproyectos; $b++) {
    $id_id[$b]                   = trunca_final($result1->getvalue($b,0));
    $nombre_investigadorpral[$b] = trunca_final($result1->getvalue($b,1));
}
 
#Hay que relacionar las tablas tpersonas y tproyectos en la tabla tproyper
for(my $a = 0; $a < $n_personas;   $a++) {
for(my $b = 0; $b < $n_tproyectos; $b++) {
 
    if ($nombre_personas[$a] eq $nombre_investigadorpral[$b]) {
 
        print "Nombre $nombre_personas[$a]\t Nombre $nombre_investigadorpral[$b]\n";
        print "Id $id_personas[$a] \t Id $id_id[$b]\n";
 
        my $orden  = "INSERT INTO tproyper (idproy, idper) VALUES ($id_id[$b], $id_personas[$a])";
        my $result = $conn->exec($orden);
    }
 
}#cerrar for
}#cerrar for
 
sub trunca_final {
    my($p) = shift;
    $p =~ /(.+?) *$/;
    return $1;
}
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Este, también, es un buen ejemplo de aplicación de los hash de Perl.

por **Antala** » 2010-08-03 04:51 @243

Muchas gracias, explorer. Funcionando 100%.

Te estoy agradecido. Seguiré ese consejo de utilizar los use, y si tengo alguna duda me dejaré caer por aquí.

Un saludo.

por **explorer** » 2010-08-03 05:51 @285

Esta es otra versión, usando hash:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use strict;
use warnings;
use diagnostics;
 
use Pg;
 
#Conexión a la base de datos local
my $conn = Pg::connectdb('dbname=dbproy');
 
if ($conn->status != PGRES_CONNECTION_OK) {
    print "Conexión errónea al conectar con base de datos.\n";
    print "No se ha podido establecer conexión con base de datos, inténtelo de nuevo.";
    exit 1;
}
 
#Selección de la tabla de datos a modificar
my $result = $conn->exec("select id, nombre_ from tpersonas order by id");
my $n_personas = $result->ntuples;
 
my %id_personas;
 
for(my $a = 0; $a < $n_personas; $a++) {
    my $id     = trunca_final($result->getvalue($a,0));
    my $nombre = trunca_final($result->getvalue($a,1));
 
    $id_personas{nombre} = $id;                 # guardamos id de la persona
}
 
my $result1 = $conn->exec("select id, investigadorpral from  tproyectos order by id");
my $n_tproyectos = $result1->ntuples;
 
my %id_investigadores;
 
for(my $b = 0; $b < $n_tproyectos; $b++) {
    my $id     = trunca_final($result1->getvalue($b,0));
    my $nombre = trunca_final($result1->getvalue($b,1));
 
    $id_investigadores{$nombre} = $id;          # guardamos id del investigador
}
 
# Fichero de registro
open my $REGISTRO, q[>>], 'actividad.log'
    or  die "ERROR: No puedo escribir en el log: $!\n";
 
#Hay que relacionar las tablas tpersonas y tproyectos en la tabla tproyper
for my $persona (keys %id_personas) {
 
    if ($id_investigadores{$persona}) {  # Sí que hay una persona que es a la vez investigador
 
        print "Nombre: [$persona]\n";
        print "Id Persona: $id_personas{$persona}\tId Proyecto: $id_investigadores{$persona}\n";
 
        my $orden  = "INSERT INTO tproyper (idproy, idper) VALUES ($id_investigadores{$persona}, $id_personas{$persona})";
        my $result = $conn->exec($orden);
    }
    else {
        print $REGISTRO "[$persona] no está en ningún proyecto de investigación\n";
    }
}
 
close $REGISTRO;
 
sub trunca_final {
    $_[0] =~ s/ *$//;   # quitamos los espacios en blanco del final, del primer argumento
}
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

por **Antala** » 2010-08-04 02:48 @158

Buenos días, hoy me ha surgido otra dudilla: en el programa que ya funciona bien, necesito hacer que los que no sean igual me los redireccione a un archivo.log y eso no lo he hecho nunca.

Imagino que para los que no son iguales es otro if() más o menos así:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

if($nombre_personas[$a]!=$nombre_investigadorpral[$b]){
print"Nombre $nombre_personas[$a]\t Nombre $nombre_investigadorpral[$b]\n";
print"Id $id_personas[$a] \t Id $id_id[$b]\n";
}Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

E iría después del otro if(), ¿no? La cuestión es: ¿cómo hago para que sacarlo en un archivo.log?

Un saludo.

por **explorer** » 2010-08-04 05:21 @264

Un fichero log podría ser tan sencillo como un fichero de texto, así que solo tienes que hacer un open() antes del bucle principal, luego, los print() que quieras hacer, dentro del bucle, y finalmente, un close().

Y para diferenciar entre los que son distintos, te vale con usar un else{}.

Solo puedes usar != si estás seguro de que los ID son siempre numéricos. Mejor, en este caso, usar el else{}.

El código anterior ya está modificado con estos cambios.

Foro - Perl en Español

Problema de bucle RESUELTO

Problema de bucle RESUELTO

Publicidad

Re: Problema de bucle

Re: Problema de bucle

Re: Problema de bucle RESUELTO

Re: Problema de bucle RESUELTO

Re: Problema de bucle RESUELTO

¿Quién está conectado?