Shell Programming and Scripting

WS-2 23 345 235
DT-3 45 4A3 000
pp-2 76 300 E4

WS-2 100011 1101000101 1000110101
DT-3 1000101 10010100011 000
pp-2 1110110 1100000000 11100100

#!/bin/bash
#obase.shl - convert to binary from hex
while read rec
do
a=( $rec)
 (echo ${a[0]}
  echo "ibase=16; obase=2; ${a[1]}"  | bc -l
  echo "ibase=16; obase=2; ${a[2]}"  | bc -l) | tr -s  '\n' ' '
  echo "ibase=16; obase=2; ${a[3]}"  | bc -l 
done < infile

$ ./obase.shl
WS-2 100011 1101000101 1000110101
DT-3 1000101 10010100011 0
pp-2 1110110 1100000000 11100100

$

awk  '
 
function bits2str(bits,        data, mask)
     {
         if (bits == 0)
             return "0"
     
         mask = 1
         for (; bits != 0; bits = rshift(bits, 1))
             data = (and(bits, mask) ? "1" : "0") data
     
         while ((length(data) % 8) != 0)
             data = "0" data
     
         return data
     }
     
     {for(i=2;i<=NF;i++)$i = bits2str(strtonum("0x"$i))}1' file

( echo ibase=16\; obase=2; awk '$1 = "\""$1"\n\""' OFS=\; file ) | bc | paste - - - -