Comment faire pour obtenir l'index d'un élément dans un tableau?

N'Perl ont une fonction pour obtenir l'index d'un élément dans un tableau? Ou j'ai besoin d'écrire une telle fonction par moi-même? [ l'équivalent de PHP array_search() ou un tableau JavaScript.indexOf() ]

  • Ce qui est dans le tableau? À la recherche d'un tableau est un drapeau rouge qui me fait évaluer si je pouvais être à l'aide d'une meilleure structure de données. Rappelez-vous: les hachages sont pour la recherche!
  • Dupliquer: stackoverflow.com/questions/1915746/...
InformationsquelleAutor powerboy | 2010-07-11
  1. 44
    use List::Util qw(first);
$idx = first { $array[$_] eq 'whatever' } 0..$#array;

    (List::Util est de base)

    ou

    use List::MoreUtils qw(firstidx);
$idx = firstidx { $_ eq 'whatever' } @array;

    (Liste::MoreUtils est sur le CPAN)

    • C'est certainement le chemin à parcourir, 9 fois sur 10.
    • Pourquoi est-ce mieux que votre solution, Zaid?
    • Rétro-compatibilité pour un. Aussi, first sortir de la boucle implicite sur la découverte de l'index correspondant. Le grep équivalent serait $idx = grep { $array[$_] eq 'whatever' and last } 0 .. $#array;, un peu poilu à mon goût. Et puis c'est miles d'avance à la vitesse de la course, lorsqu'il est exécuté comme List::Util::XS.
    • Viens de réaliser que vous ne pouvez pas last de grep proprement. Oups!
    InformationsquelleAutor hobbs
  2. 11

    Voici un post-5.10 façon de le faire, avec l'avantage supplémentaire de la détermination de la façon dont de nombreux indices correspondent à la valeur donnée.

    my @matches = grep { $array[$_] ~~ $element } 0 .. $#array;

    Si tous les éléments sont garantis d'être unique, ou tout simplement le premier indice est d'intérêt:

    my ($index) = grep { $array[$_] ~~ $element } 0 .. $#array;
    • Cette réponse ne correspond pas à la question. L'indice est ce qui se passe dans les crochets pour tableau d'accès, donc: un nombre entre 0 et $#array.
    • Ne sommes-nous pas après l'indice du match(es) ici?
    • En fait, la réponse ne se fit la question, et très joliment.
    • Ce n' ~~ signifie?
    • est le smart match de l'opérateur. Penser que c'est un opérateur qui est assez intelligent pour comprendre ce que vous souhaitez en fonction LHS/RHS types de données.
    InformationsquelleAutor Zaid
  3. 6

    Voici un autobox solution:

    use autobox::Core;

my @things = qw/blue black green red green yellow/;

my $first_green = @things->first_index( sub{ $_[0] eq 'green' } ); # code block
my $last_green  = @things->last_index ( qr/^green$/ );             # or regex

say $first_green;    # => 2
say $last_green;     # => 4
    • upvote pour autobox hilariousness
    InformationsquelleAutor draegtun
  4. 3

    Vous pouvez écrire une fonction pour ça:

    sub array_search {
    my ($arr, $elem) = @_;
    my $idx;
    for my $i (0..$#$arr) {
        if ($arr->[$i] eq $elem) {
            $idx = $i;
            last;
        }
    }
    return $idx;            
}

    L'index du premier élément correspondant sera retournée ou undef.

    • Ma dernière solution: sous array_search { my ($element, @tableau) = @_; foreach (0..$#tableau) { if ($tableau[$_] eq $element) { return $_; } } return -1; }
    InformationsquelleAutor Eugene Yarmash