Perl: Bon moyen de tester si une valeur est dans un tableau?

Si j'ai un tableau:

@int_array = (7,101,80,22,42);

Comment puis-je vérifier si la valeur de l'entier 80 est dans la matrice sans boucle sur chaque élément?

source d'informationauteur coding4fun | 2010-12-31

  1. 29

    Vous ne pouvez pas sans la boucle. Cela fait partie de ce que signifie être un tableau. Vous pouvez utiliser une boucle implicite à l'aide de grep ou smartmatch, mais il y a toujours une boucle. Si vous voulez éviter la boucle, utiliser un hash au lieu (ou en plus).

    # grep
if ( grep $_ == 80, @int_array ) ...

# smartmatch
use 5.010001;
if ( 80 ~~ @int_array ) ...

    Avant d'utiliser smartmatch, note:

    http://search.cpan.org/dist/perl-5.18.0/pod/perldelta.pod#The_smartmatch_family_of_features_are_now_experimental:

    La smartmatch famille de fonctions sont désormais expérimentale

    Smart match, a ajouté v5.10.0 et largement révisé à la v5.10.1, a été un point régulier de la plainte. Bien qu'il existe un certain nombre de façons dont il est utile, il s'est aussi avéré problématique et source de confusion pour les utilisateurs et développeurs de Perl. Il y a eu un certain nombre de propositions sur la meilleure façon d'aborder le problème. Il est clair que smartmatch est presque certainement va changer ou disparaître dans l'avenir. En s'appuyant sur son comportement actuel n'est pas recommandé.

    Avertissements va maintenant être émis lorsque l'analyseur voit ~~, donné, ou lorsqu'. Pour désactiver ces mises en garde, vous pouvez ajouter cette ligne à la portée appropriée

  2. 7

    CPAN solution: utiliser Liste::MoreUtils

    use List::MoreUtils qw{any}; 
print "found!\n" if any { $_ == 7 } (7,101,80,22,42);

    Si vous avez besoin de faire BEAUCOUP de NOMBREUSES recherches dans le même tableau, d'une façon plus efficace est de stocker le tableau dans une table de hachage une fois et de regarder dans la table de hachage:

    @int_array{@int_array} = 1;
foreach my $lookup_value (@lookup_values) {
    print "found $lookup_value\n" if exists $int_array{$lookup_value}
}

    Pourquoi utiliser cette solution sur les solutions de rechange?

    • Ne pouvez pas utiliser smart match en Perl avant 5.10. Selon ce DONC, après les de brian d foy]Deuxsmart match est le court-circuit, de sorte qu'il est aussi bon que "toute" solution pour 5.10.

    • grep solution de boucles à travers les ensemble liste, même si le premier élément de 1 000 000 à la longue liste des matchs. any court-circuit et de quitter le moment de la première correspondance est trouvée, il est donc plus efficace. Affiche originale explicitement dit "sans boucle à travers chaque élément"

    • Si vous devez faire Beaucoup de recherches, le coût irrécupérable de hachage création rend le hachage de recherche de méthode BEAUCOUP plus efficace que tout autre. Voir cette SORTE de post pour plus de détails

  3. 3

    Encore une autre façon de vérifier un certain nombre dans un tableau:

    #!/usr/bin/env perl

use strict;
use warnings;

use List::Util 'first';

my @int_array       = qw( 7 101 80 22 42 );
my $number_to_check = 80;

if ( first { $_ == $number_to_check } @int_array ) {
    print "$number_to_check exists in ", join ', ', @int_array;
}

    Voir List::Util.

  4. 0
    if ( grep /^80$/, @int_array ) {
    ...
}
  5. 0

    Si vous utilisez Perl 5.10 ou version ultérieure, vous pouvez utiliser le smart match opérateur ~~:

    my $found = (80 ~~ $in_array);