Блог Ваганова Николая


#!/usr/bin/perl

my $sender = new Mail::Sender {
headers => 'Content-Type: text/plain; charset=utf-8',
smtp => 'smtp.yandex.ru',
from => 'email@email.ru',
to => "email2@email.ru",
subject => 'Hello, i am subject',
# debug => 'debug.log',
msg => "Hello, i am message",
auth => 'PLAIN',
authid => 'email@email.ru',
authpwd => 'password_from_email_email_ru',
};
my $result = $sender->MailMsg({
msg => $sender->{msg},
});
}

subject и msg понимают кириллицу и перенос строк на 100%


foreach $key (keys %hash) {
print "Key - $key\n";
print "Hash for key $key - $hash{$key}\n";
}



my @EMAILS = ('1','2');
my @TOKENS = ('a','b');
my %hash;
@hash{@EMAILS} = @TOKENS;