форумы  помощь  поиск  регистрация  майллист  ВХОД  слежка

Вариант для распечатки		Архивированная нить - только для чтения!  Пред. тема | След. тема
Форумы OpenNET: Виртуальная конференция (Public)
Изначальное сообщение		[Проследить за развитием треда]

"Как в Perl-скрипте получить тело письма?"
Сообщение от Anubis on 20-Май-03, 02:17  (MSK)
Помогите плиз!! Мне надо в Perl-скрипте получить тело письма!! Я знаю что вродибе можно в файле alliases прописать скрипт. Так ли это?И всеравно! Даже если жто и так, то как принять тело писльма в самом скрипте? Зарание спасибо.
	Рекомендовать в FAQ | Cообщить модератору | Наверх

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

Сообщения по теме

1. "Как в Perl-скрипте получить тело письма?"
Сообщение от amber46 on 20-Май-03, 03:37  (MSK)
>Помогите плиз!! >Мне надо в Perl-скрипте получить тело письма!! >Я знаю что вродибе можно в файле alliases прописать скрипт. >Так ли это?И всеравно! Даже если жто и так, то как принять >тело >писльма в самом скрипте? > >Зарание спасибо. В aliase внести: adress_kuda_slat: "|/put/do/tvoego/scripta" в скрипте: ну тут мона развлечся на полную катушку, но я рекомендую посмотреть в сторону перловой библиотеки MIME-tools скачать ее мона отсюда: http://search.cpan.org/CPAN/authors/id/E/ER/ERYQ/MIME-tools-5.411a.tar.gz внутри очень много примеров как эти пользоваться. В частности есть готовый mimedump который парсит письмецо и раскладывает его на составные части. body отдельно, аттачи отдельно.
	Рекомендовать в FAQ | Cообщить модератору | Наверх

	2. "Как в Perl-скрипте получить тело письма?"
	Сообщение от dawnshade on 20-Май-03, 09:41  (MSK)
	>>Помогите плиз!! >>Мне надо в Perl-скрипте получить тело письма!! >>Я знаю что вродибе можно в файле alliases прописать скрипт. >>Так ли это?И всеравно! Даже если жто и так, то как принять >>тело >>писльма в самом скрипте? >> >>Зарание спасибо. > > >В aliase внести: >adress_kuda_slat: "|/put/do/tvoego/scripta" > Абсолютно точно. Данные будут поступать на STDIN.
		Рекомендовать в FAQ | Cообщить модератору | Наверх

	3. "Как в Perl-скрипте получить тело письма?"
	Сообщение от gennady on 20-Май-03, 12:00  (MSK)
	>>В aliase внести: >>adress_kuda_slat: "|/put/do/tvoego/scripta" >> > >Абсолютно точно. Данные будут поступать на STDIN. Точнее, должен быть указан путь в пайп, и данные будут поступать в пайп. А скрипт должен их оттуда забирать.
		Рекомендовать в FAQ | Cообщить модератору | Наверх

	4. "Как в Perl-скрипте получить тело письма?"
	Сообщение от Bart_Simpson on 20-Май-03, 12:12  (MSK)
	>>>В aliase внести: >>>adress_kuda_slat: "|/put/do/tvoego/scripta" >>> >> >>Абсолютно точно. Данные будут поступать на STDIN. >Точнее, должен быть указан путь в пайп, и данные будут поступать в >пайп. А скрипт должен их оттуда забирать. Что то странно, я хотел завести пользователя proxy что бы при проходе письма отрабатывал sarg, так вот не работает и все, postfix говорит не могу дописать данные, файл исполняемый. Пробовал прописывать в каталог ~/.forward, тоже тишина.
		Рекомендовать в FAQ | Cообщить модератору | Наверх

	5. "Как в Perl-скрипте получить тело письма?"
	Сообщение от Anubis on 21-Май-03, 21:37  (MSK)
	>>>Помогите плиз!! >>>Мне надо в Perl-скрипте получить тело письма!! >>>Я знаю что вродибе можно в файле alliases прописать скрипт. >>>Так ли это?И всеравно! Даже если жто и так, то как принять >>>тело >>>писльма в самом скрипте? >>> >>>Зарание спасибо. >> >> >>В aliase внести: >>adress_kuda_slat: "|/put/do/tvoego/scripta" >> > >Абсолютно точно. Данные будут поступать на STDIN. У меня не получается получить тело письма!!!! Пробую так: #!/usr/bin/perl open (LG,">>/etc/test/test_sms")|| print "ERROR: Can't open log.\n"; flock(LG,2); while(<>) { $swe=getc; print LG "$swe"; } close (LG); Подскажите плиз как мне тело получить и в файл записать. Зарание спасибо.
		Рекомендовать в FAQ | Cообщить модератору | Наверх

	6. "Как в Perl-скрипте получить тело письма?"
	Сообщение от dawnshade on 22-Май-03, 09:17  (MSK)
	>while(<>) Надо while (<STDIN>) >$swe=getc; Соттв. эта строка не нужна.
		Рекомендовать в FAQ | Cообщить модератору | Наверх

	7. "Как в Perl-скрипте получить тело письма?"
	Сообщение от DogEater on 22-Май-03, 10:59  (MSK)
	> >>while(<>) >Надо while (<STDIN>) > >>$swe=getc; >Соттв. эта строка не нужна. Может так? while ($var=<stdin>){   if ($var eq "\n"){     $flag="readbody";   } }
		Рекомендовать в FAQ | Cообщить модератору | Наверх

	8. "Как в Perl-скрипте получить тело письма?"
	Сообщение от DogEater on 22-Май-03, 11:03  (MSK)
	> >>while(<>) >Надо while (<STDIN>) > >>$swe=getc; >Соттв. эта строка не нужна. Предыдущий пост не считается  - рука дрогнула... Тело письма обычно (:-)) отделяется от заголовка пустой строкой Может так? while ($var=<stdin>){ ══if ($var eq "\n"){ ════$flag="readbody"; ══}   if ($flag eq "readbody"){     push (@body, $var);   } } Неизящно, по ламерски, но будет работать...
		Рекомендовать в FAQ | Cообщить модератору | Наверх

Удалить

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

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