Cerca hash in una matrice per valore

Question

Ho una funzione che estrae i dati di Excel in un array di hash in questo 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; 
    } 
} 

Compilazione l'array di hash è bene. Tuttavia, la parte difficile è la ricerca di un particolare oggetto (hash) nell'array. Non riesco a trovare articoli che potrebbero avere un ID o 21, o un batchid di 15, o un costo> $ 20 ecc.

Come potrei fare per implementare tale funzione di ricerca?

Grazie a tutti,

Answer 1

Con la potenza di grep

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

Se sai che ci sarà solo un elemento restituito si può semplicemente fare questo:

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

(testato, e non ho scritto uno di questi in un istante, ma dovrebbe funzionare)

Answer 2

Se sei sicuro che la ricerca restituisce sempre un solo avvenimento, o se siete interessati a solo la prima partita allora si potrebbe utilizzare la subroutine 'prima' trovato in List::Util

use List::Util; 

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

ho racchiuso il richiamo del sottoprogramma in il blocco % {} per garantire che l'RHS valuti un hash.