Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl: the Markov chain saw
 
PerlMonks  

Re: Binary Coded Decimal

by Anonymous Monk
on Sep 18, 2012 at 01:44 UTC ( #994166=note: print w/ replies, xml ) Need Help??

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
    

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://994166]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others surveying the Monastery: (7)
As of 2015-02-02 02:14 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    On my keyboard, Caps lock is:








    Results (17 votes), past polls