WebScript.Ru
C:\   главная  ::   о сайте  ::  каталог скриптов  ::  гнездо  ::  форум  ::   авторам  :: Новостройки ::   ХОСТИНГ  ::

|| разделы::
|| поиск по сайту::

|| реклама::
|| новости почтой::
Рассылки Subscribe.Ru ::



Новости сайта WebScript.Ru
Популярные статьи

Hot 5 Stories

|| рекомендуем::




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


Прислал: Alexander Suhhinin [ 26.06.2001 @ 07:37 ]
Раздел:: [ Статьи по Perl ]


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

Библиотека 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.
    Чтобы их разбирать и описывать, нужен десяток статей такого же объема, как эта, а посему, позвольте на этом закончить.
    A.Suhhinin


  •  :::::  nal пишет 15.02.2002 @ 19:31 
    Слишком много опечаток в статьях типа:
    MIME::QОutedPrint;
    вместо
    MIME::QuОtedPrint;

     :::::  Илья пишет 14.01.2003 @ 12:53 
    На самом деле должно быть просто MIME::QuotedPrint
     :::::  Илья пишет 14.01.2003 @ 15:01 
    У меня под виндюками прекрасно работает такая вот функция

    sub decode_text
    {
    my ($str, $result);

    $str = $_[0];

    if ($str =~ m/=\?.*\?(.)\?(.*)\?=/g)
    {

    if ($1 eq 'B')
    {
    return decode_base64($2);
    }
    elsif ($1 eq 'Q')
    {
    return decode_qp($2)
    }
    }
    else
    {
    return $str;
    }


    Имя:
    Email:
    URL

    Введите сумму двух чисел девять и одинн (девять+одинн=?)
    Запомнить мою информацию

    * Html запрещен* Ваш E-mail опубликован не будет.

    Copyright © 2000-2001 WebScript.Ru nas@webscript.ru
    Design © 2001 by Parallax Design Studio (aka Spectator.ru)
    Все торговые марки и авторские права на эту страницу принадлежат их соответствующим владельцам.
    Сгенерировано за: 0.0124300