Don't ask to ask, just ask | |
PerlMonks |
comment on |
( [id://3333]=superdoc: print w/replies, xml ) | Need Help?? |
On the basis of the code you have posted, you are making really hard work of parsing those files. Commensurate with refining the templates for records 1 & 2 which you haven't fully described, something like this would read the entire thing:
Note also, that on recent versions of Perl (since 5.10), unpack can deal with little/big-endian issues for you. Say your type 2 records contain 2 big-endian floats; followed by 2 little-endian int32s and then 2 big-endian int32s: Use a template of:'f>2 l<2 l>2' With the rise and rise of 'Social' network sites: 'Computers are making people easier to use everyday'
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.
In reply to Re: Missing byte using unpack, pack, read(in terms of bytes)
by BrowserUk
|
|