引用键参数的类型必须是未经过调整的

Question

我对perl非常陌生，因此我有权维护一个网页。我发现了一个我不知道如何解决的错误。

perl脚本在以下代码上停止。

my @failedTests = (sort(keys ($TestResultsData{$currPlatform}{$currDate}{failedtests}))); 
while (@failedTests) 
{ 
... 

的错误信息是：

Type of argument to keys on reference must be unblessed hashref or arrayref. 

可以在该行代码重新编写，以便它的工作原理？

Answer 1

$TestResultsData{$currPlatform}{$currDate}{failedtests}的值是一个有福的hashref。 keys怯懦拒绝在受祝福的hashrefs上运行，因为它会打破封装和重载的错觉。

（Perl中的旧版本将不会接受一个hashref在所有 - 你需要传递一个正确的哈希值。）

尝试手动使用提领该hashref到一个哈希：

my @failedtests = sort keys %{ $TestResultsData{$currPlatform}{$currDate}{failedtests} };