#! / usr / local / bin /perl


abierto (MIARCHIVO, 'logs_report');


while (<MYFILE>) (

$ rec \u003d $ _;
chomp ($ rec);
@ matriz \u003d split (/ /, $ rec);
print $ rec, "\ n" if ($ matriz [12]! ~ / OK /);

abierto (MYF, '> data.txt');

print $ rec, "\ n" if ($ matriz [12]! ~ / OK /);
estrecha (MYF);



)
estrecha (MIARCHIVO);


ok, aquí es lo que estoy tratando de u. Estoy abriendo el archivo logs_report y estoy grepping sólo para las líneas que no tiene bien en él.

Ahora, el resultado que dan los que grep es lo que estoy tratando de escribir en un archivo.

¿Cómo puedo hacerlo?

de manera más o menos, estoy intentando abrir un archivo, leer el contenido del archivo, extraer algunas líneas de ese archivo, y algunas de las líneas i imprimir, quiero escribir en un archivo. ¿Cómo puedo hacerlo? También, si quiero el archivo de correo que se escribe a, ¿hay alguna manera de hacerlo en perl?

escribir en el archivo y no a la corriente

print MYF $rec,"\n" if ($arr[12]!~/OK/);

#!/usr/local/bin/perl

open (MYFILE, 'logs_report');
open (MYF, '>data.txt');

while ($rec = <MYFILE>) {
    chomp($rec);
    @arr = split(/ /,$rec);
    if ($arr[12] !~ /OK/) {
        print $rec, "\n";
        print MYF $red, "\n";
    }
}
close (MYF);
close (MYFILE);

gracias. lo siento para no incluir los códigos. se te ocurre que sabe cómo incluir un código en el código ur que el archivo de correo electrónico a un conjunto de direcciones de correo electrónico? Quiero decir que el archivo se escribe en? su ayuda o aporte es muy apreciado. gracias

Similar a mi respuesta en el otro hilo que creo que no has leído. Mismo ejemplo se supone que los datos de hilo.

Esto debería ser más eficiente y tal vez más precisos:

#!/usr/local/bin/perl
use strict;

open (MYFILE, 'logs_report') or die "$!";
open (MYF, '>data.txt') or die "$!";

while (my $rec = <MYFILE>) {
    next if ($rec =~ /STATE: OK/) {
    print MYF $rec;
}
close (MYF);
close (MYFILE);

sí lo hice leer su puesto en el otro hilo. Cuando fui a usar i no se obtiene ninguna respuesta de vuelta. Creo que el problema estaba en la línea que i negrita.

Voy a probar este script de la suya y ver si algo los resultados. un millón de gracias.

Que hace suponer que el modelo es exactamente para encontrar ESTADO: OK, Si el patrón es diferente, es necesario cambiar en consecuencia.