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

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

Replies are listed 'Best First'.
Re: How to divide a line from a text file into 8 digit chunks by BrowserUk (Patriarch) on Feb 24, 2009 at 09:14 UTC
Take a look at unpack: `my @array = unpack '(a8)*', 'GRID 213736 15235.2 -2606.285 +96.178';; print for @array;; GRID 213736 15235.2 -2606.28 596.178` [download] 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. "Too many [] have been sedated by an oppressive environment of political correctness and risk aversion."	[reply] [d/l]
Re: How to divide a line from a text file into 8 digit chunks by moritz (Cardinal) on Feb 24, 2009 at 09:18 UTC
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)	[reply] [d/l] [select]
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
Re: How to divide a line from a text file into 8 digit chunks by balakrishnan (Monk) on Feb 24, 2009 at 10:40 UTC
You might be the interested in the following. `open FH,"./input.txt"; while(<FH>) { @arr = ($_ =~ m/.{1,8}/g); print join "***\n",@arr; }` [download]	[reply] [d/l]
Re: How to divide a line from a text file into 8 digit chunks by Anonymous Monk on Feb 24, 2009 at 11:59 UTC
This looks like a fixed field length line cut. The $array[2] line is missing, I am assuming a typo. Hows about the inelegant `cat text \| perl -ne 'chomp ; foreach $i(0..length($_)%7) {$x[$i]=substr($_,$i*8,8)}; foreach $i(0..length($_)%7) {print "\$array[$i]",$x[$i], +"<\n"}'` [download] with Perl v5.8.1 on text that contains .. GRID 213736 15235.2 -2606.28596.178 `$array[0]GRID < $array[1] 213736 < $array[2] < $array[3]15235.2 < $array[4]-2606.28< $array[5]596.178<` [download] Gannett	[reply] [d/l] [select]
Re: How to divide a line from a text file into 8 digit chunks by Anonymous Monk on Feb 24, 2009 at 11:53 UTC
The `$array[2]` line is missing, I am assuming a typo. Hows about the inelegant This looks like a fixed field length line cut `cat text \| perl -ne 'chomp ; foreach $i(0..length($_)%7) {$x[$i]=substr($_,$i*8,8)}; foreach $i(0..length($_)%7) {print "\$array[$i]",$x[$i], +"<\n"}'` [download] with Perl v5.8.1 on text that contains .. `GRID 213736 15235.2 -2606.28596.178` [download] `$array[0]GRID < $array[1] 213736 < $array[2] < $array[3]15235.2 < $array[4]-2606.28< $array[5]596.178<` [download] Gannett	[reply] [d/l] [select]