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