Suche nach hash in einem Array von Wert

Question

I haben eine Funktion, die extrahiert Excel Daten in ein Array von Hashes etwa so:

 

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

das Array von Hashes Bestücken fein ist. Der schwierige Teil ist jedoch die Suche nach einem bestimmten Element (Hash) im Array. Ich kann nicht scheinen, um Artikel zu finden, die eine ID oder 21, oder eine Charge von 15, oder eine Kosten> $ 20 etc. haben können.

Wie würde ich über die Einrichtung einer solchen Sucheinrichtung gehen?

Vielen Dank an alle,

Answer 1

Mit der Kraft der grep

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

Wenn Sie wissen, wird es nur ein Element zurückgegeben werden Sie dies nur tun können:

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

(Ungeprüfte, und ich habe nicht eine von diesen in einer Weile geschrieben, aber das sollte funktionieren)

Answer 2

Wenn Sie sicher sind, dass die Suche immer nur ein Vorkommen zurückgibt oder wenn Sie in nur das erste Spiel interessiert sind, dann könnte man den ‚ersten‘ Unterprogramm in List::Util

use List::Util; 

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

ich das Unterprogramm-Aufruf verwenden Sie eingeschlossen in Der % {} Block, um sicherzustellen, dass der RHS zu einem Hash ausgewertet wird.