Mihail Kapitanov написал(а) к Stas Mishchenkov в Dec 16 13:44:24 по местному времени:

Привет, Stas!

19 Дек 16 14:11, ты писал(а) мне:

MK>> Спасибо. У меня в комплекте с бинком ддл-ка версии 5.16.
MK>> Получается перл 5.22 не подойдет? Или это не важно?
SM> Не знаю. У меня работает. ;)

Насколько я понял, та библиотека perl510(6).dll которая идет в комлекте с бинком и есть интерпретатор перла и ничего больше не нужно (бинку). Могу ошибаться, конечно.
ДЛЛ от ягодного перла я пробовал подсововать, но валятся ошибки в лог, и бинк падает если, например, конфиг перегрузить.

Вышел из положения так:

1) В хуках делаю вызов другого скрипта:

sub on_log {
if(/^holding/) {
system('C:\Users\user\Fido\Perl\SendEmail.pl "BinkD" "' . $_ . '"');
}
}

2) В "большом" скрипте уже делаю что мне нужно:

use Net::SMTP;

my ($subj, $body) = @ARGV;

if(my $smtp = Net::SMTP->new('smtp.kapitan0v.com')) {
if($smtp->auth('mihail', 'password')) {
$smtp->mail('fido@kapitan0v.com');
$smtp->to('mihail@kapitan0v.com');
$smtp->data();
$smtp->datasend("To: mihail\@kapitan0v.com\n");
$smtp->datasend("From: fido\@kapitan0v.com\n");
$smtp->datasend("Subject: $subj\n");
$smtp->datasend("\n");
$smtp->datasend("$body\n");
$smtp->dataend();
}
$smtp->quit();
}

В результате получаю сообщение когда линк отвалился. Со строкой лога из бинка.

Mihail

--- GoldED+/W32-MSVC 1.1.5-b20160322