Отправка письма с аттачем на Perl (кодирокание/декодирование base64) (perl mime script mail base64 encoding)
Ключевые слова: perl, mime, script, mail, base64, encoding, (найти похожие документы)
Date: Mon, 10 Sep 2001 16:42:44 +0400
From: Yuri Khachaturian <Yuri.Khachaturian@f975.n5020.z2.fidonet.org>
Newsgroups: fido7.ru.perl
Subject: Отправка письма с аттачем на Perl (кодирокание/декодирование base64)
GA> Hе поскажет ли кто-нибудь скрипт, который бы позволял отправлять
GA> статистику с сервера на мыло, статистика находится в zip'е так что
GA> пересылать ее надо вложением.
GA> Заранее благодарю за помощь.
use MIME::Lite;
my $msg = MIME::Lite->new(
From =>'from@addr',
To =>"to@addr",
Subject =>'Subject here',
Type =>'multipart/mixed');
$msg->attach(Type =>'TEXT',
Data =>"Text here."
);
$msg->attach(Type =>'application/zip',
Path =>'/path/to/file.zip',
Filename =>'file.zip',
Disposition => 'attachment'
);
$msg->send();
--
Cheers, Yuri Khachaturian,
The Official Gamma Ray fanclub in Russia - http://www.gammaray.ru
SMS: yukh@email2sms.ru (up to 160 chars)
From: Denis Poznyakov <Denis.Poznyakov@p8.f160.n450.z2.fidonet.org>
IK>> Кто знает, как декодить и енкодить средствами perl ?
SS> Помнится на www.webscript.ru была такая позновательная статейка...
как всегда все посылают в....доки :)
#
# BASE 64
#
# encode
sub ebase64 ($;$)
{
my $res = "";
my $eol = $_[1];
$eol = "\n" unless defined $eol;
pos($_[0]) = 0;
while ($_[0] =~ /(.{1,45})/gs) {$res .= substr(pack('u', $1),1);chop($res);}
$res =~ tr|` -_|AA-Za-z0-9+/|;
my $padding = (3 - length($_[0]) % 3) % 3;
$res =~ s/.{$padding}$/'=' x $padding/e if $padding;
if (length $eol) {$res =~ s/(.{1,76})/$1$eol/g;}
$res;
}
# decode
sub dbase64 ($)
{
local($^W) = 0; my $str = shift; my $res = ""; $str =~ tr|A-Za-z0-9+=/||cd;
if (length($str) % 4) {exit}
$str =~ s/=+$//; $str =~ tr|A-Za-z0-9+/| -_|;
while ($str =~ /(.{1,60})/gs) {
my $len = chr(32 + length($1)*3/4);
$res .= unpack("u", $len . $1 );
}
$res;
}
http://pvdlab.net
... rm * -r...BEER II INSIDE
