|
ru.cgi.perl
- RU.CGI.PERL ------------------------------------------------------------------
From : Alexander V. Artemyev 2:5020/400 04 Apr 2002 12:58:08
To : Artem Chuprina
Subject : Re: Как отправить email
--------------------------------------------------------------------------------
> AVA> $subject=~s/([\W])/'='.sprintf("%X",ord($1))/ge;
> AVA> $subject="=?koi8-r?q?$subject";
>
> Можно. Hо, во-первых, RFC 2047 говорит не про "не буквы", а про "не
печатные
> символы ASCII плюс = и _" (может, еще что-то было на эту тему, уже не
помню).
> \W при локали, отличной от C, не покрывает это множество. А во-вторых, это
не
> повод не дописывать во вторую строчку приведенного кода "?=".
>
> Кроме того, я сказал "и телом"...
Каюсь. Грешен. Забыл:-(
Hо есть маааленькое оправдание - я _принцип_ написал и код я не тестил.
Hикто же не мешает немного пофиксить код:
sub encode{
$_[0]=~s/([^a-z0-9])/'='.sprintf("%X",ord($1))/ige;
$_[0]="=?koi8-r?q?$_[0]?=";
}
и звать encode($body), encode($subject) скока душе угодно.
--
Александр
--- ifmail v.2.15dev5
* Origin: Yartelecom Computer Networks (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
