Beefy Boxes and Bandwidth Generously Provided by pair Networks
Pathologically Eclectic Rubbish Lister
 
PerlMonks  

Re: Foreach loop

by Marshall (Prior)
on Sep 27, 2013 at 11:37 UTC ( #1055969=note: print w/ replies, xml ) Need Help??


in reply to Foreach loop

Update: Op tells me that he wants index of the "1"
Here is one way to do that...added to previous code that only reports existence of a "one"

#!/usr/bin/perl -w use strict; use List::Util (qw/first/); #a core function in all Perl's use List::MoreUtils (qw/first_index/); #not core but a common module #first{} stops at the first occurrence, slightly faster than grep{} #first_index() reports index of {block} while (my $line = <DATA>) { my @array = split /\s+/, $line; print "A One is in: $line" if (first {$_ == 1}@array); my $index = first_index{$_ == 1}@array; print "index of the One=\[$index\]\n" if $index >-1; } =output A One is in: 5 10 14 16 17 20 25 26 38 1 42 47 54 index of the One=[9] A One is in: 5 1 index of the One=[1] A One is in: 1 2342 index of the One=[0] =cut __DATA__ 5 10 14 16 17 20 25 26 38 1 42 47 54 5 10 14 16 17 20 25 26 38 42 47 54 5 1 4 10 1 2342 34 55


Comment on Re: Foreach loop
Download Code

Log In?
Username:
Password:

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

How do I use this? | Other CB clients
Other Users?
Others meditating upon the Monastery: (8)
As of 2014-07-31 11:51 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    My favorite superfluous repetitious redundant duplicative phrase is:









    Results (248 votes), past polls