valavanp has asked for the wisdom of the Perl Monks concerning the following question:
I need to extract 2 arrays from a string.
The input string is:
A: Gold, Black, Purple, Blue, Red B: Black, Neon Pink, Neon Yellow, Neon Green, Neon Purple, Red, White, Neon Orange, Navy
The output which i should get is:
Array A: Gold, Black, Purple, Blue, Red
Array B; Black, Neon Pink, Neon Yellow, Neon Green, Purple, Red, White, Neon Orange, Navy
The code which i tried is this:
I am getting the result like this:use strict; use warnings; $| = 0; my $str="A: Gold, Black, Purple, Blue, Red B: Black, Neon Pink, Ne +on Yellow, Neon Green, Neon Purple, Red, White, Neon Orange, Navy"; my @arrayA; my @arrayB; map {push @{(\@arrayA, \@arrayB)[--$|]}, split /,/} split /\s+/, $str; print "Array A:@arrayA\n"; print "Array B: @arrayB";
Which is not correct. Thanks monks for all your suggestions and help.Array A:Gold Purple Red Black Pink Yellow Green Purple White Orange Array B: A: Black Blue B: Neon Neon Neon Neon Red Neon Navy
|
---|
Replies are listed 'Best First'. | |
---|---|
Re: string manipulations.
by davido (Cardinal) on Nov 23, 2006 at 08:26 UTC | |
by valavanp (Curate) on Nov 23, 2006 at 09:52 UTC | |
by davido (Cardinal) on Nov 23, 2006 at 16:21 UTC | |
Re: string manipulations.
by jwkrahn (Abbot) on Nov 23, 2006 at 08:34 UTC | |
Re: string manipulations.
by holli (Abbot) on Nov 23, 2006 at 08:32 UTC | |
Re: string manipulations.
by GrandFather (Saint) on Nov 23, 2006 at 10:05 UTC |
Back to
Seekers of Perl Wisdom