Signed Long Hash

[breezykatt]

I'm trying to convert a string value into a signed long hash value. By doing so, I first convert the string "abcd" to fnv64a hash value which is "18165163011005162717", using the use Digest::FNV::PurePerl module. Thereafter, I am trying to convert this to a signed long by using the Math::BigInt module and the numify method. However, this doesn't appear to be working. I am looking for the long signed value of "-281581062704388899". Is this possible? Thanks.

[choroba]

Math::BigInt is for arbitrary precision, it doesn't understand boundaries like "signed long".

If your Perl can handle quads in pack, you should be able to just use them, no bigint needed:

#!/usr/bin/perl
use warnings;
use strict;
use feature qw{ say };

my $hash = '18165163011005162717';
my $signed = unpack 'q', pack 'Q', $hash;  # Using 'q' woudl work, too
+.
say $signed eq "-281581062704388899";

[breezykatt]

One follow up question - how does one convert a numeric value (eg -281581062704388899) to base64 in perl similar to java's call:

Base64.getEncoder().withoutPadding().encodeToString(Longs.toByteArray(val));

to get the java base64 encoded string: '/Befg+4HJN0'

[hippo]

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.

[Laurent_R]

Update: Sorry, posted in the wrong place, this was supposed to be an answer to the OP (see below)

[breezykatt]

thanks!

[Laurent_R]

Cross posted on the Perl Guru forum: http://perlguru.com/gforum.cgi?post=84201;sb=post_latest_reply;so=ASC;forum_view=forum_view_collapsed;;page=unread#unread

There is nothing wrong with cross posting questions, but it is advised to inform the reader in order to avoid duplication of work in various parts of the Internet.