Re: Is there a way around grep?

if (grep {$_ eq $filename} @index_file_names) {
[download]

is basically the same as

my $found;
for (@index_file_names) {
   ++$found  if $_ eq $filename;
}

if ($found) {
[download]

Comment on Re: Is there a way around grep? Select or Download Code

Replies are listed 'Best First'.
Re^2: Is there a way around grep? by suaveant (Parson) on Oct 11, 2011 at 15:53 UTC
Of course, if only looking for a match a good addition would be a `last` to break the loop as soon as a match is found. Or use List::Util::first - Ant - Some of my best work - (1 2 3)	[reply] [d/l]
Re^3: Is there a way around grep? by AnomalousMonk (Archbishop) on Oct 11, 2011 at 22:42 UTC
... or List::MoreUtils::any	[reply]
Re^3: Is there a way around grep? by ikegami (Patriarch) on Oct 15, 2011 at 08:26 UTC
If you're looking for speed, I bet `grep` is normally faster than `for`+`last`.	[reply] [d/l] [select]