Foro - Perl en Español

por **primitivo** » 2013-07-05 19:36 @858

Hola

Ahora me encuentro creando una base de datos en .txt

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

 
#Con esta función cuento las líneas que tiene el archivo.
sub GetLines
{
    my $ARCH = shift;
    my $lim;
    open(DATA,$ARCH);
    while (<DATA>)
    {
          $lim++;
    }
    close(DATA);
    return($lim);
}
 
#Esta es la función que me daría el registro de la database.
sub do_bdd
{
    my $lines = &GetLines("system/database/admins/listado.txt");
    my $busca_bdd = lc($lectura[4]);
    my $lines_;
    open(BD,"system/database/admins/listado.txt");
    while (<BD>)
    {
        my $dest = <BD>;
        chop($dest);
        my @array = split(/:/,$dest);
        if ($lines_ < $lines)
        {
                    if ($busca_bdd eq $array[0])
                    {
                                   screen("$BOTS{\"admin\"} P $UserDest :Coincidencia encontrada -> dato entregado '$busca_bdd' dato recibido '$array[0]'\n");
                    } else {
                           $lines_++;
                    }
        } else {
               screen("$BOTS{\"admin\"} P $UserDest :se ha alcanzado la última línea y no hay nada que coincida, con el puntero en $lines_\n");
        }
    }
    close(BD);
    
    
}
 
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

pero no logro lo que deseo ¿me ayudan?

sub do_busca {
    my $dato_a_buscar = lc( $lectura[4] );
    if ( &do_bdd($dato_a_buscar) == 1 ) {
        screen("$BOTS{\"admin\"} P $UserDest :Si lo veo en el archivo\n");
    }
    else {
        screen("$BOTS{\"admin\"} P $UserDest :No lo veo en el archivo\n");
    }
}
 
sub do_bdd {
    my $lines     = &GetLines("system/database/admins/listado.txt");
    my $busca_bdd = shift;
    my $lines_;
    open( BD, "system/database/admins/listado.txt" );
    while ( $dest = <BD> ) {
        chop($dest);
        my @array = split( /:/, $dest );
        if ( $busca_bdd eq $array[0] ) {
            return 1;
        }
    }
    close(BD);
 
}
 
