С помощью модуля Mail::POP3Client хочу посмотреть заголовки почтовых сообщений, лежащих на сервере. При этом выдаются данные такого содержания:


From: =?koi8-r?B?5dfHxc7JyiDiz9HSy8nO?= <[email protected]>;
Subject: =?koi8-r?B?8NLP18XSy8E=?=

Вопрос: каким образом раскодировать полученную информацию?

Удаляйте все до последнего вопроса в начале (=?koi8-r?B?) и все начиная с первого вопроса в конце (?=) и полученныю строку раскодируйте из формата base64.

А как ее раскодировать то???

Churchill и rcdimon, заголовки, а иногда и все сообщение кодируется либо с помощью Base64, либо Quoted-printable. (читаем rfc 2045 - MIME)

Вот структура: =?<кодировка>?<тип_кодирования>?<закодированная_строка>?
Кодировка может быть: cp1251, koi8-r и др.
Тип_кодирования: Q - Quoted-printable, B - Base64
Закодированная строка - строка, содержащия символы того или иного кодирования.

Как ни странно perl умеет работать с MIME - модуль MIME.
Для кодирования/раскодирования - MIME::Base64, MIME::QoutedPrint

Поэтому, используя рег. выражения и модули, можно легко расшифровать что там написано.

Код

$message = decode_base64($str);

или

Код

$message = decode_qp($str);

Это сообщение отредактировал(а) sharq - 18.7.2005, 17:17