Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Perl: Общие вопросы > Регулярные выражения для почты

Автор: rcdimon 16.7.2005, 13:14

Мне нужно создать Web- интерфейс для почты. Установил POP3Client

По запросу
print $pop->Head( 1 );

Он отвечает

Received: from mx20.yandex.ru ([213.180.200.20]:57756 "EHLO mx20.yandex.ru" smtp-auth: ) by mail.yandex.ru with ESMTP id ; Thu, 14 Jul 2005 19:53:39 +0400 Received: from advmail.lsn.net ([66.90.138.148]:26271 "EHLO advmail.lsn.net" smtp-auth: TLS-CIPHER: TLS-PEER-CN1: ) by mail.yandex.ru with ESMTP id S967044AbVGNPx1 (ORCPT ); Thu, 14 Jul 2005 19:53:27 +0400 Received-SPF: pass (mx20.yandex.ru: domain of advantexmail.net designates 66.90.138.148 as permitted sender, widemask) client-ip=66.90.138.148; [email protected]; helo=advmail.lsn.net;, widemask Received: from DEBIDELL (216-82-216-224.dyn.grandenetworks.net [216.82.216.224]) by advmail.lsn.net (8.12.8/8.12.4) with SMTP id j6EFqj7Q027830 for ; Thu, 14 Jul 2005 10:53:24 -0500 MIME-Version: 1.0 Message-Id: <42D68981.000039.01756@DEBIDELL> Date: Thu, 14 Jul 2005 10:49:21 -0500 (Central Daylight Time) Content-Type: Multipart/Mixed; boundary="------------Boundary-00=_9YJMY3L3LVC000000000" X-Mailer: IncrediMail (3001488) From: "Flygirl" References: <[email protected]> To: Subject: Re: You new site smile

X-FID: FLAVOR00-NONE-0000-0000-000000000000 X-Priority: 3 Reply-To: "Flygirl" Disposition-Notification-To: "Flygirl" X-Grande-Antivirus: Scanned by Vexira Antivirus %milterversion% - 8.794

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

Заранее спасибо

Автор: rcdimon 17.7.2005, 00:13

Все, разобрался. Нужно было просто быть поумнее и писать не

$a = $pop->Head(1);

а

@a = $pop->Head(1);

Автор: sharq 18.7.2005, 16:53

rcdimon ты можешь использовать свой первый вариант, только вместо массива, юзай ссылку на массив.
Если нужно разыменовать пишишь @$a, вот, например:

Код


push @$a, 'bla-bla';

А к элементам обращаешься так:

Код


print $a->[0];

Так быстрее и иногда лучше.
smile