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');
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
609 Прочтений • [Отправка письма с аттачем на Perl (кодирокание/декодирование base64) (perl mime script mail base64 encoding)] [08.05.2012] [Комментариев: 0]
Vova
