Beefy Boxes and Bandwidth Generously Provided by pair Networks
There's more than one way to do things
 
PerlMonks  

Re: Unpacking variable length bit fields

by Limbic~Region (Chancellor)
on Jun 18, 2012 at 20:36 UTC ( #976892=note: print w/replies, xml ) Need Help??


in reply to Unpacking variable length bit fields

puterboy,
Assuming this data is in a string, I would do something like:
my $skip = 0; while ($skip < length($str)) { my ($f1_len, $f2_len, $f3_len) = unpack("x${skip}aaa", $str); $skip += 3; my $field1 = unpack("x${skip}a$f1_len", $str); $skip += $f1_len; # etc }

This is like using seek which is exactly what you were trying to avoid (iteratively calling pack) but if wrapped in the proper abstraction can be very clean.

Update: After reading BrowserUk's response and re-reading your post, I realize I incorrectly assumed you had multiple records in the string - each one with variable length fields. Please ignore me.

Cheers - L~R

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://976892]
help
Chatterbox?
[Eily]: what, not a Bishop t-shirt ?
[holli]: a pope t-shirt? are the words "fuck the" printed on it?
[Eily]: ...
[Eily]: I just realized that there's an onion in your eye
[marto]: bishop t-shirt?
LanX zooming holli s picture seeking onion
[holli]: Oh, seems like LanX' team has won the fourth World Cup ... awesome!
LanX grins
[marto]: anyway, don't come to Glasgow for the football :)
[holli]: the hell? i have a scriptblocker on.

How do I use this? | Other CB clients
Other Users?
Others about the Monastery: (13)
As of 2017-12-14 16:10 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    What programming language do you hate the most?




















    Results (398 votes). Check out past polls.

    Notices?