Foro - Perl en Español

por **joralastair** » 2012-12-27 15:07 @672

Hola a todos, muchas felicidades.

Desde hace días tengo un problema con un script que tiene como función hacer un tail -f y filtrar una cadena específica, y ya lo he intentado de varias manera, y siempre me da el error
"Use of uninitialized value $_ in scalar chomp at script.pl line 17.
Use of uninitialized value $_ in pattern match (m//) at script.pl line 18."

En este caso lo hago con el archivo /var/log/syslog

Este es el script

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use 5.006;
use strict;
use warnings;
use File::Tail;
 
# variables globales
my $name = "/var/log/syslog";
my $line;
my $file = File::Tail->new(name=>$name, maxinterval=>1, adjustafter=>7);
 
my $prueba = "";
 
# 
  while (defined($line=$file->read)) 
    {
     chomp; 
     if (m/(\D{2,3})/)
        {
     $prueba = $1;
     
  }
 }
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Cualquier ayuda se agradece infinitamente. Saludos. Jorge.

El problema está en que en el while() estás pasando las líneas que lee File::Tail a la variable escalar $line, mientras que el chomp() y la posterior expresión regular se están aplicando a la variable por defecto $_. Y como no la has inicializado (estás usando $line), te marca el error de que $_ no contiene nada.

Solución:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

while ( defined( $line = $file->read ) ) {
    chomp $line;
 
    if ($line =~ m/(\D{2,3})/) {
        $prueba = $1;
        ...;                        # hacer aquí algo con $prueba
    }
}
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Expresiones regulares y el tail

Expresiones regulares y el tail

Publicidad

Re: Expresiones regulares y el tail

¿Quién está conectado?