Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Re^3: Signed Long Hash

by hippo (Canon)
on Jun 15, 2017 at 17:45 UTC ( #1192883=note: print w/replies, xml ) Need Help??


in reply to Re^2: Signed Long Hash
in thread Signed Long Hash

See MIME::Base64 and perhaps pack.

Update: Although I do not receive the same result - are you sure about the input and output?

use strict; use warnings; use MIME::Base64 'encode_base64'; use Test::More tests => 1; is (encode_base64((pack 'q', -281581062704388899), ''), '/Befg+4HJN0') +;

gives '3SQH7oOfF/w=' instead.

Replies are listed 'Best First'.
Re^4: Signed Long Hash
by breezykatt (Acolyte) on Jun 15, 2017 at 18:14 UTC
    Thanks. What I was trying to do was something similar, but this might not yield the same results to what i'm trying to achieve? I thought I had to convert the value to an array of bytes first and then convert that to base64. Something like:

    $signed="-281581062704388899"; $bits = unpack("B*", pack("N", $signed)); $base64 = encode_base64(pack("B*", $bits), ""); #or $base64 = encode_base64($bits);

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (3)
As of 2019-02-17 03:58 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    I use postfix dereferencing ...









    Results (95 votes). Check out past polls.

    Notices?