Shell Programming and Scripting

grep  -e ID -e Name -e HexaID | awk '{ print $1"|"$2"|"$3) }'

input:   1|john|5F 
output: 2|Makr|01011111

 
var="5F" #HexID
echo 16 i 2 o $var p|dc

#!/usr/bin/perl

%h2b = (0 => "0000",
1 => "0001", 2 => "0010", 3 => "0011",
4 => "0100", 5 => "0101", 6 => "0110",
7 => "0111", 8 => "1000", 9 => "1001",
a => "1010", b => "1011", c => "1100",
d => "1101", e => "1110", f => "1111"
);

while (<DATA>) {
        chomp;
        @hexfileds=split(/\|/);
                ($binary = $hexfileds[2]) =~ s/(.)/$h2b{lc $1}/g;
                print $binary, "\n";
}
__DATA__
1|john|5F
2|Tom|6FE

awk -F'|' '
        BEGIN {
                A["0"]="0000"
                A["1"]="0001"
                A["2"]="0010"
                A["3"]="0011"
                A["4"]="0100"
                A["5"]="0101"
                A["6"]="0110"
                A["7"]="0111"
                A["8"]="1000"
                A["9"]="1001"
                A["A"]="1010"
                A["B"]="1011"
                A["C"]="1100"
                A["D"]="1101"
                A["E"]="1110"
                A["F"]="1111"
        }
        {
                n = split ( $3, V, "" )
                printf  $1 "|" $2 "|"
                for ( i = 1; i <= n; i++ )
                        printf A[toupper(V[i])]
                printf "\n"
        }
' file

function bits2str(bits, data)
{
    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
}

{
    printf "%s = %s\n", $2, bits2str(sprintf("%d", "0x" $2))
}

John|5D
Mike|6A
Paul|1B

gawk --non-decimal-data -F"|" -f awkscript infile
5D = 01011101
6A = 01101010
1B = 00011011