|
ru.unix.bsd
- RU.UNIX.BSD ------------------------------------------------------------------
From : Andrey N. Oktyabrski 2:5020/400 22 Aug 2006 19:24:54
To : Alexander Fatykhov
Subject : Re: конвертация заголовков
--------------------------------------------------------------------------------
Alexander Fatykhov wrote:
> Hello, All!
>
> может не в тему, но на перле надо имея строку заголовка вида
> =?koi8-r?B?0NLJ18XU?=
>
> получить просто "привет"...
> так из iso и всего прочего...
> на выходе хотелось бы получить текст в заданной кодировке (koi8-r или
> win-1251 в основном)
>
> да, заголовки может можержать несколько раз =?koi8-r? или быть
> "повреждёнными"..
>
> для этой цели не хотелось бы ставит тучу пакетов ;)
Только два: p5-MIME-Base64, p5-Text-Iconv
И что-то типа этого:
echo '=?koi8-r?B?0NLJ18XU?= =?koi8-r?B?0NLJ18XU?=' | perl -ne '
use MIME::Base64;
use Text::Iconv;
@a = split(/\?=\s*/);
for $i (0 .. $#a) {
if ($a[$i] =~ m/^=\?([^?]+)\?([BbQq])\?(.*?)$/) {
$c = Text::Iconv->new($1, "koi8-r");
print $c->convert(($2 == 'B' || $2 == 'b')? decode_base64($3):
decode_qp($3));
}
}'
--- ifmail v.2.15dev5.3
* Origin: RTComm.RU (2:5020/400)
Вернуться к списку тем, сортированных по: возрастание даты уменьшение даты тема автор
|
Re: конвертация заголовков 
