Skip to content

Commit

Permalink
Base64 update to perlfaq9.pod
Browse files Browse the repository at this point in the history
Message-ID: <lrlmpg9x6v.fsf@caliper.ActiveState.com>

p4raw-id: //depot/perl@9555
  • Loading branch information
gisle authored and jhi committed Apr 5, 2001
1 parent 431e783 commit 6a0af2f
Showing 1 changed file with 9 additions and 4 deletions.
13 changes: 9 additions & 4 deletions pod/perlfaq9.pod
Expand Up @@ -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
Expand Down

0 comments on commit 6a0af2f

Please sign in to comment.