http://qs1969.pair.com?node_id=481195


in reply to Re^2: Splitting multiline scalars into different array entries
in thread Splitting multiline scalars into different array entries

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;
}

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

[download]

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

-- Foxcub
#include www.liquidfusion.org.uk

Replies are listed 'Best First'.
Re^4: Splitting multiline scalars into different array entries
by davis (Vicar) on Aug 05, 2005 at 11:34 UTC
    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.

    davis
    Kids, you tried your hardest, and you failed miserably. The lesson is: Never try.
[reply]

In Section Seekers of Perl Wisdom