|
|
ru.perl- RU.PERL ---------------------------------------------------------------------- From : Slava Trofimov 2:5013/8.4 24 May 2002 11:20:58 To : All Subject : Скрипт получения почты --------------------------------------------------------------------------------
Реализовывал я тут недавно скрипт для получения почты, и дальнейшей
обработки (здесь не важно какой). Для контроля я письма записывал в каталог,
чтобы потом посмотреть на оригинал письма и полученное после обработки.
Делал это так:
Система FreeBSD4.5 + Postfix 1.1.8
прописывал в МТА альяс на скрипт, и затем (упрощенный вариант)
%message = ();
while (<>)
{
push (@message, $_);
}
open (FILE, ">/to/mail.eml");
print FILE "@message";
close (FILE);
exit;
И проблема с полученным файлом на диске такая:
Первая строка нормально, а все последующие отступают на один пробел!!!
Больше изменений никаких нет. В чем дело, как можно избавиться от этих пробелов?
Кроме как снова открывать файл и редактировать :-)
До встpечи,
Слава.
... ICQ 62940418 [SHERLOCK] E-mail: sherlock_boy@mail.ru
--- GoldED/W32 3.0.0-dam8 [HI-FI (Black raven)] [MATRIX] [THIEF] [GIRLS]
* Origin: (FidoNet 2:5013/8.4)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
Архивное /ru.perl/22693cee25c6.html, оценка из 5, голосов 10
|