Bin 2 Hex

Streen has asked for the wisdom of the Perl Monks concerning the following question:

Hello, I am trying to convert a binary value into an hexadecimal one. I tried serveral ways, but I didn't succeed. I tried sprintf and the pack/unpack... but It didn't work. I have an binary value which is always 19 bits long, and I would like to convert it into an hexvalue. For example: 0000000011100000011 should be converted into 00703. Some suggestions how I can make this? Some of my code snippest, how I tried it:

 
my $hex = sprintf("%x", '0000000011100000011');

or
my $hex = unpack "I", '0000000011100000011';
$hex = sprintf("%x", $hex);
[download]

I also tried several other versions, but none of them worked..
Thanks for help..

Comment on Bin 2 Hex Download Code

Replies are listed 'Best First'.
Re: Bin 2 Hex by tinita (Parson) on Jun 02, 2004 at 13:55 UTC
uhm, what about: `my $hex = sprintf "%05x", oct '0b'.$binary;` see perlfunc (hex, oct, sprintf)	[reply] [d/l]
Re^2: Bin 2 Hex by Streen (Sexton) on Jun 03, 2004 at 08:39 UTC
Oh, thanks a lot... Now I tried to reverse it (hex->bin), how can I make this? Okay this was easier than I thought, it did not function because I had a typo: hex2bin: `my $bin = sprintf "%19b", oct '0x'.$hex;` [download]	[reply] [d/l]