собственно вопрос : что не так в регвыре? точнее, он работает на такой строке, но если мне пришла большая строка с кучей сообщений он не хочет находить это | Код | $_ = "Number : 1
Octets : 982
+OK 982 octets.
X-Yandex-FolderName: Vhodyashchie
Received: from web3.yandex.ru ([95.108.252.103])
by mxback34.mail.yandex.net with LMTP id buH4sPbM
for <[email protected]>; Mon, 16 May 2011 00:37:56 +0400
Received: from localhost (localhost.localdomain [127.0.0.1])
by web3.yandex.ru (Yandex) with ESMTP id D1DEB1FA836D
for <[email protected]>; Mon, 16 May 2011 00:37:56 +0400 (MSD)
X-Yandex-Spam: 1
X-Yandex-Front: web3.yandex.ru
X-Yandex-TimeMark: 1305491876
Received: from chemoche.telenet.ru (chemoche.telenet.ru [94.31.179.137]) by mail.yandex.ru with HTTP;
Mon, 16 May 2011 00:37:55 +0400
From: mc yarik <[email protected]>
To: [email protected]
Subject: saa
MIME-Version: 1.0
Message-Id: <[email protected]>
Date: Mon, 16 May 2011 02:37:55 +0600
X-Mailer: Yamail [ http://yandex.ru ] 5.0
Content-Transfer-Encoding: 8bit Content-Type: text/plain; charset=koi8-r
X-Yandex-Forward: 011a6c607f54f256934d53a5e6b5aaf8
ssasa
."; $hi = "Message : $1 \n" if($_=~/Content-Transfer-Encoding:\s8bit[\r\n]{0,2}Content-Type:\stext\/plain;\scharset=koi8-r[\r\n]{0,2}.*[\r\n]{0,4}(.*)[\r\n]{4}/i); print $hi;
|
|