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

Ah yes, it seems I missed the transposition.
use Algorithm::Loops 'MapCar'; my @results = map { grep(/\n/,@$_) ? MapCar {[@_]} map([split "\n"], @$_) : $_ } @AoA;
And to be sure:
use Test::More tests => 1; my @AoA = ( [qw/single cell values/], [qw/are really easy/], [ "but\nmultiline\nstilton", "these\ncells\nis", "aren't\nsuck\ngreat" ], [qw/back to life/], [qw/back to reality with more cells/] ); my $desired = [ [ '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' ] ]; use Algorithm::Loops 'MapCar'; my @results = map { grep(/\n/,@$_) ? MapCar {[@_]} map([split "\n"], @$_) : $_ } @AoA; is_deeply \@results, $desired, "The arrays match!";
HTH

_________
broquaint

Replies are listed 'Best First'.
Re^4: Splitting multiline scalars into different array entries
by davis (Vicar) on Aug 05, 2005 at 11:29 UTC
    broquaint: Thank you very much. I had just seen frodo's link, and was struggling with MapCar myself. That's exactly what I was after.

    davis
    Kids, you tried your hardest, and you failed miserably. The lesson is: Never try.
Re^4: Splitting multiline scalars into different array entries
by Anonymous Monk on May 15, 2012 at 05:40 UTC
    i wanna split a file which has 3 char and all 21 values in a single line ie each char has 7 values.so i need to split it as 7 in each line by input file.