Ув. коллеги, стоит задача анализировать текстовый лог файл с помощью Perl, я в нем не шарю, нид хелп.

Файл с именем 1.txt, постоянно наполняется (появляются новые строки), данные разделены пробелами, надо анализировать только один блок, при совпадении этого блока в строке - отсылать мыло.

Пример файла 1.txt

1111 22222222 333 1 - 0 - 7676 - jkh.sd hd/3242.dfs 7777 655 12 lkjsd
98676 askdhajk 1231 321 lkjxcv 9323 dfsf 56464 sdfsdfs - - - 123111 dfsf 222121
(и так далее)

Необходимо, при совпадении блока, например, номер 11 (то есть в первой строке - это значение "7777", во второй "-") со значением, например "1111" отсылалось уведомление на почту, все остальыне блоки анализировать не надо.
Еще, ситуация такая, необходимо помнить старые значения, то есть анализировать только новые строки с последнего визита скрипта.

Как-то так, задача в несколько строк, но не могу сообразить, регулярные выражения меня убиваю, подмогните плиз.

Простите, речь шла про блок номер 12, но в общем это не принципиально, ключевой момент, что анализировать один блок, все строки и после только новые с последующим уведомлением

vkle,

спс за овтет, я так понимаю, что можно использовать якорь, то есть если где-то есть якорь - начинать с него, если нет, начинать с начала, второй вариант - можно менять/удалять совпадения, то есть вместо найденого ставть "OK" или "FOUND" и все, и каждый раз прогонять логи (хотя это конечно нихрена не оптимально, а логов будет хватать).

vkle, volodin661, да, вы правы наверное с ситуацией на счет наполнения, наверное это неправильно.
volodin661 персональное благодарю за скрипт, еще не запускал, буду осваивать, результат выложе тут (под результатом имеется и отправка почты и определение актуального лога для анализа)
этот парсер будет запускаться многократно в течении дня, каждый новый день - новый лог.

У меня еще промежуточный микро вопрос (после разбора скорей всего отпадет, но все же), не будет ли никаких проблем, при одновременном запуске 10 таких скриптов, но нацеленных на разные логи? то есть не будет ли проблем с темповыми файлами, сами темповые файлы будут оставаться? - уважаемые коллеги, на все эти вопросы я буду искать ответы в процессе разбора

Еще раз спасибо - вы мне дали точку опоры, дальше будет проще :)

ув. vkle, тут были больше вопросы по скрипту господина volodin661, который писал
volodin661да и зачем, проще использовать свой файл с меткой - номером последней удачной строки.
vkleИз ниоткуда временные файлы не берутся. Будете создавать их и не будете удалять - тогда и будут оставаться. Если временные файлы используются, то нужно предусмотреть механизмы их удаления
я вот про эти файлы темповые ("свои файлы") спрашивал

vkleНе понятно. Под новым логом Вы имеете в виду новую порцию данных для обработки?
скрипт должен парсить каждые 10 минут один лог в течении одних суток, лщог при этом постоянно наполняется, со сменой суток создается новый лог - который этот же скрипт будет парсить следующие сутки

на текущем этапе я просто пытаюсь запустить скрипт (про одну строку - это было образное выражение), действуя по инструкии господина volodin661 я пока получю болт, естественно скорей всего дело в моих руках...я уже по разному пытался со скобочками играть

perl -ane ' BEGIN {sub get_anchor { open F, '<', '_tmp_' || return 0; return <F>; } sub set_anchor { open F, '>', '_tmp_' or die $!; print F $.; close F; } sub sendmail { print qq/Found $tag in line $.\n/; } sub action { set_anchor; sendmail } our $tag = '500'; our $anchor = get_anchor;} do { action and exit } if ( $F[11] eq $tag ) and ( $. > $anchor ); ' 1.txt

volodin661, благодарю за еще один вариант - это больше похоже на то что я видел/правил, я так и писал выше, что руки из задницы (мои руки, мои), работоспособность скриптов под сомнение не ставилось :)