Warum gibt mein Perl Grep nicht das erste Spiel zurück?

Question

Das folgende Snippet sucht nach dem Index des ersten Auftretens eines Wertes in einem Array. Wenn die Klammern um $ index jedoch entfernt werden, funktioniert es nicht korrekt. Was mache ich falsch?

my ($index) = grep { $array[$_] eq $search_for } 0..$#array; 

Answer 1

Die Klammern ändern Sie den Kontext, in dem die grep aus Skalarkontext ausgewertet Kontext aufzulisten. Im skalaren Kontext gibt grep die Anzahl zurück, wie oft der Ausdruck wahr war. Im Listenkontext werden die Elemente zurückgegeben, für die der Ausdruck wahr war.

Folgende Highlights der Unterschied Kontext macht:

my $x = grep {/foo/} @array; # the number of things that match /foo/ 
my ($x) = grep {/foo/} @array; # the first thing that matches /foo/ 
my @foo = grep {/foo/} @array; # all the things that match /foo/ 
my (@foo) = grep {/foo/} @array; # all the things that match /foo/ 

Answer 2

grep eine Liste zurückgibt. Wenn Sie den Skalarvariablennamen in Klammern setzen, behandelt Perl den gesamten l-Wert als Liste, sodass er der Variablen den ersten Wert in der Liste zuweist.

Wenn Sie andere Skalare in den Klammern hatte, dann würden Sie die zweite bekommen, dritten, etc. Werte von grep ‚s return array in ihnen:

my ($index, $foo, $bar) = grep { $array[$_] eq $search_for } 0..$#array; 

Answer 3

Die Klammern stellen eine list context für grep. grep gibt dann tatsächlich die Liste der Elemente zurück, für die der Ausdruck wahr war, und nicht nur die Anzahl, wie oft der Ausdruck wahr war.

Answer 4

Ich glaube, Sie suchen first_index von List::MoreUtils:

use List::MoreUtils qw(first_index); 

# ... 

my $index = first_index { $_ eq $search_for } @array; 

Answer 5

Die grep-Funktion verhält sich anders in Listenkontext und Skalarkontext. Diese in perldoc -f grep dokumentiert:

Wertet den Block oder EXPR für jedes Element von LIST (lokal $ _ an jedes Element gesetzt wird) und gibt den Listenwert bestehend aus diesen Elementen, für die der Ausdruck auf wahr bewertet. Gibt im skalaren Kontext an, wie oft der Ausdruck wahr war.

Sie können dies mit dem schlecht namens wantarray Funktion auf Ihrem eigenen Duplikat:

sub my_grep { 
    my $sub = shift; 
    my @return; 
    for my $item (@_) { 
     push @return if $sub->($item); 
    } 
    return @return if wantarray; 
    return scalar @return; 
} 

Answer 6

Außerdem glaube ich, grep nur die erste Instanz zu finden, ist ein wenig ineffizient, da es immer noch zu Fuß durch hat und führen Sie den Rückruf für jedes Element des Arrays. Besonders wenn Ihr Array lang ist, können Sie besser eine Schleife schreiben oder, wie oben erwähnt, List :: MoreUtils verwenden.