Grep para encontrar el elemento en la matriz Perl

Question

Cada vez que ingreso algo, el código siempre me dice que existe. Pero sé que algunas de las entradas no existen. ¿Qué está mal?

#!/usr/bin/perl 

@array = <>; 
print "Enter the word you what to match\n"; 
chomp($match = <STDIN>); 

if (grep($match, @array)) { 
    print "found it\n"; 
} 

Answer 1

La primera arg que le dé a grep debe evaluarse como verdadera o falsa para indicar si hubo una coincidencia. Por lo que debe ser:

# note that grep returns a list, so $matched needs to be in brackets to get the 
# actual value, otherwise $matched will just contain the number of matches 
if (my ($matched) = grep $_ eq $match, @array) { 
    print "found it: $matched\n"; 
} 

Si tiene que coincidir en una gran cantidad de diferentes valores, sino que también valdría la pena para que usted considere poner los datos array en un hash, ya que los hashes le permiten hacer esto de manera eficiente y sin tener que iterar a través de la lista.

# convert array to a hash with the array elements as the hash keys and the values are simply 1 
my %hash = map {$_ => 1} @array; 

# check if the hash contains $match 
if (defined $hash{$match}) { 
    print "found it\n"; 
} 

Answer 2

Usted parece estar utilizando grep() como la utilidad Unix grep, lo cual es incorrecto.

Perl grep() en contexto escalar evalúa la expresión de cada elemento de una lista y devuelve el número de veces que la expresión fue verdadera. Entonces cuando $match contiene cualquier valor "verdadero", grep($match, @array) en contexto escalar siempre devolverá la cantidad de elementos en @array.

En su lugar, trate de usar el operador de coincidencia de patrones:

if (grep /$match/, @array) { 
    print "found it\n"; 
} 

Answer 3

Además de lo que Eugene y stevenl publicada, puede encontrarse con problemas con el uso tanto <> y <STDIN> en una secuencia de comandos: <> itera (= concatenar) todos los archivos dados como argumentos de línea de comando.

Sin embargo, si un usuario nunca se olvide de especificar un archivo en la línea de comandos, se leerá desde STDIN, y su código esperará para siempre en la entrada

Answer 4

Esto podría hacerse utilizando first función List::Util 's:

use List::Util qw/first/; 

my @array = qw/foo bar baz/; 
print first { $_ eq 'bar' } @array; 

Otras funciones de List::Util como max, min, sum también pueden ser útiles para usted

Answer 5

que podría suceder tha t si su matriz contiene la cadena "hola", y si está buscando "él", grep devuelve verdadero, aunque, "él" puede no ser un elemento de matriz.

Tal vez,

if (grep(/^$match$/, @array)) más aptos.

Answer 6

También puede comprobar el valor único en múltiples arreglos como,

if (grep /$match/, @array, @array_one, @array_two, @array_Three) 
{ 
    print "found it\n"; 
}