diff options
Diffstat (limited to 'pod/perlfaq9.pod')
| -rw-r--r-- | pod/perlfaq9.pod | 13 |
1 files changed, 9 insertions, 4 deletions
diff --git a/pod/perlfaq9.pod b/pod/perlfaq9.pod index d234cf43a9..2609c4482e 100644 --- a/pod/perlfaq9.pod +++ b/pod/perlfaq9.pod @@ -388,13 +388,18 @@ with the characters reversed, one added or subtracted to each digit, etc. =head2 How do I decode a MIME/BASE64 string? -The MIME-tools package (available from CPAN) handles this and a lot -more. Decoding BASE64 becomes as simple as: +The MIME-Base64 package (available from CPAN) handles this as well as +the MIME/QP encoding. Decoding BASE64 becomes as simple as: - use MIME::base64; + use MIME::Base64; $decoded = decode_base64($encoded); -A more direct approach is to use the unpack() function's "u" +The MIME-Tools package (available from CPAN) support exctraction with +decoding of BASE64 encoded attachments and content directly from email +messages. + +If the string to decode is short (less than 84 bytes long) +a more direct approach is to use the unpack() function's "u" format after minor transliterations: tr#A-Za-z0-9+/##cd; # remove non-base64 chars |