Beefy Boxes and Bandwidth Generously Provided by pair Networks
go ahead... be a heretic
 
PerlMonks  

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

by kschwab (Priest)
on Mar 19, 2013 at 21:30 UTC ( #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; }


Comment on Re: How to generate 64-character length lines in base64?
Download Code
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
Node Status?
node history
Node Type: note [id://1024394]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others pondering the Monastery: (12)
As of 2014-08-29 14:13 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    The best computer themed movie is:











    Results (280 votes), past polls