Perl: ¿una buena forma de comprobar si un valor se encuentra en una matriz?

Question

Si tengo una matriz:

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

¿Cómo puedo comprobar si el valor entero 80 se encuentra en la matriz sin bucle a través de cada elemento?

Answer 1

No se puede hacer sin bucles. Eso es parte de lo que significa ser una matriz. Puede usar un bucle implícito usando grep o smartmatch, pero todavía hay un bucle. Si desea evitar el bucle, use un hash en su lugar (o además).

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

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

Antes de utilizar SmartMatch, tenga en cuenta:

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

La familia SmartMatch de características ahora son experimentales

partido inteligente, añade en v5.10.0 y revisado significativamente en v5.10.1, ha sido un punto de queja regular. Aunque hay varias maneras en que es útil, también ha resultado problemático y confuso tanto para los usuarios como para los implementadores de Perl. Ha habido una serie de propuestas sobre cómo abordar mejor el problema. Está claro que Smartmatch casi seguro va a cambiar o desaparecerá en el futuro. No se recomienda confiar en su comportamiento actual.

Las advertencias ahora se emitirán cuando el analizador vea ~~, o cuando. Para desactivar estas advertencias, puede agregar esta línea al alcance apropiado

Answer 2

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

Answer 3

Si está utilizando Perl 5.10 o posterior, puede utilizar el smart match operador ~~: solución

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

Answer 4

CPAN: utilizar List::MoreUtils

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

Si necesita hacer MANY MANY búsquedas en la misma matriz, una forma más eficiente es almacenar la matriz en una función hash una vez y buscar en el hash :

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

¿Por qué utilizar esta solución sobre las alternativas?

• No se puede usar la coincidencia inteligente en Perl antes de la 5.10. De acuerdo con esta publicación de SO por brian d foy] 2, la coincidencia inteligente está en cortocircuito, por lo que es tan buena como "cualquier" solución para 5.10.

• grep solución pasa por la lista completa incluso si el primer elemento de la lista larga de 1,000,000 coincide. any se cortocircuitará y saldrá en el momento en que se encuentre la primera coincidencia, por lo tanto es más eficiente. El cartel original decía explícitamente "sin pasar por todos los elementos"

• Si necesita hacer MUCHOS de búsquedas, el costo hundido de creación de hash hace que el método de búsqueda de hash sea MUCHO más eficiente que cualquier otro.Ver this SO post for details

Answer 5

Sin embargo, otra manera de comprobar si hay un número en una matriz:

#!/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; 
} 

Ver List::Util.