按值搜索数组中的哈希值

Question

我有一个函数可以将 Excel 数据提取到哈希数组中，如下所示：

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

填充哈希数组就可以了。 然而，困难的部分是在数组中搜索特定项（哈希）。 我似乎无法找到 id 或 21、batchid 为 15 或成本 > 的项目。 20 美元等。

我将如何实施这样的搜索工具？

谢谢大家，

Answer 1

借助 grep 的强大功能，

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

如果您知道只会返回一项，您可以这样做这个：（

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

未经测试，我有一段时间没有写其中一个，但这应该可行）

Answer 2

如果您确定搜索始终只返回一次出现，或者您只对第一个匹配项感兴趣，那么您可以使用 List::Util

use List::Util;

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

我将子例程调用包含在 %{ } 阻止以确保 RHS 计算为哈希值。