У меня есть текстовый файл, который блоков текста. Каждый блок начинается с # # # и заканчивается End_ # # #.
Я написал Perl Сценарий для поиска строку из строки 2 (игнорировать любые строка начинается с # # #) каждого блока
если соответствует, необходимо распечатать, что весь блок. По входной файл ниже, он будет печатать блоки # 02, # 04, # 05.
Вот мой вопрос, у меня нет никаких проблем, соответствующие SEARCH_STR, но как только соответствует, как мне вернуться предыдущих строк?
например, в блоке # 02, соответствует в строке 3, но мне нужно распечатать линии 1 И 2.

Спасибо заранее за любую помощь!

MY SCRIPT:
\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d
#! / 46020/local/bin /Perl -W
#
если ($ # ARGV! \u003d 0) (
Версия для печати "Вы должны служить критериями поиска. \ N";
выхода;
)
моего запроса $ \u003d $ ARGV [0];
моя $ INPUT \u003d "/ mypath / inputFILE.txt";
моя $ линия;
мои метки $ \u003d 0;
Результаты моего @ \u003d ();

OPEN (FILE, "<$ INPUT"), или умереть "Не удается открыть '$ INPUT' файла: $!";
а ($ \u003d строка <FILE>) (
Следующий если ($ линия \u003d ~ / ^ # [0-9] [0-9] .* - / | | $ линия \u003d ~ / ^ \ S *$/);
если ($ линия \u003d ~ / $ запросов / I) (
$ тегом \u003d 1;
)
если ($ линия \u003d ~ / ^ End_ # / И И $ тега \u003d\u003d 1) (
нажимаем (@ результатов, $ строка), если ($ тегом \u003d\u003d 1);
$ тег \u003d 0;
)
нажимаем (@ результатов, $ строка), если ($ тегом \u003d\u003d 1);
)
CLOSE (файл);
Версия для печати "@ результатов \ N";
выхода;


INPUTFILE:
\u003d\u003d\u003d\u003d\u003d\u003d\u003d\u003d
# 01 - блок запуска линии здесь
текст здесь
текст здесь
несколько строк
несколько строк
несколько строк
End_ # 01

# 02 - блок запуска линии здесь
текст здесь
эта строка содержит SEARCH_STR и нечто
несколько строк
несколько строк
End_ # 02

# 03 - блок запуска линии здесь
текст здесь
текст здесь
несколько строк
несколько строк
несколько строк
End_ # 03

# 04 - блок запуска линии здесь
текст здесь
несколько строк
несколько строк
в SEARCH_STR здесь и что-то
текст здесь
несколько строк
несколько строк
несколько строк
End_ # 04

# 05 - блок запуска линии здесь
текст здесь
несколько строк
в SEARCH_STR здесь и что-то
несколько строк
End_ # 05


# 06 - блок запуска линии здесь
текст здесь
текст здесь
несколько строк
несколько строк
несколько строк
End_ # 06