Требуется приходящие в почтовый ящик INFO письма от rafek извлекать в отдельный файл (это я сделал), а затем письма с таблицами в формате HTML разбивать на отдельные файлы с разделителем "|" вместо колонок и возвратом каретки вместо строк таблицы. С Перлом столкнулся неделю назад, от прочтения умных книг голова кургом идет (избаловал себя обьектноорентированными языками)
Пока написал следующее:

perl.pl > mail.bux
#!/usr/bin/perl
   open F, "/var/mail/info";
   $MM=0;
   while (<F>) {
     if ($_=~ m/From /) {$MM=0;}
     if ($_=~ m/From rafek/) {$MM=1;}
     if ($MM == 1) {print;}
   }
   close F;

КУДА ДВИГАТСЯ? подскажите, может имеются готовые решения или хотя бы механизм.

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

• RE: Не пинайте чайника :) Потребовалось написать обработку на Perl для обработки почты.,Сам ты name, 13:46 , 01-Окт-02
• RE: Не пинайте чайника :) Потребовалось написать обработку на Perl для обработки почты.,Cobold, 21:16 , 01-Окт-02

Уважаемый Чайник, научитеся говорит ваш правильный русский язык, а лишь после того изучать свой некуда не ориентированыый пЁрл

>Требуется приходящие в почтовый ящик INFO письма от rafek извлекать в отдельный
>файл (это я сделал), а затем письма с таблицами в формате
>HTML разбивать на отдельные файлы с разделителем "|" вместо колонок и
>возвратом каретки вместо строк таблицы. С Перлом столкнулся неделю назад, от
>прочтения умных книг голова кургом идет (избаловал себя обьектноорентированными языками)
>Пока написал следующее:
>
>perl.pl > mail.bux
>#!/usr/bin/perl
>   open F, "/var/mail/info";
>   $MM=0;
>   while (<F>) {
>     if ($_=~ m/From /) {$MM=0;}
>     if ($_=~ m/From rafek/) {$MM=1;}
>     if ($MM == 1) {print;}
>   }
>   close F;
>
>КУДА ДВИГАТСЯ? подскажите, может имеются готовые решения или хотя бы механизм.
>
>Зарание спасибо.

Esli dlja was ne kriti4na skorost' to moschno HTML-wychod prosto 4erez "links" prognat', on takoi krasiwyi html2ascii delaet.

A gotowye reschenija lu4sche wsego na http://cpan.org iskat'

P.S. Izwinite za translit.