Foro - Perl en Español

por **thegame** » 2011-11-23 12:43 @572

Hola, estoy aquí porque necesito ayuda de Uds. Tengo una variable que necesito comparar en varias tablas de una BD... es decir, en la variable tengo una palabra que necesito que las busque en unas tablas (usuario, sede, etc), pero no sé cómo hacerlo. Intenté haciendo con Perl un if(), pero no me busca en las tablas.

También con un case pero no sé cómo hacer en el case que si no encuentra en un tabla busque en la otra, es decir, me haga un print() encuentre o no en la tabla... Por favor, si me pueden decir más o menos cómo se hace.

Gracias.

sub Min {
    my $dbh = DBI->connect( "DBI:Pg:dbname=directorio;host=10.16.105.174;port=5432" . "directorio",
        "directorio", "directorio" );
    my $sth = $dbh->prepare("SELECT name FROM institucion WHERE name=?");
    $sth->execute( $obj->{traerinfo} );
    @row1 = $sth->fetchrow_array;
    return \@row1;
}
 
sub Nombre {
    my $dbh = DBI->connect( "DBI:Pg:dbname=directorio;host=10.16.105.174;port=5432" . "directorio",
        "directorio", "directorio" );
    my $sth = $dbh->prepare("SELECT first_name FROM customer_user WHERE first_name=?");
    $sth->execute( $obj->{traerinfo} );
    @row1 = $sth->fetchrow_array;
    return \@row1;
}
 
sub traerinfo {
    $obj = shift;
    $obj->{traerinfo} = shift if @_;
    my @row1;
 
    switch ( $obj->{traerinfo} ) {
        case ( \&Min )    { print "@row1,Es un Ministerio" }
        case ( \&Nombre ) { print "@row1, Es un Nombre" }
    }
 
}
 
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2011-11-23 18:55 @830

Yo veo que @row1 está declarada dentro de la subrutina traerinfo().

Juraría que debería estar declarada fuera de las subrutinas, para que sean conocidas por todas. Me suena que hay una excepción al caso, pero no me acuerdo de cuál era.

Pues eso... la línea 22 debería estar en la línea 1 (antes de).

Por otra parte, no uses el módulo Switch. Está lleno de errores. Tantos, que ha sido eliminado de los últimas distribuciones de Perl. Es mejor usar el given/when que existe a partir de Perl v5.10.

Se podría hacer así, también:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $dbh = DBI->connect(
    "DBI:Pg:dbname=directorio;host=10.16.105.174;port=5432",
    "usuario", "contraseña",
);
 
my @tablas = qw(institucion customer_user);    # nombres de las tablas
my @campos = qw(name        first_name   );    # campos dentro de esas tablas
 
my $buscamos = 'Pedro';
 
for(my $i = 0; $i < @tablas; $i++) {           # para todas las tablas...
 
    my $sth = $dbh->prepare("SELECT $campos[$i] FROM $tablas[$i] WHERE $campos[$i]=?");
 
    $sth->execute( $buscamos );
 
    my @row = $sth->fetchrow_array;
 
    if (@row) {
        print "Resultado: [@row] en $tablas[$i].\n";
        last;                                   # salimos del bucle for()
    }
}
 
print "Fin de la búsqueda de [$buscamos].\n";
 
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

por **thegame** » 2011-11-24 08:56 @414

Gracias, me sirvió.

Foro - Perl en Español

Comparar variables en tablas de BD

Comparar variables en tablas de BD

Publicidad

Re: Comparar variables en tablas de BD

Re: Comparar variables en tablas de BD

Re: Comparar variables en tablas de BD

Re: Comparar variables en tablas de BD

¿Quién está conectado?