Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change

Re: Pack decimal possibility

by BrowserUk (Patriarch)
on May 26, 2010 at 21:35 UTC ( #841829=note: print w/replies, xml ) Need Help??

in reply to Pack decimal possibility

pack doesn't support this directly. This will do the job, though it can probably be made significantly more efficient:

sub toComp3{ my $num = shift; my @digits = split'',abs $num; unshift @digits, 0 unless @digits & 1; push @digits, $num < 0 ? 13: 12; my $comp3 = ''; $comp3 .= chr( shift( @digits ) * 16 + shift( @dig +its ) ) while @digits; return $comp3 } print unpack 'H*', toComp3( 240 );; 240c

It also doesn't cover unsigned numbers. Though a flag to indicate signed-ness could be added.

Examine what is said, not who speaks -- Silence betokens consent -- Love the truth but pardon error.
"Science is about questioning the status quo. Questioning authority".
In the absence of evidence, opinion is indistinguishable from prejudice.

Log In?

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

How do I use this? | Other CB clients
Other Users?
Others rifling through the Monastery: (2)
As of 2022-11-27 16:16 GMT
Find Nodes?
    Voting Booth?