How can one decompose a string into an array of 8 character blocks?

tkguifan has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: How can one decompose a string into an array of 8 character blocks? by ikegami (Patriarch) on Feb 03, 2015 at 14:03 UTC
`unpack '(a8)*', $str # Supports incomplete blocks $str =~ /.{8}/sg $str =~ /.{1,8}/sg # Supports incomplete blocks` [download]	[reply] [d/l]
Re: How can one decompose a string into an array of 8 character blocks? by choroba (Cardinal) on Feb 03, 2015 at 14:05 UTC
TIMTOWTDI: `my @array = grep length, split /(.{8})/, $input;` [download] لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ	[reply] [d/l]
Re^2: How can one decompose a string into an array of 8 character blocks? by LanX (Saint) on Feb 03, 2015 at 14:12 UTC
Can't test, but `my @array = $input =~ /(.{8})/g;` looks easier... Cheers Rolf PS: Je suis Charlie!	[reply] [d/l]
Re^3: How can one decompose a string into an array of 8 character blocks? by choroba (Cardinal) on Feb 03, 2015 at 14:14 UTC
You are right. You can even further simplify it to `my @array = $input =~ /.{8}/g;` [download] لսႽ† ᥲᥒ⚪⟊Ⴙᘓᖇ Ꮅᘓᖇ⎱ Ⴙᥲ𝇋ƙᘓᖇ	[reply] [d/l]
Re^4: How can one decompose a string into an array of 8 character blocks? by LanX (Saint) on Feb 03, 2015 at 14:26 UTC
Re: How can one decompose a string into an array of 8 character blocks? by Discipulus (Canon) on Feb 04, 2015 at 10:13 UTC
TIMToady using core module Text::Wrap: `#!/usr/bin/perl use strict; use warnings; use Data::Dumper; use Text::Wrap qw(wrap $columns $huge); $columns = 8; # Wrap at 8 characters my @array; while (<DATA>){push @array, wrap('', '', $_);} print Dumper (\@array) __DATA__ rnbqkbnrpppppppp PPPPPPPPRNBQKBNR` [download] HtH L* There are no rules, there are no thumbs.. Reinvent the wheel, then learn The Wheel; may be one day you reinvent one of THE WHEELS.	[reply] [d/l]