Beefy Boxes and Bandwidth Generously Provided by pair Networks
No such thing as a small change
 
PerlMonks  

Re: reiterateing over array

by injunjoel (Priest)
on Aug 19, 2008 at 20:55 UTC ( #705341=note: print w/ replies, xml ) Need Help??


in reply to reiterateing over array

Greetings,
Another way to look at this problem is to use grep to simply see if $user[0] is in your @protected list.

open (PROTECTED, "$protected"); @protected = <PROTECTED>; close(PROTECTED); #... not sure where $tag is coming from... if (grep($_ eq $user[0], @protected)){ sock("PRIVMSG $tag:$user[0] Is A Protected User!"); }
However if you are looking for a counter of where in the list $user[0] appears you can add one to your for loop.
my $count = 0; for(@protected){ if($_ eq $user[0]){ sock(...blah blah blah...); last; } $count++; } print("$user[0] was found at ".$count+1." in the list.\n");


-InjunJoel
"I do not feel obliged to believe that the same God who endowed us with sense, reason and intellect has intended us to forego their use." -Galileo


Comment on Re: reiterateing over array
Select or Download Code

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://705341]
help
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (12)
As of 2014-11-24 20:32 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My preferred Perl binaries come from:














    Results (147 votes), past polls