Создайте хэш массива: Отображение ссылки на массив

Question

Ниже приведен мой код (просто игра с хэшами), где я хочу создать хэш массива (ключи, назначаемые массиву). Но я получаю вывод как массив. Почему отображается эта ссылка на массив?

#!/usr/bin/perl 
my @result = (0,0,0); 
my @operator = ('AP', 'MP', 'UP'); 
my %operator_res; 

for ($i = 0; $i <= $#operator; $i++) { 
    if ($i == 2) { 
     @result = (4,5,6); 
    } elsif ($i == 1) { 
     @result = (1,2,3); 
    } 
    @{$operator_res{$operator[$i]}} = @result; 
} 
foreach $keys (%operator_res) { 
    print "$keys:"; 
    #print "@{$operator_res{$keys}}\n"; 
    print "$operator_res{$keys}[0], $operator_res{$keys}[1], $operator_res{$keys}[2]\n"; 
} 

Выход

UP:4, 5, 6 
ARRAY(0x17212e70):, , Why is this array reference printing? 
AP:0, 0, 0 
ARRAY(0x17212e00):, , 
MP:1, 2, 3 
ARRAY(0x17212e20):, , 

Answer 1

foreach $keys (%operator_res) 

должен быть

foreach $keys (keys %operator_res) 

Answer 2

Значение хэш в Perl должен быть скаляром. Чтобы имитировать многомерные хэши, используйте значения ссылок на хеши или массивы.

Линия

@{$operator_res{$operator[$i]}} = @result; 

в вашем вопросе эквивалентно

$operator_res{ $operator[$i] } = [ @result ]; 

То есть, значение, связанное с ключом $operator[$i] в то время является ссылка в новый массив, содержимое которого те же, что и у @result.

Для многих примеров читайте perllol documentation.

Answer 3

Вы можете использовать Data :: Dumper для распечатки данных в хорошо отформатированный образом:

use Data::Dumper; 
print Dumper(\%operator_res); 

Q: Почему это массив ссылка печать?

A: Из-за этой строки: напечатать «$ keys:»;

Answer 4

Ваш цикл foreach выполняет итерации по каждому элементу %operator_res, а не только по клавишам. Как уже сказал икагим, вы должны использовать keys, чтобы получить только ключи хеша.

Если вы посмотрите с Data::Dumper на %operator_res Выхода является:

$VAR1 = 'UP'; 
$VAR2 = [ 
      4, 
      5, 
      6 
     ]; 
$VAR3 = 'AP'; 
$VAR4 = [ 
      0, 
      0, 
      0 
     ]; 
$VAR5 = 'MP'; 
$VAR6 = [ 
      1, 
      2, 
      3 
     ]; 

Как вы видите, вы всегда получите две итерации для каждого элемента: один для ключа и один для исх массива.