Базы данныхИнтернетКомпьютерыОперационные системыПрограммированиеСетиСвязьРазное
Поиск по сайту:
Подпишись на рассылку:

Назад в раздел

Использование библиотеки MIME-Base64

div.main {margin-left: 20pt; margin-right: 20pt}

Использование библиотеки MIME-Base64


Suhhinin A., Webscript.ru


Библиотека MIME-Base64 включает в себя 2 модуля:
MIME::Base64; MIME::QoutedPrint; Первый - MIME::Base64служит для кодирвания/раскодирования строк в Base64 кодированные строки согласно спецификации RFC 2045 - MIME (Multipurpose Internet Mail Extensions). Этот метод заключается в том, что все символы кодируются в форму, совершенно нечитабельную человеком.
Для кодирования используется подмножество из 65 символов US-ASCII ([A-Za-z0-9+/=]). например, строка вида =?koi8-r?B?+sTSwdfT1NfVytTFIQ==?= по-русски будет звучать как
Здравствуйте!

Заметить надо, что закодированная строка начинается после комбинации ?B? и заканчивается ?=. В модуле две функции:
decode_base64($str); encode_base64($str, [$eol]); Этой функцией выполняется кодирование данных. Первый аргумент - кодируемая строка, второй - признак окончания строки (по умолчанию - "n").Возвращаемая кодированная строка разбивается на строки не более, чем 76 символов, и заканчивающиеся символом $eol.
Если не хотите, чтобы результат был разбит на строки, в качестве второго аргумента передайте пустую строку.
Если не хотите импортировать процедуры в пространство имен, можно использовать следующим образом:
use MIME::Base64 (); $test = "Привет!"; $encoded = MIME::Base64::encode($test); $decoded = MIME::Base64::decode($encoded); print $test,"n"; print $encoded, "n"; print $decoded, "n"; результат будет следующий: Привет! j+CooqXiIQ== Привет! после кодированной строки идет пустая строка, ибо результат encode возвращается с символом "n";
Функция decode_base64($str) раскодирует ранее закодированную строку.

Второй модуль - MIME::QoutedPrint


предназначен для кодирования/раскодирования Quoted-printable строк (Американцы любят придумывать труднопереводимые термины, по русски звучит как "ограниченные разделителями печатаемые строки" Выглядит сия строка так: =FA=C4=D2=C1=D7=D3=D4=D7=D5=CA=D4=C5! по-русски будет звучать как Здравствуйте! Заметим, что, в отличие от Base64 восклицательный знак не закодирован. Сей метод кодирования представляет закодированную информацию в объеме, примерно в три раза больше, нежели исходный текст. Непечатыемые символы (Янкесы все, что не входит в их алфавит, обозвали непечатыемыми) представляются знаком "=" и за ним две шесстнадцатиричные цифры. В модуле две функции: encode_qp($str); Эта функция возвращает закодированную строку. Функция не заменяет сивол "n" на комбинацию CRLF. decode_qp($str);Эта функция фозвращает раскодированную строку в виде чистого текста.
Прямой вызов функции производится так: use MIME::QuotedPrint (); $encoded = MIME::QuotedPrint::encode($decoded); $decoded = MIME::QuotedPrint::decode($encoded); Поскольку сии методы широко применяются в почтовых программах, и широко применяются оба метода, нужно знать, как заставить вашу Perl-программу различать эти строки. Очень часто кодируются поля "from", "to","Subject" и тело письма, особенно, если посылается письмо из OutlookExpress.
Служебные поля в заголовке помечаются следующим образом:
from, to, subj: =?koi8-r?B?+sTSwdfT1NfVytTFIQ==?=
между =? и следующим ? идет тип кодовой таблицы строки-источника. B? означает Base-64 encoding, ?Q означает Quoted Printable encoding. Значит, для определения типа строки можно нарисовать следующий код: # такие сложности с определением подстроки вызваны тем, # что выражение $str =~ "B?" не дает нужного результата # под ActivePerl в Windows. my $ind1 = index $str,"B?"; # ищем признак encoded-base64 my $ind2 = index $str,"Q?"; # ищем признак encoded quoted-printable if ($ind1 > 0) { # если строка encoded-base64 ($b,$s) = split(/B?/,$str); #отрубаем служебную информацию вида =?koi8-r?B? ($st,$rest) = split(/?=/,$s); #отрубаем окончание строки ?= $result = decode_base64($st); # получаем результат } if ($ind2 > 0) { # если строка encoded quoted-printable ($b,$s) = split(/Q?/,$str); # отрубаем служебную информацию вида =?koi8-r?Q? ($st,$rest) = split(/?=/,$s); # отрубаем окончание строки ?= $result = decode_qp($st); # получаем результат } Собственно, с закодированными полями в заголовке письма разобрались. Теперь на очереди тело письма. Чтобы определить вид кодировки в теле письма, нам нужно сновапорыться в header-е сообщения. В заголовках кодированных писем должна присутствовать строка типа: Content-Type: text/plain; charset="koi8-r" Content-Transfer-Encoding: quoted-printable В этих полях, определяется, в какой кодировке исходное сообщение (koi8-r,windows-1251,....), и тип MIME кодировки (quoted-printable, base-64, 8bit,....). Если MIME кодировка 8bit, то делать ничего не надо, если иная, то читаем сообщение построчно и раскодируем его: # пример для quoted-printable; foreach $line(@message_body) { print decode_qp($line); } Строки, содержащие HTML код и строки, набранные латинскими знаками (US/English) перекодироваться не будут. Вот, собственно, и все.
В наборе библиотек MIME есть еще пакеты Lite-1, Lite-2 "облегченные" MIME кодеры/декодеры, с помощью них можно создавать / читать многосекционные MIME-encoded сообщения (например, вложенная картинка), HTML для преобразования HTML письма в MIME-Lite формат, Tools для разбора и создания MIME вхождений, ispMailGate для создания фильтров на почтовом сервере с демоном sendmail. Чтобы их разбирать и описывать, нужен десяток статей такого же объема, как эта, а посему, позвольте на этом закончить.

  • Главная
  • Новости
  • Новинки
  • Скрипты
  • Форум
  • Ссылки
  • О сайте




  • Emanual.ru – это сайт, посвящённый всем значимым событиям в IT-индустрии: новейшие разработки, уникальные методы и горячие новости! Тонны информации, полезной как для обычных пользователей, так и для самых продвинутых программистов! Интересные обсуждения на актуальные темы и огромная аудитория, которая может быть интересна широкому кругу рекламодателей. У нас вы узнаете всё о компьютерах, базах данных, операционных системах, сетях, инфраструктурах, связях и программированию на популярных языках!
     Copyright © 2001-2022
    Реклама на сайте