Beefy Boxes and Bandwidth Generously Provided by pair Networks
Problems? Is your data what you think it is?
 
PerlMonks  

Re: String to two dimensional array

by pc88mxer (Vicar)
on May 06, 2008 at 23:40 UTC ( #685097=note: print w/replies, xml ) Need Help??


in reply to String to two dimensional array

Here's another approach that you might find instructive:
my $text = "0 X X X ..."; my @items = split(' ', $text); my @array; while (@items) { push(@array, [ splice(@items, 0, 8) ]); } pp \@array; use Data::Dumper;
The basic idea is:
  1. Split the input string into an array (@items).
  2. Remove the first 8 elements of @items, create an array ref out of those elements, and push that array ref onto the end of @array
  3. Repeat step 2 until @items is empty.

To make sure you have a full matrix, you can check the length of the last row with:

die "incomplete last row\n" unless (scalar(@{$array[-1]} == 8);

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others taking refuge in the Monastery: (2)
As of 2023-10-01 06:11 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    No recent polls found

    Notices?