http://qs321.pair.com?node_id=481189


in reply to Splitting multiline scalars into different array entries

use Data::Dumper;

## your @AoA here ...

my @results = map {
  grep(/\n/, @$_)
    ? map([split "\n"], @$_)
    : $_
} @AoA;

print Dumper( \@results );

[download]
If you want to update the original data just change the my @results = to @AoA =. Also you could use Scalar::Util::first there instead of grep if you're looking for an optimal solution.
HTH

_________
broquaint

Replies are listed 'Best First'.
Re^2: Splitting multiline scalars into different array entries
by davis (Vicar) on Aug 05, 2005 at 11:15 UTC
    Hmmm... that was my first result. See my desired output. Thanks anyway!

    davis
    Kids, you tried your hardest, and you failed miserably. The lesson is: Never try.
[reply]
      Ah yes, it seems I missed the transposition. 
      use Algorithm::Loops 'MapCar';

my @results = map {
  grep(/\n/,@$_)
    ? MapCar {[@_]} map([split "\n"], @$_)
    : $_
} @AoA;

      [download]
      And to be sure:
      Read more... (1342 Bytes)
      HTH

      _________
      broquaint

[reply]
[d/l]
[select]
        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.
[reply]
        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.
[reply]

In Section Seekers of Perl Wisdom