Re: language auto shift
В сообщении от 1124917944 секунд после начала Эпохи Strong написал(а):
> Языка австралийской обезьяны!
Ну тогда это можно реализовать примерно таким способом:
use Encode;
my $charset='KOI8-R';
my $subj = encode('MIME-Header',
decode($charset, 'Смените язык!'));
my $body = encode('UTF-8', decode($charset, <<EOF));
Уважаемые австралийские обезьяны!
Прошу вас сменить язык.
EOF
my $msg = <<EOF;
From: Strong <s-stro***@m*****.ru>
To: all_australian_monke***@m*****.au
Subject: $subj
Mime-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit
$body
EOF
my $result = 0;
open(F, "| /usr/sbin/sendmail -t");
print F $msg;
close(F);
Для простоты составления и отправки сообщения можно воспользоваться
высокоуровневым интерфейсом, предоставляемым пакетом `MIME::Entity'.
Надеюсь помог.
