Muchas gracias por la respuesta, lo que quiero conseguir es algo más complicado, y creo que no pregunté lo que necesitaba
Expongo el caso:
Tengo un fichero de texto que contiene la siguiente estructura:
Using text Syntax Highlighting
Dom 30 Dic hh:mm:ss 2012
ERROR-00400:.................(dentro de las fechas tengo que buscar un error si lo hubiera).
Dom 30 Dic hh:mm:ss 2012
no hay error
Dom 30 Dic hh:mm:ss 2012
no hay error
Dom 30 Dic hh:mm:ss 2012
ERROR-00400:.................
Coloreado en 0.000 segundos, usando
GeSHi 1.0.8.4
Lo que querría hacer es que busque los errores (siempre empiezan por la misma tipología), y si los encuentra, que me muestre lo siguiente:
Using text Syntax Highlighting
Dom 30 Dic hh:mm:ss 2012
ERROR-00400:.................(dentro de las fechas tengo que buscar un error si lo hubiera).
Dom 30 Dic hh:mm:ss 2012
ERROR-00400:.................
Coloreado en 0.000 segundos, usando
GeSHi 1.0.8.4
Hasta el momento solo he conseguido que me saque las líneas de los errores y las de las fechas (pero todas, no solo la de la hora del error).
El código que tengo es este:
Using perl Syntax Highlighting
open( MIFICH, "xxxxx.txt" ) || die "lo siento, no puedo abrir xxxxx.txt\n";
while ( $linea = <MIFICH> ) {
$numLinea = 0;
if ( $linea =~ /ERROR-/
) # if ( $linea =~ /ERROR-/ or $linea =~ $fechHoy) .. Con esto sacamos todas los errores y las horas...
{
#$numLinea="$."; # guardamos el numero de linea
print $linea;
}
}
close(MIFICH);
Coloreado en 0.001 segundos, usando
GeSHi 1.0.8.4
¿Alguna sugerencia/solución?
¡Muchas gracias de antemano!
Un saludo.
PD: Intenté hacerlo como cadena de texto, metiendo todo el fichero en una cadena y trabajando con ella, pero me pasa lo mismo, no consigo mostrar nada más que los errores.
