Jeg har en tekstfil, der har tekstblokke. Hver blok starter med # # # og slutter med End_ # # #.
Jeg skrev en perl script for at søge efter en streng fra linie 2 (ignorere enhver linje starter med # # #) for hver blok
hvis matchet, nødt til at udskrive, at hele blokken. Ifølge de inddatafil nedenfor, vil det udskrive blokke, # 02, # 04, # 05.
Her er mit spørgsmål, jeg har ingen problemer med at matche SEARCH_STR, men når spillet, hvordan flytter jeg tilbage foregående linjer?
fx i blok # 02, handler i linje 3, men jeg har brug for at udskrive linjer 1 & 2.

Thanks in advance for any help!

MY SCRIPT:
\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d
#! / 46020/local/bin /perl -w
#
if ($ # ARGV! \u003d 0) (
print "Du skal angive et søgekriterier. \ n";
exit;
)
my $ query \u003d $ ARGV [0];
my $ input \u003d "/ mypath / inputFILE.txt";
min $ linje;
my $ tag \u003d 0;
my @ resultater \u003d ();

open (FILE, "<$ INPUT") or die "Kan ikke åbne '$ input' file: $!";
while ($ line \u003d <file>) (
næste if ($ line \u003d ~ / ^ # [0-9] [0-9] .* - / | | $ line \u003d ~ / ^ \ s *$/);
if ($ line \u003d ~ / $ query / i) (
$ tag \u003d 1;
)
if ($ line \u003d ~ / ^ End_ # / & & $ tag \u003d\u003d 1) (
push (@ resultater, $ line) if ($ tag \u003d\u003d 1);
$ tag \u003d 0;
)
push (@ resultater, $ line) if ($ tag \u003d\u003d 1);
)
tæt (FILE);
print "@ resultater \ n";
exit;


Inddatafilen:
\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d
# 01 - blok startlinjen her
noget tekst her
mere tekst her
flere linjer
flere linjer
flere linjer
End_ # 01

# 02 - blok startlinjen her
noget tekst her
indeholder linjen SEARCH_STR og noget
flere linjer
flere linjer
End_ # 02

# 03 - blok startlinjen her
noget tekst her
mere tekst her
flere linjer
flere linjer
flere linjer
End_ # 03

# 04 - blok startlinjen her
noget tekst her
flere linjer
flere linjer
Det SEARCH_STR er her, og noget
noget tekst her
flere linjer
flere linjer
flere linjer
End_ # 04

# 05 - blok startlinjen her
noget tekst her
flere linjer
Det SEARCH_STR er her, og noget
flere linjer
End_ # 05


# 06 - blok startlinjen her
noget tekst her
mere tekst her
flere linjer
flere linjer
flere linjer
End_ # 06