Re^2: Array searching, grep, first

in reply to Re: Array searching, grep, first
in thread Array searching, grep, first

If you're going to use grep that way, you're doing unnecessary work. Either rewrite that grep as a for loop or use List::Util::first.

my $index;
for ( 0 .. $#csvlist ) {
    if ( $csvlist[$_] =~ /$x/ ) {
        $index = $_;
        last;
    }
}

use List::Util 'first';
my $index = first { $csvlist[$_] =~ /$x/ } 0 .. $#csvlist
[download]

Comment on Re^2: Array searching, grep, first Download Code

Replies are listed 'Best First'.
Re^3: Array searching, grep, first by ChrisR (Hermit) on Sep 01, 2005 at 19:07 UTC
You are quite right. `grep` will search through the entire list on every iteration. `first` is the way to go but your looping through the indexes is more self explanatory.	[reply] [d/l] [select]

In Section Seekers of Perl Wisdom