Модераторы: korob2001, ginnie
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Регулярные выражения для почты 
:(
    Опции темы
rcdimon
Дата 16.7.2005, 13:14 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 766
Регистрация: 12.7.2004
Где: Москва

Репутация: 1
Всего: 2



Мне нужно создать 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

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

Заранее спасибо
PM MAIL ICQ   Вверх
rcdimon
Дата 17.7.2005, 00:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Опытный
**


Профиль
Группа: Участник
Сообщений: 766
Регистрация: 12.7.2004
Где: Москва

Репутация: 1
Всего: 2



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

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


а


@a = $pop->Head(1);
PM MAIL ICQ   Вверх
sharq
Дата 18.7.2005, 16:53 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Perl Liker
**


Профиль
Группа: Участник
Сообщений: 841
Регистрация: 13.12.2004
Где: Ростов-на-Дону

Репутация: 23
Всего: 28



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

push @$a, 'bla-bla';

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

print $a->[0];

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


--------------------
[color=gray]There's More Than One Way To Do It[/color]
PM MAIL WWW ICQ Skype   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Perl"
korob2001
sharq
  • В этом разделе обсуждаются общие вопросы по языку Perl
  • Если ваш вопрос относится к системному программированию, задавайте его здесь
  • Если ваш вопрос относится к CGI программированию, задавайте его здесь
  • Интерпретатор Perl можно скачать здесь ActiveState, O'REILLY, The source for Perl
  • Справочное руководство "Установка perl-модулей", можно скачать здесь


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, korob2001, sharq.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Perl: Общие вопросы | Следующая тема »


 




[ Время генерации скрипта: 0.0592 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.