|
использование библиотеки mime-base64В данной статье рассказывается как использовать библиотеку MIME-Base64 средствами Perl. Приводятся наглядные примеры с комментариями. Статья подойдет для любого уровня.Библиотека 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) раскодирует ранее закодированную строку. Другие статьи по теме: - Perl для веб-мастера- ставим пароль на страницу - аутентификация пользователей через веб-интерфейс - введение в perl - практическое применение perl-скриптов |
|
2006-2024 © SMTI.RU Главная страница | Связаться с нами |