Rechercher hachage dans un tableau par valeur

Question

I ont une fonction qui extrait les données Excel dans un tableau de hash comme ceci:

 

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; 
    } 
} 

peuplant le tableau de hachages est très bien. Cependant, la partie difficile est la recherche d'un élément particulier (hachage) dans le tableau. Je n'arrive pas à localiser les articles qui pourraient avoir un ID ou 21, ou un batchid de 15, ou un coût> 20 $ etc.

Comment pourrais-je mettre en place un tel système de recherche?

Merci à tous,

Answer 1

Avec la puissance de grep

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

Si vous savez qu'il y aura un seul article retourné, vous pouvez simplement faire ceci:

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

(non testé, et je n'en ai pas écrit depuis un moment, mais cela devrait fonctionner)

Answer 2

Si vous êtes sûr que la recherche retourne toujours une seule occurence ou si vous êtes intéressé que le premier match alors vous pouvez utiliser le sous-programme « première » trouvé dans List::Util

use List::Util; 

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

I ci-joint l'appel de sous-programme le bloc % {} pour s'assurer que le RHS évalue un hachage.