Beefy Boxes and Bandwidth Generously Provided by pair Networks
Clear questions and runnable code
get the best and fastest answer
 
PerlMonks  

Re^2: unpack into arrayrefs?

by Anonymous Monk
on Feb 22, 2022 at 19:30 UTC ( #11141559=note: print w/replies, xml ) Need Help??


in reply to Re: unpack into arrayrefs?
in thread unpack into arrayrefs?

That is a nice approach.

I was in a hurry, so went for a quick substr approach:

push @a, [ unpack "CCSS", substr($data, $_ * 6, 6) ] for 0..(length($data) / 6 - 1);

Had an off-by-one error at first though. Perl doesn't seem to have a range operator that goes up to n-1, like Ruby does? (0..5 loops from 0 to 5 but 0...5 loops from 0 to 4 in Ruby)

Replies are listed 'Best First'.
Re^3: unpack into arrayrefs?
by hippo (Bishop) on Feb 22, 2022 at 21:11 UTC

    Perl is smart enough not to need one:

    push @a, [ unpack 'CCSS', substr $data, 0, 6, '' ] while length $data;

    🦛

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others chilling in the Monastery: (4)
As of 2022-11-30 17:59 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Notices?