awohid:

Have you tried "%010u" instead of "%010d"?

...roboticus

When your only tool is a hammer, all problems look like your thumb.

To clarify:

In the first place, the conversions given are incorrect. According to the Calculator app that comes with Windows Vista, A100 0000 (hexadecimal) is 2,701,131,776 (decimal). Conversely, 270,113,177,609,606,898 (decimal), which the OP was expecting, is actually 3BF A281 0092 96F2 (hexadecimal).

Next, sprintf("%u", 0x3BFA281009296F2) gives the correct answer on a 64int perl build, but on a 32int build it results in:

Integer overflow in hexadecimal number at ...
[download]

Yet even on a 64int build, which handles the command without overflow, use warnings produces:

Hexadecimal number > 0xffffffff non-portable at ...
[download]

All of which is a good indication that the OP’s idea to use Math::BigInt was the correct one.

But Math::BigInt is a class, so its ‘numbers’ are actually objects, which should be operated-on by methods. So:

#! perl
use strict;
use warnings;
use Math::BigInt;

my $n = Math::BigInt->new('0x3BFA281009296F2');
print $n->as_hex(), ' = ', $n->bstr(), "\n";
[download]

Output:

0x3bfa281009296f2 = 270113177609606898
[download]

which is portable and robust.

Okay, so what I ended up doing was:

my $n = Math::BigInt->new('0x3BFA281009296F2');
my $manufacturer = sprintf("%010s", $n->bstr );
[download]

I uploaded the revised module and hopefully this time it passes on all systems.

Thanks for the help!

Curiously, this works, too:

my $n = Math::BigInt->new('0x3BFA281009296F2');
my $manufacturer = sprintf "%010s", $n;
[download]

So the temp variable $n can be eliminated:

my $manufacturer
    = sprintf "%010s", Math::BigInt->new('0x3BFA281009296F2');
[download]

I didn't test this on multiple platforms. I'm only pointing it out because I noticed an allusion to it in the Math::BigInt documentation.

Jim