Re^3: using shift and $

If I'm reading this correctly, you want @A as the elements of @a that pass the is_name(x) test?

@A = grep { is_name($_) } @a;
[download]

perldoc -f grep is your friend.

Update: I just noticed the uc() you used. In that case:

@A = map { uc($_) } grep { is_name($_) } @a;
[download]

perldoc -f map is also your friend.

Comment on Re^3: using shift and $_ in loop Select or Download Code

Replies are listed 'Best First'.
Re^4: using shift and $_ in loop by moritz (Cardinal) on Oct 21, 2009 at 16:13 UTC
Both of your examples use the return value of `is_name($_)` only for truth testing, but it should (after applying uc) be assembled in the result array, at least that's what the OP's example does (don't know if it makes sense) Perl 6 - links to (nearly) everything that is Perl 6.	[reply] [d/l]
Re^5: using shift and $_ in loop by keszler (Priest) on Oct 21, 2009 at 17:57 UTC
Very good point, sir. I was assuming that is_name() returned the parameter given, or a false value. But you are correct: it could be altering/enhancing the parameter or returning anything else. Thus: `@A = map { uc(is_name($_)) } grep { is_name($_) } @a;` [download]	[reply] [d/l]
Re^6: using shift and $_ in loop by leocharre (Priest) on Oct 21, 2009 at 20:20 UTC
It does return the parameter given. If what was desired were simply to filter out elements and return selections, some grep procedure would be perfect for this, as you show in your examples. What I am wanting to do is something that's probably wrong to even try and do. I want to grab @_, iterate with shift- some elements will be discarded, elements not discarded will be changed into something completely different- and returned. I was fantasizing of even using the @_ list to return as well.	[reply]