在 Perl 中将数组强制转换为哈希时索引错误

Question

下面是代码

my $results = $session->array_of_hash_for_cursor("check_if_receipts_exist", 0, @params);
next if( scalar @{$results} <= 0 );
$logger->info("Retrieved number of records: ".scalar @$results);
foreach my $row( sort { $results->{$b}->{epoch_received_date} cmp $results->{$a}->{epoch_received_date} } keys %{$results} )
      {
       //logic
      }

'check_if_receipts_exists' 是一个返回一些结果的 SQL 查询。我尝试执行此操作，出现以下错误， 将数组强制为哈希时索引错误

我是 Perl 的新手。有人可以指出我犯的错误吗？

Answer 1

$results 是哈希引用还是数组引用？

在某些地方你使用它就像一个数组引用：

scalar @{$results}

在其他地方，您像哈希引用一样使用它：

$results->{$b}->{...}
keys %{$results}

不可能两者兼有（至少在没有一些沉重的overload 魔法的情况下不会）。

如果我可以从设置$results 的函数的名称推断，它应该是对哈希引用列表的引用，然后进行一些调整即可正确设置：

1. 使用@{$results}是正确的；这个表达式是“一个哈希引用数组”
2. sort 的最后一个参数应该是一个列表，但要传递的正确列表是 @{$results}，而不是 keys %{$results}。
3. 那么sort函数里面的参数$a和$b就是@{$results}的成员，也就是哈希引用。所以要做的比较是

   $a->{epoch_received_date} cmp $b->{epoch_retrieve_data}

并不是

    $results->{$a}->{...} cmp $results->{$b}->{...}

大家一起：

my $results = $session->array_of_hash_for_cursor(
   "check_if_receipts_exist", 0, @params);
next if !@$results;
$logger->info("Retrieved number of records: ".@$results);
for my $row (
    sort {
        $b->{epoch_received_date}
          cmp
        $a->{epoch_received_date}
    } @$results
) {
   # logic
}