Re: unpack into arrayrefs?


No such thing as a small change
	PerlMonks

Re: unpack into arrayrefs?

by Fletch (Bishop)

on Feb 22, 2022 at 16:23 UTC ( [id://11141550]=note: print w/replies, xml )

Need Help??

in reply to unpack into arrayrefs?

Perhaps List::MoreUtils natatime?

use 5.034;
use List::MoreUtils qw( natatime );
use YAML::XS qw( Dump );

my $data = pack("H*", "0000230ebb0000002b0ece000000330ee200");

my @vals = unpack("(CCSS)*", $data);
my $it = natatime 4, @vals;
my @grouped;
while( my @cur = $it->() ) {
  push @grouped, [ @cur ];
}

say Dump( \@grouped );
__END__
$ perl fooble.plx
---
- - 0
  - 0
  - 3619
  - 187
- - 0
  - 0
  - 3627
  - 206
- - 0
  - 0
  - 3635
  - 226
[download]

The cake is a lie.
The cake is a lie.
The cake is a lie.