Re: Splitting multiline scalars into different array entries

[Tanalis]

I'm not 100% sure what you need, but assuming you need what I think you need .. :) .., replacing your loop with this works:

foreach my $row (@AoA) {
  my @foo = map { split /\n/ } @$row;

  for( my $i = 0; $i < $#foo; $i += $width ) {
    push @new_rows, [ @foo[ $i .. -1 + $i + $width ] ];
  }
}

This outputs:

$VAR1 = [
          [
            'single',
            'cell',
            'values'
          ],
          [
            'are',
            'really',
            'easy'
          ],
          [
            'but',
            'multiline',
            'stilton'
          ],
          [
            'these',
            'cells',
            'is'
          ],
          [
            'aren\'t',
            'suck',
            'great'
          ],
          [
            'back',
            'to',
            'life'
          ],
          [
            'back',
            'to',
            'reality'
          ],
          [
            'with',
            'more',
            'cells'
          ]
        ];

Any use to you?

[davis]

Sorry, should have provided wanted output. That's what I ended up with on my first try :-) wanted output:
Read more... (1150 Bytes)
Cheers anyway!

[polettix]

So you need to transpose - this thread should help.

[Tanalis]

I'm certain that this isn't the best way, but it works:

foreach my $row (@AoA) {
  my @foo = break_up( $row );

  if( $foo[0] =~ /ARRAY/ ) {
    push @new_rows, @foo;
  } 
  else {
    push @new_rows, [ @foo ];
  }
}

print Dumper(\@new_rows);


sub break_up {
  my $row = shift;
  
  my $uses_newlines = 0;
  $uses_newlines++ if join( "", @$row ) =~ /\n/m;
  
  return @$row unless $uses_newlines;
  
  my @tmp;
  map { push @tmp, [ split /\n/ ] } @$row;
  
  my @row;
  for( my $i = 0; $i <= $#tmp; $i++ ) { 
    for( my $j = 0; $j <= $#tmp; $j++ ) {
      $row[$i][$j] = shift @{$tmp[$j]};
    }
  }
  
  return @row;
}

giving an output of
Read more... (1150 Bytes)

Interesting problem :) What's this for, if I can ask?

[davis]

Yep, that certainly works! Cheers! I'm going with broquaint's solution however.
Interesting problem :) What's this for, if I can ask?
Yeah, sure. I've got to process some (well, lots of) PDF files. I'm converting them to .xls (Excel) format with PDFConverter, then processing the file with Spreadsheet::ParseExcel. Even though PDFConverter's pretty good, it doesn't always cope with some tables, leaving me a mess similar to my example data.