Re: Is there a way around grep?

by ikegami (Pope)

on Oct 11, 2011 at 02:35 UTC ( #930730=note: print w/ replies, xml )

Need Help??

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
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 (Prior) on Oct 11, 2011 at 22:42 UTC
... or List::MoreUtils::any	[reply]
Re^3: Is there a way around grep? by ikegami (Pope) 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]

Node Status^?

node history
Node Type: note [id://930730]
help

Chatterbox^?

How do I use this? | Other CB clients

Other Users^?

Others having an uproarious good time at the Monastery: (10)

As of 2013-05-22 22:45 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Voting Booth^?