sub GetLines {
    my $ARCH = shift;
    my $lim;
    open( DATA, $ARCH );
    while (<DATA>) {
        $lim++;
    }
    close(DATA);
    return ($lim);
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Pero tampoco funciona.

por **explorer** » 2013-07-06 09:15 @427

Pues a mí, sí que me funciona:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
 
my $DATABASE = '/etc/passwd';
 
$lectura[4] = 'explorer';
 
do_busca();
 
sub screen {
    print shift;
}
 
sub do_busca {
    my $dato_a_buscar = lc( $lectura[4] );
 
    if ( do_bdd($dato_a_buscar) ) {
        screen(qq($BOTS{"admin"} P $UserDest :Si lo veo en el archivo\n));
    }
    else {
        screen(qq($BOTS{"admin"} P $UserDest :No lo veo en el archivo\n));
    }
}
 
sub do_bdd {
    my $lines     = &GetLines($DATABASE);
    my $busca_bdd = shift;
    my $lines_;
    open( BD, $DATABASE );
    while (my $dest = <BD> ) {
        chomp $dest;
 
        my @array = split( /:/, $dest );
        if ( $busca_bdd eq $array[0] ) {
            return 1;
        }
    }
    close(BD);
 
    return;
}
 
sub GetLines {
    my $ARCH = shift;
    my $lim;
    open( DATA, $ARCH );
    while (<DATA>) {
        $lim++;
    }
    close(DATA);
    return ($lim);
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Aunque... el código se puede simplificar bastante.

Por ejemplo, ¿para qué quieres saber el número de líneas? En la mayor parte de los casos, no te ha falta ese dato.

Hecha un vistazo a Tie::File. Puede ahorrarte muchas líneas de código.

por **primitivo** » 2013-07-06 10:40 @486

Gracias por tus consejos, explorer.

Las líneas, las necesito para comprobar el final del archivo y mandar una respuesta, la cual sería que se habría alcanzado la lectura y no se encontró el registro en el .txt

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

# Esta es la rutina que modifiqué
 
sub do_bdd {
    my $lines     = &GetLines("system/database/admins/admins.txt");
    my $busca_bdd = shift;
    my $lines_;
    open( BD, "system/database/admins/admins.txt" );
    while ( $dest = <BD> ) {
        $lines_++;
        chop($dest);
        my @array = split( /:/, $dest );
        if ( $busca_bdd eq $array[0] ) {
            return 1;
        }
        else {
            if ( $lines_ >= $lines ) {
                return 0;
            }
        }
    }
    close(BD);
}
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2013-07-06 12:04 @544

Pues no... no lo necesitas...

Te basta con devolver el fallo en caso de llegar al final del archivo y no encontrar lo que buscas:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

sub do_bdd {
    my $busca_bdd = shift;
 
    open(my $BD, "system/database/admins/admins.txt" );    # abrimos el archivo con un gestor de archivos local,
                                                           # para que cierre el archivo cuando salga del contexto
    while (my $dest = <$BD> ) {                            # mientras tengamos registros que leer...
        chomp $dest;
 
        my $campo0 = (split( /:/, $dest))[0];              # primer campo del registro
 
        if ($busca_bdd eq $campo0) {                       # si es lo que buscamos
            return $dest;                                  # salimos con un valor positivo: el propio registro encontrado
        }
    }
 
    close $BD;                                             # hemos llegado al fin del archivo
 
    return;                                                # y no lo hemos encontrado
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Es importante el uso de $BD y no de BD. Si no lo hacemos, en caso de encontrar lo que buscamos, no se ejecutaría el close(), quedando el archivo abierto.

En cambio, usando $BD, en caso de salir de la subrutina con el return que está en mitad del bucle, Perl cerraría de forma automática el archivo abierto (ejecutaría un close $BD de forma automática), liberando los recursos ocupados en esa gestión.

El valor de retorno de la subrutina es un "falso" si no encuentra nada, y un registro completo de la base de datos, si sí es encontrado.

De esta manera, al llamar a la subrutina, sabemos si existe o no un registro, y si existe, su contenido:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $registro = do_bdd("elemento a buscar");
if ($registro) {
    ...;                 # aquí procesamos el registro
}
else {
    say "registro no encontrado";
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

por **primitivo** » 2013-07-06 14:28 @644

Sería lo ideal, pero no sé, porque solo lee la primera línea, únicamente... (Ya probé tu sugerencia, y va mejor que la mia).

Al final decidí lo siguiente.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

sub admin_database
{
    my $data = shift;
    my $FILE_HANDLE = "system/database/admins/";
    $FILE_HANDLE .= $data;
    if (-e $FILE_HANDLE)
    {
           return 1;
    } else {
           return 0;
    }
}
 
sub do_svsj
{
    my $validate_user = $USUARIOS{$UserDest};
    if (&admin_database("$validate_user") == 1)
    {
        my $force = lc($lectura[4]);
        my $channel = lc($lectura[5]);
        
        $forced = $NUMERICOS{$force};
        if ($forced)
        {
           print $socket "$numerico SVSJOIN $forced $channel\n";
        } else {
               screen("$numerico P $UserDest :No he podido encontrar el objetivo\n");
        }
    } else {
           print $socket qq($numerico P $UserDest :Acceso denegado\n); #Se aprende del maestro.
    }
}
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Lo malo de esta práctica, es que tengo que hacer 22 subrutinas.

por **explorer** » 2013-07-06 20:40 @903

¿a qué 22 subrutinas te refieres? ¿qué es lo que varía de una a la otra?

por **primitivo** » 2013-07-07 10:21 @473

Lo que varía es el desde dónde se llama.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

# Por ejemplo, si llamo desde el programa 'admin'...
 
&admin_database("$validate_user");
 
# Pero si llamo desde el programa 'oper'...
 
&oper_database("$validate_user");
 
# Y así... son 22 programas que llevo al tiempo (integrados)
 
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

¿me hago entender?

Foro - Perl en Español

Base de datos en texto

Base de datos en texto

Publicidad

Re: Base de datos en texto

Re: Base de datos en texto

Re: Base de datos en texto

Re: Base de datos en texto

Re: Base de datos en texto

Re: Base de datos en texto

Re: Base de datos en texto

Re: Base de datos en texto

Re: Base de datos en texto

¿Quién está conectado?