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
Back to
Seekers of Perl Wisdom