Tengo un archivo de texto que tiene bloques de texto. Cada bloque comienza con # # # y termina con End_ # # #.
Escribí un perl secuencia de comandos para buscar una cadena de la línea 2 (hacer caso omiso de cualquier línea comienza con # # #) de cada bloque
si corresponde, es necesario que todo el bloque de impresión. Según el archivo de entrada a continuación, se imprimirán los bloques # 02, # 04, # 05.
Aquí está mi pregunta, no tengo problemas que coinciden con el SEARCH_STR, pero una vez combinados, ¿cómo puedo volver a las líneas anteriores?
por ejemplo, en bloque # 02, acompañado en la línea 3, pero necesito imprimir las líneas 1 y 2.

Gracias de antemano por cualquier ayuda!

Mi script:
\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d
#! / 46020/local/bin /perl -w
#
if ($ # ARGV! \u003d 0) (
print "Usted debe proporcionar un criterio de búsqueda. \ n";
salida;
)
my $ query \u003d $ ARGV [0];
my $ ENTRADA \u003d "/ mypath / inputFILE.txt";
my $ line;
my $ tag \u003d 0;
my @ results \u003d ();

open (FILE, "<$ INPUT") or die "No se puede abrir" $ INPUT "file: $!";
while ($ linea \u003d <FILE>) (
next if ($ linea \u003d ~ / ^ # [0-9] [0-9] .* - / | | $ linea \u003d ~ / ^ \ s *$/);
if ($ linea \u003d ~ / $ consulta / i) (
tag \u003d $ 1;
)
if ($ linea \u003d ~ / ^ # End_ / & & $ etiqueta \u003d\u003d 1) (
Pulsar (@ resultados, $ linea) if ($ tag \u003d\u003d 1);
$ tag \u003d 0;
)
Pulsar (@ resultados, $ linea) if ($ tag \u003d\u003d 1);
)
close (FILE);
print "@ resultados \ n";
salida;


InputFile:
\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d
# 01 - bloque de línea de salida aquí
algún texto aquí
más texto aquí
más líneas
más líneas
más líneas
End_ # 01

# 02 - bloque de línea de salida aquí
algún texto aquí
esta línea contiene las SEARCH_STR y algo
más líneas
más líneas
End_ # 02

# 03 - bloque de línea de salida aquí
algún texto aquí
más texto aquí
más líneas
más líneas
más líneas
End_ # 03

# 04 - bloque de línea de salida aquí
algún texto aquí
más líneas
más líneas
la SEARCH_STR está aquí y algo
algún texto aquí
más líneas
más líneas
más líneas
End_ # 04

# 05 - bloque de línea de salida aquí
algún texto aquí
más líneas
la SEARCH_STR está aquí y algo
más líneas
End_ # 05


# 06 - bloque de línea de salida aquí
algún texto aquí
más texto aquí
más líneas
más líneas
más líneas
End_ # 06