NAME<\/a> MIME::Words \u2212 deal with RFC 2047 encoded words<\/p>\n Before reading further, you should see MIME::Tools to make sure that you understand where this module fits into the grand scheme of things. Go on, do it now. I\u2019ll wait.<\/p>\n Ready? Ok…<\/p>\n use MIME::Words qw(:all); Fellow Americans, you probably won\u2019t know what the hell this module is for. Europeans, Russians, et al, you probably do. “:\u2212)”.<\/p>\n For example, here\u2019s a valid MIME<\/small> header you might get:<\/p>\n From: =?US\u2212ASCII?Q?Keith_Moore?= The fields basically decode to (sorry, I can only approximate the Latin characters with 7 bit sequences \/o and \u2019e):<\/p>\n From: Keith Moore decode_mimewords ENCODED<\/small><\/p>\n Function.<\/i> Go through the string looking for RFC<\/small> 2047\u2212style “Q” (quoted-printable, sort of) or “B” (base64) encoding, and decode them.<\/p>\n In an array context,<\/b> splits the ENCODED<\/small> string into a list of decoded “[DATA, CHARSET]” pairs, and returns that list. Unencoded data are returned in a 1\u2212element array “[DATA]”, giving an effective CHARSET<\/small> of “undef”.<\/p>\n $enc = ‘=?ISO\u22128859\u22121?Q?Keld_J=F8rn_Simonsen?= In a scalar context,<\/b> joins the “data” elements of the above list together, and returns that. Warning: this is information-lossy,<\/i> and probably not<\/i> what you want, but if you know that all charsets in the ENCODED<\/small> string are identical, it might be useful to you. (Before you use this, please see “unmime” in MIME::WordDecoder, which is probably what you want.)<\/p>\n In the event of a syntax error, $@ will be set to a description of the error, but parsing will continue as best as possible (so as to get something<\/i> back when decoding headers). $@ will be false if no error was detected.<\/p>\n Any arguments past the ENCODED<\/small> string are taken to define a hash of options:<\/p>\n encode_mimeword RAW,<\/small> [ ENCODING<\/small> ], [ CHARSET<\/small> ]<\/p>\n Function.<\/i> Encode a single RAW<\/small> “word” that has unsafe characters. The “word” will be encoded in its entirety.<\/p>\n ### Encode “< You may specify the ENCODING<\/small> (“Q” or “B”), which defaults to “Q”. You may specify the CHARSET,<\/small> which defaults to “iso\u22128859\u22121”.<\/p>\n encode_mimewords RAW,<\/small> [ OPTS<\/small> ]<\/p>\n Function.<\/i> Given a RAW<\/small> string, try to find and encode all “unsafe” sequences of characters:<\/p>\n ### Encode a string with some unsafe “words”: Returns the encoded string. Any arguments past the RAW<\/small> string are taken to define a hash of options: Encode all unsafe stuff with this charset. Default is \u2019 ISO\u22128859\u22121<\/small> \u2019, a.k.a. “Latin\u22121”.<\/p>\n Encoding<\/p>\n The encoding to use, “q” or “b”. The default is “q”.<\/p>\n Warning:<\/b> this is a quick-and-dirty solution, intended for character sets which overlap ASCII.<\/small> It does not comply with the RFC 2047<\/small> rules regarding the use of encoded words in message headers<\/b>. You may want to roll your own variant, using “encode_mimeword()”, for your application. Thanks to Jan Kasprzak for reminding me about this problem.<\/i><\/p>\n MIME::Base64, MIME::QuotedPrint, MIME::Tools<\/p>\n For other implementations of this or similar functionality (particularly, ones with proper UTF8<\/small> support), see:<\/p>\n Encode::MIME::Header, MIME::EncWords, MIME::AltWords<\/p>\n At some future point, one of these implementations will likely replace MIME::Words and MIME::Words will become deprecated.<\/p>\n Exports its principle functions by default, in keeping with MIME::Base64 and MIME::QuotedPrint.<\/p>\n Eryq (eryq@zeegee.com<\/i>), ZeeGee Software Inc (http:\/\/www.zeegee.com<\/i>). Dianne Skoll (dfs@roaringpenguin.com) http:\/\/www.roaringpenguin.com<\/p>\n All rights reserved. This program is free software; you can redistribute it and\/or modify it under the same terms as Perl itself.<\/p>\n Thanks also to…<\/p>\n Kent Boortz For providing the idea, and the baseline MIME::Words \u2212 deal with RFC 2047 encoded words <\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[1],"tags":[3007,3741],"class_list":["post-7429","post","type-post","status-publish","format-standard","hentry","category-sin-categoria","tag-man3","tag-mimewords"],"gutentor_comment":0,"_links":{"self":[{"href":"https:\/\/lode.uno\/linux-man\/wp-json\/wp\/v2\/posts\/7429","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/lode.uno\/linux-man\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/lode.uno\/linux-man\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/lode.uno\/linux-man\/wp-json\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/lode.uno\/linux-man\/wp-json\/wp\/v2\/comments?post=7429"}],"version-history":[{"count":0,"href":"https:\/\/lode.uno\/linux-man\/wp-json\/wp\/v2\/posts\/7429\/revisions"}],"wp:attachment":[{"href":"https:\/\/lode.uno\/linux-man\/wp-json\/wp\/v2\/media?parent=7429"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/lode.uno\/linux-man\/wp-json\/wp\/v2\/categories?post=7429"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/lode.uno\/linux-man\/wp-json\/wp\/v2\/tags?post=7429"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}
SYNOPSIS<\/a>
DESCRIPTION<\/a>
PUBLIC INTERFACE<\/a>
SEE ALSO<\/a>
NOTES<\/a>
AUTHOR<\/a> <\/p>\n
\nNAME <\/a> <\/h2>\n
SYNOPSIS <\/a> <\/h2>\n
### Decode the string into another string, forgetting the charsets:
$decoded = decode_mimewords(
‘To: =?ISO\u22128859\u22121?Q?Keld_J=F8rn_Simonsen?=
);
### Split string into array of decoded [DATA,CHARSET] pairs:
@decoded = decode_mimewords(
‘To: =?ISO\u22128859\u22121?Q?Keld_J=F8rn_Simonsen?=
);
### Encode a single unsafe word:
$encoded = encode_mimeword(“xABFranxE7oisxBB”);
### Encode a string, trying to find the unsafe words inside it:
$encoded = encode_mimewords(“Me and xABFranxE7oisxBB in town”);<\/p>\nDESCRIPTION <\/a> <\/h2>\n
To: =?ISO\u22128859\u22121?Q?Keld_J=F8rn_Simonsen?=
CC: =?ISO\u22128859\u22121?Q?Andr=E9_?= Pirard
Subject: =?ISO\u22128859\u22121?B?SWYgeW91IGNhbiByZWFkIHRoaXMgeW8=?=
=?ISO\u22128859\u22122?B?dSB1bmRlcnN0YW5kIHRoZSBleGFtcGxlLg==?=
=?US\u2212ASCII?Q?.._cool!?=<\/p>\n
To: Keld J\/orn Simonsen
CC: Andr’e Pirard
Subject: If you can read this you understand the example… cool!<\/p>\nPUBLIC INTERFACE <\/a> <\/h2>\n
foreach (decode_mimewords($enc)) {
print “”, ($_\u2212>[1] || ‘US\u2212ASCII’), “: “, $_\u2212>[0], “n”;
}<\/p>\n
$encoded = encode_mimeword(“xABFranxE7oisxBB”);<\/p>\n
$encoded = encode_mimewords(“Me and xABFranxE7oisxBB”);<\/p>\n
Charset<\/p>\nSEE ALSO <\/a> <\/h2>\n
NOTES <\/a> <\/h2>\n
AUTHOR <\/a> <\/h2>\n
RFC\u22121522\u2212decoding code!
KJJ at PrimeNet For requesting that this be split into
its own module.
Stephane Barizien For reporting a nasty bug.<\/p>\n
\n","protected":false},"excerpt":{"rendered":"