Beefy Boxes and Bandwidth Generously Provided by pair Networks
Think about Loose Coupling

Re: 3-byte representation

by cavac (Deacon)
on Oct 12, 2011 at 16:38 UTC ( #931055=note: print w/replies, xml ) Need Help??

in reply to 3-byte representation

Edit: Ooops, my code only works for unsigned integers. I'll leave it here anyway, might at least come in handy for someone else at a later time... Ok, Here's a simple example of how i did it as a test:
#!/usr/bin/perl use strict; use warnings; my $val = 70000; print "Saving Value: $val\n"; # ENCODE my @bytes; for(my $i = 0; $i < 3; $i++) { $bytes[$i] = $val % 256; if($val) { $val = int($val / 256); } } my $savebytes = pack("ccc", @bytes); # DECODE my @newbytes = unpack("ccc", $savebytes); my $newval = 0; while(scalar @newbytes) { my $byte = pop @newbytes; $newval = $newval * 256; $newval += $byte; } print "Retrieved Value is: $newval\n";

Here's the output:
Saving Value: 70000 Retrieved Value is: 70000
I'm pretty sure there is a better way, but i'm not an expert on all this math stuff... Edit: If you have a lot of numbers to encode/decode, you might want to consider putting that stuff into a C module or use Inline::C for speed.
Don't use '#ff0000':
use Acme::AutoColor; my $redcolor = RED();
All colors subject to change without notice.

Log In?

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://931055]
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (5)
As of 2017-11-24 04:22 GMT
Find Nodes?
    Voting Booth?
    In order to be able to say "I know Perl", you must have:

    Results (344 votes). Check out past polls.