Help for this page

Select Code to Download


  1. or download this
    sub encode_BCD {
    return pack 'H*', join '', @_
}
  2. or download this
    -1,234,56
0001 0010 0011 0100 0101 0110 0111 1101
...
$ perl -le " print join q/ /, unpack q/(A4)*/, unpack q/B*/, pack q/H*
+/, q/1234567-/ "
0001 0010 0011 0100 0101 0110 0111 1101