Re: lsearch for perl?

$found = 0;
@list = grep { $item ne $_ || $found++ } @list;
[download]

my ($index) = grep { $item eq $list[$_] } 0..$#list;
splice(@list, $index, 1) if defined $index;
[download]

use List::Util qw( first );
my $index = first { $item eq $list[$_] } 0..$#list;
splice(@list, $index, 1) if defined $index;
[download]

Update: Tested. Fixed flawed grep rule.

Comment on Re: lsearch for perl? Select or Download Code

Replies are listed 'Best First'.
Re^2: lsearch for perl? by shenme (Priest) on Dec 05, 2005 at 17:50 UTC
or `use List::MoreUtils qw( first_index ); my $index = first_index { $item eq $_ } @list; # Returns -1 if no such item could be found.` [download]	[reply] [d/l]
Re^2: lsearch for perl? by matt.tovey (Beadle) on Dec 06, 2005 at 08:52 UTC
Thanks to all for your replies - they were all very helpful. Things like this `@list = grep { $item ne $_ } @list;` [download] aren't in the man-page, and got me thinking. This however: `my ($index) = grep { $item eq $list[$_] } 0..$#list; splice(@list, $index, 1) if defined $index;` [download] was a real satori, Keanu-Reeves-like "Whoah!!" moment for me. The idea of using grep on a list without naming _that_ list as the argument to grep would never have occurred to me. Guess I was stuck in Unix grep thinking! Feeling quite humbled.	[reply] [d/l] [select]
Re^3: lsearch for perl? by ikegami (Patriarch) on Dec 06, 2005 at 15:33 UTC
Things like this aren't in the man-page `grep` accepts any code in the block. It doesn't have to be a regex. `grep` is useful for filtering out items from a list, while `map` is useful for transforming a list. The idea of using grep on a list without naming _that_ list as the argument to grep would never have occurred to me. It's an concept I picked up on PerlMonks too :)	[reply] [d/l] [select]