The OpenNET Project / Index page

[ новости /+++ | форум | wiki | теги | ]

Отправка письма с аттачем на Perl (кодирокание/декодирование base64) (perl mime script mail base64 encoding)


<< Предыдущая ИНДЕКС Поиск в статьях src Установить закладку Перейти на закладку Следующая >>
Ключевые слова: 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

<< Предыдущая ИНДЕКС Поиск в статьях src Установить закладку Перейти на закладку Следующая >>

 Добавить комментарий
Имя:
E-Mail:
Заголовок:
Текст:




Спонсоры:
Inferno Solutions
Hosting by Hoster.ru
Хостинг:

Закладки на сайте
Проследить за страницей
Created 1996-2020 by Maxim Chirkov
Добавить, Поддержать, Вебмастеру