Encode::MIME::Header -- MIME encoding for an unstructured email header
use Encode qw(encode decode);my $mime_str = encode("MIME-Header", "Sample:Text \N{U+263A}");# $mime_str is "=?UTF-8?B?U2FtcGxlOlRleHQg4pi6?="my $mime_q_str = encode("MIME-Q", "Sample:Text \N{U+263A}");# $mime_q_str is "=?UTF-8?Q?Sample=3AText_=E2=98=BA?="my $str = decode("MIME-Header", "=?ISO-8859-1?B?SWYgeW91IGNhbiByZWFkIHRoaXMgeW8=?=\r\n " . "=?ISO-8859-2?B?dSB1bmRlcnN0YW5kIHRoZSBleGFtcGxlLg==?=");# $str is "If you can read this you understand the example."use Encode qw(decode :fallbacks);use Encode::MIME::Header;local $Encode::MIME::Header::STRICT_DECODE = 1;my $strict_string = decode("MIME-Header", $mime_string, FB_CROAK);# use strict decoding and croak on errorsThis module implementsRFC 2047 MIME encoding for an unstructured field body of the email header. It can also be used forRFC 822 'text' token. However, it cannot be used directly for the whole header with the field name or for the structured header fields like From, To, Cc, Message-Id, etc... There are 3 encoding names supported by this module:MIME-Header,MIME-B andMIME-Q.
Decode method takes an unstructured field body of the email header (orRFC 822 'text' token) as its input and decodes each MIME encoded-word from input string to a sequence of bytes according toRFC 2047 andRFC 2231. Subsequently, each sequence of bytes with the corresponding MIME charset is decoded withthe Encode module and finally, one output string is returned. Text parts of the input string which do not contain MIME encoded-word stay unmodified in the output string. Folded newlines between two consecutive MIME encoded-words are discarded, others are preserved in the output string.MIME-B can decode Base64 variant,MIME-Q can decode Quoted-Printable variant andMIME-Header can decode both of them. IfEncode module does not support particular MIME charset or chosen variant then an action based onCHECK flags is performed (by default, the MIME encoded-word is not decoded).
Encode method takes a scalar string as its input and usesstrict UTF-8 encoder for encoding it to UTF-8 bytes. Then a sequence of UTF-8 bytes is encoded into MIME encoded-words (MIME-Header andMIME-B use a Base64 variant whileMIME-Q uses a Quoted-Printable variant) where each MIME encoded-word is limited to 75 characters. MIME encoded-words are separated byCRLF SPACE and joined to one output string. Output string is suitable for unstructured field body of the email header.
Both encode and decode methods propagateCHECK flags when encoding and decoding the MIME charset.
Versions prior to 2.22 (part of Encode 2.83) have a malfunctioning decoder and encoder. The MIME encoder infamously inserted additional spaces or discarded white spaces between consecutive MIME encoded-words, which led to invalid MIME headers produced by this module. The MIME decoder had a tendency to discard white spaces, incorrectly interpret data or attempt to decode Base64 MIME encoded-words as Quoted-Printable. These problems were fixed in version 2.22. It is highly recommended not to use any version prior 2.22!
Versions prior to 2.24 (part of Encode 2.87) ignoredCHECK flags. The MIME encoder usednot strict utf8 encoder for input Unicode strings which could lead to invalid UTF-8 sequences. MIME decoder used alsonot strict utf8 decoder and additionally called the decode method with aEncode::FB_PERLQQ flag (thus user-specifiedCHECK flags were ignored). Moreover, it automatically croaked when a MIME encoded-word contained unknown encoding. Since version 2.24, this module usesstrict UTF-8 encoder and decoder. AndCHECK flags are correctly propagated.
Since version 2.22 (part of Encode 2.83), the MIME encoder should be fully compliant toRFC 2047 andRFC 2231. Due to the aforementioned bugs in previous versions of the MIME encoder, there is aless strict compatible mode for the MIME decoder which is used by default. It should be able to decode MIME encoded-words encoded by pre 2.22 versions of this module. However, note that this is not correct according toRFC 2047.
In defaultnot strict mode the MIME decoder attempts to decode every substring which looks like a MIME encoded-word. Therefore, the MIME encoded-words do not need to be separated by white space. To enforce a correctstrict mode, set variable$Encode::MIME::Header::STRICT_DECODE to 1 e.g. by localizing:
use Encode::MIME::Header;local $Encode::MIME::Header::STRICT_DECODE = 1;Pali <pali@cpan.org>
Perldoc Browser is maintained by Dan Book (DBOOK). Please contact him via theGitHub issue tracker oremail regarding any issues with the site itself, search, or rendering of documentation.
The Perl documentation is maintained by the Perl 5 Porters in the development of Perl. Please contact them via thePerl issue tracker, themailing list, orIRC to report any issues with the contents or format of the documentation.