Как исправить ошибку Perl: тип аргумента 1 для каждого должен быть хеш (не хеш-элемент)

Question

У меня есть код, который я написал некоторое время назад. Я попытался использовать это, и я получаю эту ошибку Type of arg 1 to keys must be hash or array (not hash element) at line 18, near "} :", которую я не могу понять, как исправить. Код такой

use strict;
use warnings;
use 5.12.0;

my $file = "test.txt";
open DATA, '<', $file or die "$!";

my %hash;
while(<DATA>){
    next if /^\s*$/m; # In case if you have empty lines.
    my ($key1,$key2,$val) = /^(\w)\|(\w) ([0-9.-]+)/;
    $val = int($val*10)/10; 
    $hash{$val}{$key1}++;
    $hash{$val}{$key2}++;
}
for (-9..9){
    $_ = $_/10;
    say "$_\t",ref $hash{$_} ? scalar keys $hash{$_} : '';
}

А мой test.txt это

PBANLA_7 PBANLA_9 -0.976
PBANLA_2 PD39238 0.8
PD3_1 PD3_12 -0.76
PBANLA_13 PBANLA31 2563.654
PD3_91 PD3_342 0.1
PD3_23 PD3_84 1.5968E-05
PBANLA_3 PBANLA_2 108
PFC10_API0060 MAL13.1006 -1
PRA0005w MAL13.100 -0.17
PRA0005w MAL13.102 -0.17
PTA0005w MAL13.103 -0.17
PRA0005w MAL13.105 -0.175968E-06
PTA0005w MAL13.106 -0.17564
PRA0005w MAL13.107 -0.17
PRA0005w MAL13.108 30

Вывод, который я хочу, - это количество идентификаторов (первый и второй столбец), которые есть в каждом бине. Предложения приветствуются! Заранее спасибо, gabelins

Answer 1

В версиях Perl, более ранних, чем v5.14 ( edit : и новее, чем v5.22), аргументом keys должен быть хеш, а не ссылка на хеш.Вы должны разыменовать свою ссылку на хэш, чтобы сделать ее действительным аргументом keys.

%hash = (abc => 123);
$hashref = { def => 456 };

@k = keys %hash;       # ok
@k = keys $hashref;    # error in perl <v5.14
@k = keys %{$hashref}; # ok

Даже в версиях с 5.14 по 5.22 keys HASHREF считалось «экспериментальным» и могло быть изменено в будущих версиях.