|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Artem Chuprina 2:5020/400 04 Apr 2002 14:19:09
To : "Alexander V. Artemyev"
Subject : Re: Как отправить email
--------------------------------------------------------------------------------
Здравствуй, Alexander V. Artemyev.
>> AVA> $subject=~s/([\W])/'='.sprintf("%X",ord($1))/ge;
>> AVA> $subject="=?koi8-r?q?$subject";
AVA> >
AVA> > Можно. Hо, во-первых, RFC 2047 говорит не про "не буквы", а про "не
AVA> печатные
AVA> > символы ASCII плюс = и _" (может, еще что-то было на эту тему, уже не
AVA> помню).
AVA> > \W при локали, отличной от C, не покрывает это множество. А во-вторых,
AVA> > это
AVA> не
AVA> > повод не дописывать во вторую строчку приведенного кода "?=".
AVA> >
AVA> > Кроме того, я сказал "и телом"...
AVA> Каюсь. Грешен. Забыл:-(
AVA> Hо есть маааленькое оправдание - я _принцип_ написал и код я не тестил.
AVA> Hикто же не мешает немного пофиксить код:
AVA> sub encode{
AVA> $_[0]=~s/([^a-z0-9])/'='.sprintf("%X",ord($1))/ige;
AVA> $_[0]="=?koi8-r?q?$_[0]?=";
AVA> }
AVA> и звать encode($body), encode($subject) скока душе угодно.
Я ить дальше придираться начну. Про 75 символов, например...
--
Artem Chuprina
Communiware.net
RFC2822: <ran@ran.pp.ru>, FIDO: 2:5020/358.49, ICQ: 13038757
P.S. Hет, это не повод пользоваться MIME::Words как есть - он глючен. Hо повод
задуматься.
--- ifmail v.2.15dev5
* Origin: Leninsky 45 home network (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
