The OpenNET Project / Index page

[ новости /+++ | форум | теги | ]

форумы  помощь  поиск  регистрация  майллист  ВХОД  слежка  RSS
"perl and mail header"
Вариант для распечатки Архивированная нить - только для чтения! 
Пред. тема | След. тема 
Форумы OpenNET: Виртуальная конференция (Public)
Изначальное сообщение [Проследить за развитием треда]

"perl and mail header"
Сообщение от logka emailИскать по авторуВ закладки on 09-Мрт-04, 18:43  (MSK)
ПРивет!
мож кто поделится примером так сказать разбивки письма по переменным
тобишь чтоб были переменные $from $subject....
А то с перлом я очень мало знаком :(
ну и письмо мы получаем путем перенаправления в алиасе на скрипт....
  Рекомендовать в FAQ | Cообщить модератору | Наверх

 Оглавление

Индекс форумов | Темы | Пред. тема | След. тема
Сообщения по теме

1. "perl and mail header"
Сообщение от DogEater Искать по авторуВ закладки on 09-Мрт-04, 20:53  (MSK)
>ПРивет!
>мож кто поделится примером так сказать разбивки письма по переменным
>тобишь чтоб были переменные $from $subject....
>А то с перлом я очень мало знаком :(
>ну и письмо мы получаем путем перенаправления в алиасе на скрипт....

летом 2к+3 на форуме эта тема проскакивала
поиск, поиск ...

  Рекомендовать в FAQ | Cообщить модератору | Наверх

2. "perl and mail header"
Сообщение от Simps emailИскать по авторуВ закладки on 10-Мрт-04, 09:38  (MSK)
>>ПРивет!
>>мож кто поделится примером так сказать разбивки письма по переменным
>>тобишь чтоб были переменные $from $subject....
>>А то с перлом я очень мало знаком :(
>>ну и письмо мы получаем путем перенаправления в алиасе на скрипт....
>
>летом 2к+3 на форуме эта тема проскакивала
>поиск, поиск ...

use MIME::Head;
use MIME::Body;
use MIME::Parser;
use MIME::Entity;
use MIME::QuotedPrint;
use MIME::Base64;
            my $parser = new MIME::Parser;
            $parser->output_under("/tmp/msgs");
            $ent = $parser->parse_open($filename);
            $header = MIME::Head->from_file($filename);
            @body = $ent->stringify_body;
            my $parser = new MIME::Parser;
            $parser->output_under("/tmp/msgs");
            $ent = $parser->parse_open($mdir.$filename);
            $header = MIME::Head->from_file($mdir.$filename);
            @body = $ent->stringify_body;
            $subject = $header->get('Subject',0);

  Рекомендовать в FAQ | Cообщить модератору | Наверх

3. "perl and mail header"
Сообщение от logka emailИскать по авторуВ закладки on 10-Мрт-04, 13:26  (MSK)
>use MIME::Head;
>use MIME::Body;
>use MIME::Parser;
>use MIME::Entity;
>use MIME::QuotedPrint;
>use MIME::Base64;
>            
>my $parser = new MIME::Parser;
>            $parser->output_under("/tmp/msgs");
>            $ent = $parser->parse_open($filename);
>            $header = MIME::Head->from_file($filename);
>            @body = $ent->stringify_body;
>            
>my $parser = new MIME::Parser;
>            $parser->output_under("/tmp/msgs");
>            $ent = $parser->parse_open($mdir.$filename);
>            $header = MIME::Head->from_file($mdir.$filename);
>            @body = $ent->stringify_body;
>            $subject = $header->get('Subject',0);


что то я этих фраз не сильно понял.... ладно.... читаем доку и ищем архив форума ,)

  Рекомендовать в FAQ | Cообщить модератору | Наверх

4. "perl and mail header"
Сообщение от Simps emailИскать по авторуВ закладки on 10-Мрт-04, 15:05  (MSK)
>>use MIME::Head;
>>use MIME::Body;
>>use MIME::Parser;
>>use MIME::Entity;
>>use MIME::QuotedPrint;
>>use MIME::Base64;
>>            
>>my $parser = new MIME::Parser;
>>            $parser->output_under("/tmp/msgs");
>>            $ent = $parser->parse_open($filename);
>>            $header = MIME::Head->from_file($filename);
>>            @body = $ent->stringify_body;
>>            
>>my $parser = new MIME::Parser;
>>            $parser->output_under("/tmp/msgs");
>>            $ent = $parser->parse_open($mdir.$filename);
>>            $header = MIME::Head->from_file($mdir.$filename);
>>            @body = $ent->stringify_body;
>>            $subject = $header->get('Subject',0);
>
>
>что то я этих фраз не сильно понял.... ладно.... читаем доку и
>ищем архив форума ,)

Ну значит вам не повезло ... Я когда увидел эти строки то все понял ...
use MIME::Head;
use MIME::Body;
use MIME::Parser;
use MIME::Entity;
use MIME::QuotedPrint;
use MIME::Base64;
Это понятно ?
А дальше ну видно же по коду что делается ... Загружается письмо из $mdir.$filename и дальше тупо парсится ...

  Рекомендовать в FAQ | Cообщить модератору | Наверх


Удалить

Индекс форумов | Темы | Пред. тема | След. тема
Пожалуйста, прежде чем написать сообщение, ознакомьтесь с данными рекомендациями.




Партнёры:
PostgresPro
Inferno Solutions
Hosting by Hoster.ru
Хостинг:

Закладки на сайте
Проследить за страницей
Created 1996-2025 by Maxim Chirkov
Добавить, Поддержать, Вебмастеру