Foro - Perl en Español

por **emoremm440** » 2012-02-29 15:59 @707

Hola, Foro.

Lo que intento conseguir es que en base al siguiente código realice lo siguiente:

Abrir un archivo y leer la última cadena que contenga caracteres; posteriormente guardar esta cadena en un arreglo; una vez guardada realizar una búsqueda de un número que se encuentre en el rango de 0-5; una vez encontrado el número incrementar el valor de este en 1; posteriormente agregar una cadena de caracteres con la variable incrementada al mismo archivo para que posteriormente sea leído.

Detalles:

En teoría el código está tomando la última cadena de caracteres, aunque la última línea del archivo es un carácter de nueva línea, se omite con la instrucción #7 del archivo, una vez encontrado el patrón de búsqueda se guarda el valor en la variable "$match", posteriormente realiza las condicionales "if" si el valor encontrado se encuentra entre 0-5.

El problema surge cuando se entra al condicional "if" para incrementar el valor de la variable "contador" y se le pide imprimir en archivo, la impresión de la cadena de caracteres es exitosa pero el resultado de la variable siempre es 1.

Nota: el archivo base cuenta con 2 líneas; la primera es una cadena de caracteres la cual contiene el número 0, y la segunda cuenta con el carácter de nueva línea; cuando se ejecuta por primera vez el archivo la variable "contador" se incrementa (este caso es exitoso), para los siguientes casos cuando se ejecuta el archivo la variable "contador" queda en 1.

Adjunto mi código fuente y el archivo base en el cual se han grabado 3 ejecuciones del código.

Espero me puedan dar algún comentario para poder solventar este error.

Saludos.

Archivo base para leer y guardar cadenas de caracteres.
MONITOR_TRYING_PCSCF_ERROR.log

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

El nodo tiene registrados 0 intentos fallidos de Monitoreo

El nodo lleva 1 veces sin responder el SIP OPTIONS al DNS

El nodo lleva 1 veces sin responder el SIP OPTIONS al DNS

El nodo lleva 1 veces sin responder el SIP OPTIONS al DNSColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Código fuente en Perl

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl -s
 
open  (LOGBUG, "MONITOR_TRYING_PCSCF_ERROR.log") || die "No se encuentra archivo";
 
@arreglo = <LOGBUG>;
 
$string = $arreglo[-1];
 
print " $string \n";
 
 if ($counter = $string =~ /([0-5])/){
 
        $match = $1;
 
        print "la palabra encontrada es '$match' en la cadena \n";
 
 close (LOGBUG);
}
 
if ($firts <= 5){
 
open  (LOGBUG, ">>MONITOR_TRYING_PCSCF_ERROR.log") || die "No se encuentra archivo";
 
 $contador = $first;
 
        $contador++;
 
print LOGBUG "El nodo lleva $contador veces sin responder el SIP OPTIONS al DNS\n";
 
close (LOGBUG);
 
}
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

La sintaxis está bien: es un programa Perl. Pero perl te avisa de que en la línea 22 y 26 hay dos variables que solo se usan una vez. Y lo mismo en la línea 12 para la variable $counter.

Así que... si una variable se usa una sola vez, significa que, aunque le demos un valor, no lo usamos en ningún sitio. O que estamos intentando usarla sin haberle dado un valor antes.

Perl te dice "possible typo", que quiere decir en inglés, que quizás te has equivocado a la hora de escribir el nombre de la variable.

por **emoremm440** » 2012-02-29 18:04 @794

Hola.

Sustituí la variable "first" por "match" y eliminé la variable "counter" lo cual permite que el contador se incremente. El problema fue resuelto.

Como plus agregaré una instrucción para detener el ciclo de impresión cuando el contador llegue a 5.

Gracias por el comentario.

Saludos

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl -s
 
open( LOGBUG, "MONITOR_TRYING_PCSCF_ERROR.log" ) || die "No se encuentra archivo";
 
@arreglo = <LOGBUG>;
 
$string = $arreglo[-1];
 
print " $string \n";
 
if ( $string =~ /([0-5])/ ) {
 
    $match = $1;
 
    close(LOGBUG);
}
 
if ( $match <= 5 ) {
 
    open( LOGBUG, ">>MONITOR_TRYING_PCSCF_ERROR.log" ) || die "No se encuentra archivo";
 
    $contador = $match;
 
    $contador++;
 
    print LOGBUG "El nodo lleva $contador veces sin responder el Query\n";
 
    close(LOGBUG);
 
}
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2012-02-29 18:54 @829

Este es un ejemplo perfecto para usar Tie::File:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use autodie;
use Modern::Perl;
use Tie::File;
 
                                               # conexión
tie my @log, 'Tie::File', 'MONITOR_TRYING_PCSCF_ERROR.log';
 
my $i = $#log;                                 # índice al último elemento de log
 
while ($log[$i] =~ /^\s+$/  and  $i != -1) {   # buscamos el último elemento no vacío
    $i--;
}
 
if ($log[$i] =~ /([0-5])/) {
    my $contador = $1 +1;                      # aumentamos contador
 
                                               # agregamos última línea
    push @log, "El nodo lleva $contador veces sin responder el Query\n";
}
 
untie @log;                                    # desconexión
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Contador no incrementa variable

Contador no incrementa variable

Publicidad

Re: Contador no incrementa variable

Re: Contador no incrementa variable

Re: Contador no incrementa variable

¿Quién está conectado?