Beefy Boxes and Bandwidth Generously Provided by pair Networks
Just another Perl shrine
 
PerlMonks  

Re: How to generate 64-character length lines in base64?

by kschwab (Vicar)
on Mar 19, 2013 at 21:30 UTC ( [id://1024394]=note: print w/replies, xml ) Need Help??


in reply to How to generate 64-character length lines in base64?

MIME::Base64 is a very small module, and the encode method is particularly small, since pack() does most of the work. They use pack to create a uuencoded string, then tr// to translate from the uuencode charset to the Base64 charset: Copying the source, then, with a few minor modifications
sub b6464 { my $orig=shift; my $string = pack("u",$orig); $string =~ s/^.//mg; $string =~ s/\n//g; # use tr to translate from UUE to Base64 $string =~ tr|` -_|AA-Za-z0-9+/|; # fix padding at the end my $padding = (3 - length($orig) % 3) % 3; $string =~ s/.{$padding}$/'=' x $padding/e if $padding; # break string into lines of 64 chars or less $string =~ s/(.{1,64})/$1\n/g; return $string; }

Replies are listed 'Best First'.
Re^2: How to generate 64-character length lines in base64?
by rmichael (Initiate) on Apr 03, 2013 at 11:46 UTC

    I've got a bit of time now, and am looking at this again.

    Thank you for your help!

Re^2: How to generate 64-character length lines in base64?
by rmichael (Initiate) on Apr 03, 2013 at 12:58 UTC
        Super, thanks again.

Log In?
Username:
Password:

What's my password?
Create A New User
Domain Nodelet?
Node Status?
node history
Node Type: note [id://1024394]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this?Last hourOther CB clients
Other Users?
Others making s'mores by the fire in the courtyard of the Monastery: (4)
As of 2024-03-29 09:15 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found