Foro - Perl en Español

por **animal collective** » 2012-01-03 16:02 @710

Estimados,

Esperando que disfruten mucho este año nuevo, les quiero realizar la siguiente consulta:

Necesito buscar dos cadenas en un texto plano: “CRITICAL” y “DOWN”.

Para esto estoy usando los comandos:

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

perl -ne 'print if /CRITICAL/' texto.txt
Coloreado en 0.003 segundos,  usando GeSHi 1.0.8.4

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

perl -ne 'print if /DOWN/' texto.txt
Coloreado en 0.001 segundos,  usando GeSHi 1.0.8.4

Quiero saber si es posible ejecutar esa misma sentencia en una sola línea, ejecutar un comando que me permita buscar dos cadenas en un texto plano.

Desde ya agradezco su respuesta.
Feliz año nuevo

Saludos

String found where operator expected at ./crea_log line 5, near "/DOWN/' /root/LOG_NAGIOS1 > LOG_NAGIOS'"

        (Missing operator before ' /root/LOG_NAGIOS1 > LOG_NAGIOS'?)

syntax error at ./crea_log line 5, near "'perl -ne 'print"

Execution of ./crea_log aborted due to compilation errors.Coloreado en 0.000 segundos,  usando GeSHi 1.0.8.4

por **explorer** » 2012-01-03 17:16 @761

¿¿¿Ejecutar un perl dentro de otro perl??? ¡¡¡Qué feo!!!

Es mejor que hagas la operación de: abrir fichero origen en lectura, abrir el fichero destino en escritura, hacer un bucle por las líneas, y las que cumplan con la condición, sacarlas hacia el fichero destino. Cierras los ficheros, y listo.

O si no... no usar Perl:

Sintáxis: [ Descargar ] [ Ocultar ]

Using bash Syntax Highlighting

#!/bin/bash
#02-01-2012
#LOG ALERTAS
perl -ne 'print if /CRITICAL/ or /DOWN/' /root/LOG_alertas > alert
 
Coloreado en 0.004 segundos,  usando GeSHi 1.0.8.4

También puedes usar grep() (no probado):

Sintáxis: [ Descargar ] [ Ocultar ]

Using perl Syntax Highlighting

#!/usr/bin/perl
use autodie;
open $in,  '<', '/root/LOG_alertas';
open $out, '>', 'alert';
print $out grep { /CRITICAL/ or /DOWN/ } <$in>;
close $out;
close $in;
Coloreado en 0.002 segundos,  usando GeSHi 1.0.8.4

Y de más formas... pero no, por favor, perl dentro de perl

por **animal collective** » 2012-01-10 14:37 @650

Muchas gracias, lo primero funcionó perfecto.

Foro - Perl en Español

Buscar dos cadenas al mismo tiempo en un texto plano

Buscar dos cadenas al mismo tiempo en un texto plano

Publicidad

Re: Buscar dos cadenas al mismo tiempo en un texto plano

Re: Buscar dos cadenas al mismo tiempo en un texto plano

Re: Buscar dos cadenas al mismo tiempo en un texto plano

Re: Buscar dos cadenas al mismo tiempo en un texto plano

¿Quién está conectado?