parsing an array

Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Replies are listed 'Best First'.
Re: parsing an array by moritz (Cardinal) on Oct 10, 2010 at 08:23 UTC
I'd start with maybe stripping the curly braces, and then splitting the string on `/\s,\s/`. Iterating over the result list should give you all the information you need. See also: perlretut, perlintro. Perl 6 - links to (nearly) everything that is Perl 6.	[reply] [d/l]
Re: parsing an array by GrandFather (Saint) on Oct 10, 2010 at 08:31 UTC
Dear OP, I have a problem reading your code. I would like to help, but without some code to read it's rather hard to see where you are having trouble. Thanks in expectation. True laziness is hard work	[reply]
Re: parsing an array by eyepopslikeamosquito (Archbishop) on Oct 10, 2010 at 08:36 UTC
I can't understand your question. Please clarify. See I know what I mean. Why don't you? and How do I post a question effectively?. Also, please provide some context as to why you want to do that and what problem are you trying to solve. Finally, please show us what have you tried so far.	[reply]
Re: parsing an array by LanX (Saint) on Oct 10, 2010 at 11:15 UTC
Unclear! Do you wanna parse a string or do you wanna search within an array? The given code is no perl. Cheers Rolf	[reply]
Re: parsing an array by snape (Pilgrim) on Oct 11, 2010 at 03:18 UTC
The way you have defined the array doesn't looks correct to me. If you are talking about an array `my @array = ("PSTR_0", "PSTR_1", "PSTR_2","PSTR_3","PSTR_4", "PSTW_0 +","PSTW_1","PSTW_2","PSTW_3","PSTW_4", "PWWD_3","PWWD_2","PWWD_1","PWWD_0");` [download] then have a look to my program. I think it will give you what you have asked. `#!/usr/bin/perl use strict; use warnings; my @array = ("PSTR_0", "PSTR_1", "PSTR_2","PSTR_3","PSTR_4", "PSTW_0 +","PSTW_1","PSTW_2","PSTW_3","PSTW_4", "PWWD_3","PWWD_2","PWWD_1","PWWD_0"); my @PSTR = (grep{m/PSTR_\d/}@array); print @PSTR,"\n"; my @PSTW = (grep{m/PSTW_\d/}@array); print @PSTW,"\n"; my @PWWD = (grep{m/PWWD_\d/}@array); print @PWWD,"\n"` [download]	[reply] [d/l] [select]