update: jettero got it:

perl -MMath::BigInt -le 'print Math::BigInt->new(24600988483)->as_hex(
+)'
0x5ba554b43
[download]

_($_=" "x(1<<5)."?\n".q·/)Oo.  G°\        /
                              /\_¯/(q    /
----------------------------  \__(m.====·.(_("always off the crowd"))."·
");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}

The problem is that the number is too big to be represented as a 32 bit integer and your Perl has been compiled to use 32 bit integers.

For positive integers you can use:

use strict;
use warnings;
use bigint;

my $num = 24600988483;
my @parts;

while ($num) {
    unshift @parts, $num & 0xFFFFFFFF;
    $num /= 0x100000000;
}

printf "%x", $_ for @parts;
[download]

Prints:

5ba554b43
[download]

Update: jettero's solution is much cleaner!

Update: Unstruck on advice ;)

But yours is nice too, and clean also. You mustn't be ashamed and strike through :-)

--shmem

_($_=" "x(1<<5)."?\n".q·/)Oo.  G°\        /
                              /\_¯/(q    /
----------------------------  \__(m.====·.(_("always off the crowd"))."·
");sub _{s./.($e="'Itrs `mnsgdq Gdbj O`qkdq")=~y/"-y/#-z/;$e.e && print}

Update: Unstruck on advice ;)

I also agree that it deserved being unstruck. But:

• I would $num >>= 32;
• AIUI from earlier posts by knowledgeable people, the technique is valid for numbers such that the loop will always involve one or at most two iterations of the loop.

Update: s/16/32/ applied above, thanks GF.

I would $num >>= 16;

Both methods have problems on 32-bit systems.

GrandFather's produces the correct result and warnings, but yours gives the wrong result?

print 24600988483 / 2**32;;
5.72786398301832

print 24600988483 / 0x100000000;;
Integer overflow in hexadecimal number at (eval 24) line 1
Hexadecimal number > 0xffffffff non-portable at (eval 24) line 1
5.72786398301832

print 24600988483 >> 16;;
65535
[download]

---

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.

"Science is about questioning the status quo. Questioning authority".

In the absence of evidence, opinion is indistinguishable from prejudice.

"Too many [] have been sedated by an oppressive environment of political correctness and risk aversion."

I guess you'll need to have your perl interpreter compiled to handle 64-bit ints, or maybe use Math::BigInt, or else roll your own logic for handling values from the database that don't fit into 32 bits.

For numbers upto 2**53 (~16 decimal digits), you could use this:

sub hexFromI53{
    my $n = shift;
    my $lo = $n % ( 2**32 );
    my $hi = int( $n / 2**32 );
    return sprintf "%x%08x", $hi, $lo;
};;

print hexFromI53( 24600988483 );;
5ba554b43

print hexFromI53( 9_007_199_254_740_992 );;
20000000000000
[download]