https://www.opennet.ru/openforum/vsluhforumID9/7550.html Привет всем<br>Есть логфайл состоящий из записей вида "$date $time: $log_text"<br>формат $date $time нам известен<br>$log_text - может быть многострочным<br><br>подскажите плиз как из этого файла выудить каждую такую запись с помощью регекспа. В смысле мне нужно поочередно вынуть каждую запись и обработать ее.<br><br>сильно не пинайте плиз<br>с Perl только знакомлюсь<br> https://www.opennet.ru/openforum/vsluhforumID9/7550.html#6 Mon, 18 Aug 2008 16:10:21 GMT &gt;Ее стоит заменить на <br>&gt;$text.=$_; <br><br>Угу.<br> https://www.opennet.ru/openforum/vsluhforumID9/7550.html#5 Mon, 18 Aug 2008 15:46:12 GMT Если этот регекс не сработает:<br>&gt; if (/^(\d{4}-\d{2}-\d{2} \d{2}:\d{2}:\d{2}): (.*)/) { <br><br>то в $2 будет undef и следующая строка не верна: <br>&gt; $text .= $2; <br><br>Ее стоит заменить на <br>$text.=$_;<br><br>Альтернативно можно первый захват сделать условным поставив после него "?", но тогда проверять на пустоту $1<br><br>Простая иллюстрация всех случаев:<br>$ perl -le '$_="ab";/(a)(b)/; print "1:$1 2:$2"'<br>1:a 2:b<br>$ perl -le '$_="b";/(a)(b)/; print "1:$1 2:$2"'<br>1: 2:<br>$ perl -le '$_="b";/(a)?(b)/; print "1:$1 2:$2"'<br>1: 2:b<br>$ perl -le '$_="ab";/(a)?(b)/; print "1:$1 2:$2"'<br>1:a 2:b<br> https://www.opennet.ru/openforum/vsluhforumID9/7550.html#4 Mon, 18 Aug 2008 15:01:10 GMT &gt;А можно ли работать с этим логом не с каждой строчкой отдельно <br>&gt;- а как с мультилайном? <br>&gt;И одним регекспом выкусывать оттуда нуобходимые записи? <br><br>Наверное можно, только нужно ли? По сколько нужно будет читать из лога, чтобы все сообщение влезло? Придется дополнительно писать работу с буфферами. multiline регэкспы предпочитаю вообще не использовать.<br> https://www.opennet.ru/openforum/vsluhforumID9/7550.html#3 Mon, 18 Aug 2008 13:58:48 GMT Спасибо агромное :)<br>саму идею понял<br><br>формат $date/$time нам известен - составить под него регексп не проблема<br><br>А можно ли работать с этим логом не с каждой строчкой отдельно - а как с мультилайном?<br>И одним регекспом выкусывать оттуда нуобходимые записи?<br> https://www.opennet.ru/openforum/vsluhforumID9/7550.html#2 Mon, 18 Aug 2008 13:24:04 GMT Звиняюсь.<br><br>&gt;while(&lt;STDIN&gt;) {<br>&gt; my $date, $text; <br><br>my $date, $text, разумеется, должны быть объявлено перед while.<br> https://www.opennet.ru/openforum/vsluhforumID9/7550.html#1 Mon, 18 Aug 2008 13:22:50 GMT &gt;Привет всем <br>&gt;Есть логфайл состоящий из записей вида "$date $time: $log_text" <br>&gt;формат $date $time нам известен <br>&gt;$log_text - может быть многострочным <br><br>Если формат $date/$time неизвестен, там может быть что угодно, в том числе переводы строк, двоеточие и любые другие символы, тогда задача не решаема.<br><br>Советую подумать насчет того, как представить дату/время в виде регэкспа или набора регэкспов. Вот пример для записей вида<br><br>YYYY-MM-DD HH:MM:SS: text<br>text<br>text<br><br>while(&lt;STDIN&gt;) {<br> my $date, $text;<br> if (/^(\d{4}-\d{2}-\d{2} \d{2}:\d{2}:\d{2}): (.*)/) {<br> process_entry($date, $text) if (defined $date && defined $text);<br> $date = $1;<br> $text = $2;<br> } else {<br> $text .= $2;<br> }<br>}<br><br>process_entry($date, $text) if (defined $date && defined $text);<br><br>sub process_entry {<br> my($date, $text) = @_;<br> # обработка записи<br>}<br><br>Если дата в сложном формате - вопрос только в том, чтобы узнать, начинается строка с даты или нет. Это может быть набор регэкспов иил что-то другое, вам виднее.<br>