From: Gisle Aas Date: Wed, 4 Apr 2001 14:23:04 +0000 (-0700) Subject: Base64 update to perlfaq9.pod X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6a0af2f17bcde4767b90a72eff7083c5effff21d;p=p5sagit%2Fp5-mst-13.2.git Base64 update to perlfaq9.pod Message-ID: p4raw-id: //depot/perl@9555 --- diff --git a/pod/perlfaq9.pod b/pod/perlfaq9.pod index d234cf4..2609c44 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