Help for this page
$found = 0; @list = grep { $item ne $_ || $found++ } @list;
my ($index) = grep { $item eq $list[$_] } 0..$#list; splice(@list, $index, 1) if defined $index;
use List::Util qw( first ); my $index = first { $item eq $list[$_] } 0..$#list; splice(@list, $index, 1) if defined $index;
use strict; use warnings; ... print("\n\n"); print("The XS versions of List::Util and List::MoreUtils were used.\n" +);
Verify: ... The XS versions of List::Util and List::MoreUtils were used.
www.com | www.net | www.org
No recent polls found