|
ru.perl
- RU.PERL ----------------------------------------------------------------------
From : Artem Chuprina 2:5020/400 28 Mar 2003 12:58:41
To : Gennady Terehov
Subject : Re: Отправить массив по почте
--------------------------------------------------------------------------------
Здравствуй, Gennady Terehov.
GT> >>>>> "AC" == Artem Chuprina wrote:
GT> [skip]
GT>>> Вот этот массив @ciphertext мне надо отправить по почте с
GT>>> помощью модуля Mail::Sender .
AC>> А. Тогда perldoc -f join либо perldoc perlvar на предмет $/, дабы не
AC>> страдать фигней и сразу читать в скаляр.
GT> Hаписал
GT> # now we read the output
GT> undef $/;
GT> my $ciphertext = <$output>;
GT> close $output;
GT> waitpid $pid, 0;
GT> В скаляр читается. Hо: если просто написать print $ciphertext;
GT> то выводится то, что надо отправить по почте, а вот если после этого
GT> написать код отправки (с использованием модуля Mail::Sender), причем
GT> даже если отправлять не $ciphertext, а просто любой текст, типа
GT> use Mail::Sender;
GT> $sender = new Mail::Sender
GT> {smtp => 'smtp.server.ru', from => 'from@domain.ru'}
GT> or die "Error($sender) : $Mail::Sender::Error\n";
GT> $sender->MailFile({to => 'to@domain.ru',
GT> bcc => 'bcc@domain.ru',
GT> subject => 'Sub Ject',
GT> msg => 'bla-bla-bla',
GT> file => '/etc/redhat-release'});
GT> то скрипт зависает. Отдельно кусок, начиная с use Mail::Sender;
GT> отрабатывает нормально, т.е. отправляет текст bla-bla-bla.
GT> В чем проблема-то может быть?
Попробуй поменять вышепроцитированное на
my $ciphertext;
{ local $/ = undef; $ciphertext = <$output>; }
close $output;
Mail::Sender, похоже, зачем-то закладывается на стандартное значение $/. Хотя,
спрашивается, с чего бы...
--
Artem Chuprina
RFC2822: <ran@ran.pp.ru>, FIDO: 2:5020/122.256, ICQ: 13038757
--- ifmail v.2.15dev5
* Origin: Leninsky 45 home network (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
