Re: Is there a way around grep?

by ikegami (Patriarch)

on Oct 11, 2011 at 02:35 UTC ( [id://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

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]

Domain Nodelet^?

Node Status^?

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

Chatterbox^?

How do I use this? • Last hour • Other CB clients

Other Users^?

Others surveying the Monastery: (2)

As of 2024-04-20 04:51 GMT

Sections^?

Information^?

Find Nodes^?

Leftovers^?

Voting Booth^?

No recent polls found