Re: How to divide a line from a text file into 8 digit chunks

Another possibility is

my @array = split m/(.{8})/, $string;
@array = grep length, @array
[download]

Or a bit nicer

push @array, $1 while $str =~ m/(.{1,8})/g;
[download]

TIMTOWTDI (though I personally prefer the unpack solution)

(Update: tested and fixed the solutions)

Comment on Re: How to divide a line from a text file into 8 digit chunks Select or Download Code

Replies are listed 'Best First'.
Re^2: How to divide a line from a text file into 8 digit chunks by ozgurp (Beadle) on Feb 24, 2009 at 09:40 UTC
Hi I tried both unpack and your suggestion, `my @array = split m/(.{8})/, $string;` [download] seems to create a size 11 array with some additional spaces whereas unpack creates a size 6 array. But I am not sure why it does that.	[reply] [d/l]
Re^3: How to divide a line from a text file into 8 digit chunks by moritz (Cardinal) on Feb 24, 2009 at 10:31 UTC
seems to create a size 11 array with some additional spaces This is why I added the line with grep after that.	[reply]
Re^4: How to divide a line from a text file into 8 digit chunks by AnomalousMonk (Archbishop) on Feb 24, 2009 at 14:41 UTC
I agree the `unpack` solution is better, but a regex solution without the `split` complication or `push`-ing would be something like: `>perl -wMstrict -le "my $s = 'GRID 213736 15235.2 -2606.28596.178'; my @ra = $s =~ m{ .{1,8} }xmsg; print qq{:$_:} for @ra; " :GRID : : 213736 : : : :15235.2 : :-2606.28: :596.178:` [download] Update: Did not notice balakrishnan's earlier and essentially identical reply before posting this.	[reply] [d/l] [select]