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.
And to be sure:use Algorithm::Loops 'MapCar'; my @results = map { grep(/\n/,@$_) ? MapCar {[@_]} map([split "\n"], @$_) : $_ } @AoA;
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 | |
Re^4: Splitting multiline scalars into different array entries
by Anonymous Monk on May 15, 2012 at 05:40 UTC |
In Section
Seekers of Perl Wisdom