[Dittocat15]

Hi,

I have an array of binary numbers and I'd like to convert that into hex. I know how to do it using the scalar format, but not with any array.

thanks

[Pat Phelan]

You can reference array items something like:

my @a, $line;
@a = <>;
$line = $a[6];
print reverse($line); # print just line 7 backwards

-PatP

[Dittocat15]

Thanks Pat,

I know how to reference an array, but for example:
Have:
@array = 0 1 0 0 1 0 1 0;
Need:
@array = 4A

I don't know how to use the built in functions for hex and binary because I need 4 elements of the array at a time to convert.

[Pat Phelan]

There is probably a quicker way, but you could use:

#  ptp  20040607  Repackage array of bool as a variable

my @a, $val;

@a = (0, 1, 0, 0, 1, 0, 1, 0);

$val = 0;
foreach my $i (@a) { $val = 2 * $val + $i };

print "The value is: $val\n\n";

-PatP

[reneeb]

Originally Posted by Dittocat15

Hi,

I have an array of binary numbers and I'd like to convert that into hex. I know how to do it using the scalar format, but not with any array.

thanks

To get a scalar of the array you can use join (join("",@array)) and the you can convert the scalar!

[senza_nome]

my(@a) = (1, 1, 1, 1, 1, 1, 1, 0);
$a=sprintf "%10lx",oct("0b".join('',@a));
#print $a;

[senza_nome]

Of course if your "binary string" is really long ...

#!\user\bin\perl -w

my(@a)=(1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0,1,0);
print BinToHex(\@a),"\n";

  sub BinToHex{
    my(%h)=('1000'=>'1','0100'=>'2','1100'=>'3','0010'=>'4','1010'=>'5','0110'=>'6','1110'=>'7','0001'=>'8','1001'=>'9','0101'=>'A','1101'=>'B','0011'=>'C','1011'=>'D','0111'=>'E','1111'=>'F'
            ,'1'=>'1',   '01'=>'2', '11'=>'3',  '001'=>'4', '101'=>'5', '011'=>'6', '111'=>'7');
    $_=reverse join('',@{$_[0]});
    s/([01]{1,4})/$h{$1}/g;
    return scalar reverse;
     };