The OpenNET Project / Index page

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

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

"Не пинайте чайника :) Потребовалось написать обработку на Pe..."
Сообщение от BSD Искать по авторуВ закладки on 28-Сен-02, 12:05  (MSK)
Требуется приходящие в почтовый ящик 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;

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

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

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

 Оглавление

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

1. "RE: Не пинайте чайника :) Потребовалось написать обработку н..."
Сообщение от Сам ты name Искать по авторуВ закладки on 01-Окт-02, 13:46  (MSK)
Уважаемый Чайник, научитеся говорит ваш правильный русский язык, а лишь после того изучать свой некуда не ориентированыый пЁрл
  Рекомендовать в FAQ | Cообщить модератору | Наверх

2. "RE: Не пинайте чайника :) Потребовалось написать обработку н..."
Сообщение от Cobold emailИскать по авторуВ закладки on 01-Окт-02, 21:16  (MSK)
>Требуется приходящие в почтовый ящик 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.

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


Удалить

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




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

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