Ver Tema - Buscar dos cadenas al mismo tiempo en un texto plano

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:

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

perl -ne 'print if /CRITICAL/' texto.txt

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

perl -ne 'print if /DOWN/' texto.txt

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

explorer · 2012-01-03 16:27 @727

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

perl -ne 'print if /CRITICAL/ or /DOWN/' texto.txt

animal collective · 2012-01-03 16:51 @744

Gracias, el comando funciona perfecto, pero se me presento otro problema:

Mi código es el siguiente:

Syntax: [ Download ] [ Hide ]

Using perl Syntax Highlighting

#! /usr/bin/perl
#02-01-2012
#LOG ALERTAS 
use strict;
system('perl -ne 'print if /CRITICAL/ or /DOWN/' /root/LOG_alertas > alert');

Al parecer tengo un error de sintaxis ya que al ejecutar el script me arroja el siguiente error:

Syntax: [ Download ] [ Hide ]

Using text Syntax Highlighting

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.

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:

Syntax: [ Download ] [ Hide ]

Using bash Syntax Highlighting

#!/bin/bash
#02-01-2012
#LOG ALERTAS
perl -ne 'print if /CRITICAL/ or /DOWN/' /root/LOG_alertas > alert
 

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

Syntax: [ Download ] [ Hide ]

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;

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

animal collective · 2012-01-10 14:37 @650

Muchas gracias, lo primero funcionó perfecto.

Publicidad

Socializa