Perl grep'im neden ilk eşleşmeyi vermiyor?

Question

Aşağıdaki kod parçacığı, bir dizideki bir değerin ilk oluşumunun dizinini arar. Ancak, $ indeksi parantezleri kaldırıldığında, düzgün çalışmaz. Neyi yanlış yapıyorum?

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

Answer 1

parantez grep içeriği listelemek için skalar bağlamdan değerlendirildiği içeriği değiştirmek. Skaler bağlamda grep ifadesinin gerçekleşme sayısını döndürür. Liste bağlamında, ifadenin doğru olduğu öğeleri döndürür.

aşağıdaki olayları fark bağlam yapar:

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 bir listesini döndürür. Skaler değişken adını parantez içine koyduğunuzda, Perl tüm l değerini bir liste olarak kabul eder, bu nedenle listedeki ilk değeri bu değişkene atar.

parantez içinde diğer skalarlar olsaydı, onları grep 'ın dönüş diziden ikinci, üçüncü, vb değerleri almak istiyorum:

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

Answer 3

parantezler grep için list context sağlarlar. grep, daha sonra ifadenin doğru olduğu ve yalnızca ifadenin doğru olduğu sayıda öğe listesi döndürecektir.

Answer 4

Sana List::MoreUtils den first_index Aradığınız düşünüyorum:

use List::MoreUtils qw(first_index); 

# ... 

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

Answer 5

grep fonksiyon listesi bağlam ve skaler bağlamında farklı davranır. Bu perldoc -f grep belgelenmiştir:

(her elemana $ _ ayar lokal ) LİSTESİ her bir öğesi için ENGELLEME veya expr değerlendirir ve ifade true değerlendirdi kendisi için bu elementten oluşan liste değerini döndürür. Skaler bağlamda, ifadesinin gerçekleşme sayısını döndürür.

Sen kötü adlı wantarray fonksiyonu ile kendi başınıza bu çoğaltabilirsiniz: hala yürümek zorunda çünkü sadece ilk örneği bulmak için, ben grep kullanarak düşünüyorum Ayrıca

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

biraz verimsiz ve dizinin her elemanında geri arama işlemini çalıştırın. Özellikle diziniz uzunsa, bir döngü yazarken veya yukarıda belirtildiği gibi List :: MoreUtils kullanarak daha iyi olabilirsiniz.