Foro - Perl en Español

por **animal collective** » 2011-07-20 10:00 @458

Estimados,

Tengo el siguiente problema: deseo que mi programa busque un patrón dentro de un archivo de texto y me imprima la línea completa de este.

Necesito saber cómo puedo realizar la condición para que el texto que encuentre sea estricto. Ejemplo:

Deseo buscar el patrón “juan”.

El programa que realicé me traerá:

Sintáxis: [ Descargar ] [ Ocultar ]

Using text Syntax Highlighting

Hola_juan_asdf

juan

JuAnColoreado en 0.000 segundos,  usando GeSHi 1.0.8.4

Yo solo necesito que imprima juan y no las líneas que contengan la palabra juan.

Muchas Gracias
Saludos

Adjunto código:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

$path = "/etc/nagios2/monitor/BES.cfg";
open(DATOS,"/etc/nagios2/monitor/BES.cfg");
while ($linea=<DATOS>) 
{
if ($linea =~"hostgroup_name")
{
push (@cliente,$linea);
}
 
if ($linea =~"host_name")
{
push (@host,$linea);
}
print "@cliente , @host";
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Se suele pensar en expresiones regulares, cuando hablamos de buscar patrones, pero, en este caso, queremos buscar una cadena exacta. En ese caso es mejor usar el operador de comparación 'eq', que prueba la igualdad entre cadenas de caracteres.

Y, también, importante: si estamos leyendo líneas de un fichero de texto, hay que recordar que esa línea aún contiene el/los caracteres de fin de línea o retorno de carro.

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

    my $path = "/etc/nagios2/monitor/BES.cfg";
    open(DATOS, $path);
 
    while (my $linea=<DATOS>) {
        chomp $linea;                       # quitamos el retorno de carro
        if ($linea eq 'juan') {             # comparación
            push @cliente, $linea;          # sí, la guardamos
        }
    }
 
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Aunque... no tiene mucho sentido guardar todas las líneas iguales a la que buscamos: si son todas iguales, el contenido de @cliente será un montón de elementos todos iguales... ¿No será otra cosa lo que quieres guardar?

por **pvaldes** » 2011-07-21 17:31 @771

>Aunque... no tiene mucho sentido guardar todas las líneas iguales a la que buscamos: si son todas iguales, el contenido de @cliente será un montón de elementos todos iguales...

Iba a decir lo mismo, si lo que quieres es contar las líneas que contienen juan hay formas más simples, por ejemplo usa grep() y manda el resultado a una variable de tipo escalar

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

my $numero = grep (/(J|j)uan/, <DATOS>);
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Foro - Perl en Español

Comparar string

Comparar string

Publicidad

Re: Comparar string

Re: Comparar string

¿Quién está conectado?