Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате
Форум программистов > Perl: Регулярные выражения > Можно ли извлечь одним регулярным выражением


Автор: evya 19.10.2017, 04:44
$header=qq~
Received: from mail1.sbsвasibo.ru ([91.444.14.200]:41994)
        by mx174.mail.ru with esmtp (envelope-from <digest@sbsыasibo.ru>)
        id 1e35up-0002LW-NH
        for [email protected]; Fri, 13 Oct 2017 22:46:40 +0300
~;

Добрые люди подскажите, 
как вытащить после вхождения ^Received, данные после точки с запятой ; 
^Received может быть в одну, две, три ... строки, но всегда по окончанию есть  ;

или нужно разбирать на строки и искать ;

Мои догадги в сторону рушатся при разных {1,}
Received:(?:.*\n){1,3}.*;(.*)$

Автор: alezzz 19.10.2017, 08:10
Дату нужно вытащить?
Нужен флаг однострочного поиска
$header =~ m/;(.+)/s;

Автор: poke090 3.6.2020, 07:00
https://www.newtopblog.com

Osmanthus fragrans tea is a kind of precious flower tea made from exquisite tea billet and fresh osmanthus fragrans. 

Автор: Bulat 8.6.2020, 22:49
Еще точка с запятой встречается?

Powered by Invision Power Board (http://www.invisionboard.com)
© Invision Power Services (http://www.invisionpower.com)