[EMAIL PROTECTED] wrote:
Hello Everyone,
Hello,
I am a Perl newbie trying to learn as much Perl as I can. I am trying to
combine specific array elements into one single array element so that I can
write
to an Excel cell, where all the data will fit.
For instance I have,
array[0] = F1: blue;
array[1] = F2: green;
array[2] = F3: red;
array[3] = F1: purple;
array[4] = F2: brown;
array[4] = F1: red;
array[5] = F2: pink;
array[6] = F3: blue;
array[7] = F4: white;
With the above information, I want to put all the F's in order before it
starts over at 1 again. For instance, I want to store array[0], array[1],
and array[2] into a specific array element and then store array[3], array[4]
into another specific array element, then I start over again with array[5].
Each time I encounter an F1, I will store all the particular elements into
one single array element. Is this possible?
Is this what you want?
$ perl -le'
use Data::Dumper;
@array = ( F1: blue,
F2: green,
F3: red,
F1: purple,
F2: brown,
F1: red,
F2: pink,
F3: blue,
F4: white );
my ( $index, @new ) = -1;
push @{ $new[ /^F1:/ ? ++$index : $index ] }, $_ for @array;
print Dumper [EMAIL PROTECTED];
'
$VAR1 = [
[
'F1: blue',
'F2: green',
'F3: red'
],
[
'F1: purple',
'F2: brown'
],
[
'F1: red',
'F2: pink',
'F3: blue',
'F4: white'
]
];
John
--
use Perl;
program
fulfillment
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
http://learn.perl.org/ http://learn.perl.org/first-response