Búsqueda de hachís en una matriz por valor

Question

que tiene una función que extrae datos de Excel en un conjunto de valores hash de este modo:

 

sub set_exceldata { 

    my $excel_file_or = '.\Excel\ORDERS.csv'; 
    if (-e $excel_file_or) { 

     open (EXCEL_OR, $excel_file_or) || die("\n can't open $excel_file_or: $!\n");     
     while() { 

      chomp; 
      my ($id, $date, $product, $batchid, $address, $cost) = split ","; 
      my %a = (id  => $id 
        , date => $date 
        , product => $product 
        , batchid => $batchid 
        , address => $address 
        , cost => $cost 
        ); 
      push (@array_data_or, \%a); 
     } 
     close EXCEL_OR; 
    } 
} 

Llenar la matriz de valores hash está muy bien. Sin embargo, la parte difícil es buscar un elemento en particular (hash) en la matriz. Parece que no puedo encontrar elementos que puedan tener una identificación o 21, o un lote de 15, o un costo> $ 20, etc.

¿Cómo podría implementar esta herramienta de búsqueda?

Gracias a todos,

Answer 1

Con el poder de grep

my @matching_items = grep { 
    $_->{id} == 21 
} @array_data_or; 

Si sabe que habrá un solo artículo devuelto sólo se puede hacer esto:

my ($item) = grep { 
    $_->{id} == 21 
} @array_data_or; 

(no probado, y no he escrito uno de estos en un tiempo, pero esto debería funcionar)

Answer 2

Si está seguro de que la búsqueda siempre devuelve una sola ocurrencia o si usted está interesado sólo en el primer partido, entonces podría utilizar el 'primero' subrutina que se encuentra en List::Util

use List::Util; 

my %matching_hash = %{ first { $_->{id} == 21 } @array_data_or }; 

I delimitada la llamada a una subrutina en el bloque % {} para asegurarse de que el RHS se evalúa como un hash.