Re: long integer to hexadecimal conversion

bigint / Math::BigInt are core modules, and do what you want.

"What should it profit a man, if he should win a flame war, yet lose his cool?"

Comment on Re: long integer to hexadecimal conversion

Replies are listed 'Best First'.
Re^2: long integer to hexadecimal conversion by kikuchiyo (Hermit) on Oct 01, 2009 at 10:58 UTC
I wanted to say the same thing, but I'm late, I guess: `use bigint; my $n = 123456789123456; my ($h, $d); while ($n > 0) { $d = $n % 16; $n /= 16; $h .= sprintf "%x",$d; } print scalar reverse $h;` [download]	[reply] [d/l]
Re^3: long integer to hexadecimal conversion by Joost (Canon) on Oct 01, 2009 at 12:38 UTC
Much simpler: `use bigint; my $n = 123456789123456; print $n->as_hex;` [download] or just `use bigint; print 123456789123456->as_hex` [download] "What should it profit a man, if he should win a flame war, yet lose his cool?"	[reply] [d/l] [select]
Re^4: long integer to hexadecimal conversion by kikuchiyo (Hermit) on Oct 01, 2009 at 12:58 UTC
True. You'd only need my algorithm if you wanted to express the integer in a base other than 16 (or 8). `use bigint; my @digits=map chr,(0x30..0x39,0x41..0x5d); my $base = 22; my $n = 123456789123456; my $h; while($n > 0){ $h .= $digits[ $n % $base ]; $n /= $base; } print scalar reverse $h';` [download] Result is 4E5G93GHBE8.	[reply] [d/l]
Re^4: long integer to hexadecimal conversion by perl_fan (Novice) on Oct 05, 2009 at 07:24 UTC
Super Duper Cool Thanks Joost	[reply]
Re^3: long integer to hexadecimal conversion by perl_fan (Novice) on Oct 05, 2009 at 07:29 UTC
couldn't have been easier than this. Thanks kikuchiyo, you saved my day	[reply]