Ik heb een tekstbestand dat blokken tekst heeft. Elk blok begint met # # # en eindigt met End_ # # #.
Ik schreef een perl script om een string van lijn 2 zoeken (negeren elke lijn begint met # # #) van elk blok
indien gekoppeld, moeten drukken dat hele blok. Volgens de input bestand in hieronder, te drukken blokken # 02, # 04, # 05.
Hier is mijn vraag, ik heb geen problemen met het afstemmen van de SEARCH_STR, maar eenmaal gepaard, hoe verplaats ik terug vorige lijnen?
bijvoorbeeld in blok # 02, afgestemd op lijn 3, maar ik moet lijnen 1 & 2 te drukken.

Thanks in advance for any help!

Mijn script:
\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d
#! / 46020/local/bin /perl -w
#
if ($ # ARGV! \u003d 0) (
print "U moet een zoekopdracht. \ n";
exit;
)
my $ query \u003d $ ARGV [0];
my $ input \u003d "/ mypath / inputFILE.txt";
my $ line;
my $ tag \u003d 0;
my @ results \u003d ();

open (FILE, "<$ INPUT") or die "Can't open 'bestand $ input': $!";
while ($ line \u003d <FILE>) (
next 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 (@ results, $ line) if ($ tag \u003d\u003d 1);
$ tag \u003d 0;
)
push (@ results, $ line) if ($ tag \u003d\u003d 1);
)
close (FILE);
print "@ resultaten \ n";
exit;


Invoerbestand:
\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d
# 01 - blok startlijn hier
hier wat tekst
meer tekst hier
meer regels
meer regels
meer regels
End_ # 01

# 02 - blok startlijn hier
hier wat tekst
Deze regel bevat de SEARCH_STR en iets
meer regels
meer regels
End_ # 02

# 03 - blok startlijn hier
hier wat tekst
meer tekst hier
meer regels
meer regels
meer regels
End_ # 03

# 04 - blok startlijn hier
hier wat tekst
meer regels
meer regels
de SEARCH_STR is hier en iets
hier wat tekst
meer regels
meer regels
meer regels
End_ # 04

# 05 - blok startlijn hier
hier wat tekst
meer regels
de SEARCH_STR is hier en iets
meer regels
End_ # 05


# 06 - blok startlijn hier
hier wat tekst
meer tekst hier
meer regels
meer regels
meer regels
End_ # 06