Как вставить значение в хэш-массив Perl?

%TEST ; 

... 
for  {
   sub atest
   }
 sub atest {
 ...
    push $TEST { TEST1 }[0] = "some value " 
}

Как вставить значения в хэш массивов, ничего не зная об индексе?

Как мне этого добиться?

Ответы на вопрос(3)

Решение Вопроса

хранящегося в хэше по ключу «TEST1».

push( @{ $TEST { TEST1 } }, "some value "); 

Я использовал@{...} разыменовать ссылку на массив. Perl автоматически создает внутреннюю ссылку на массив

Я думаю, что вы хотите:

%TEST;
$TEST{TEST1}[0] = "some value"
push @{ $TEST{TEST1} }, "some other value"

Теперь $ TEST {TEST1} должен быть эквивалентен["some value", "some other value"].

push Функция принимает массив, поэтому вы должны вернуть его обратно в массив:

Кроме того, ваш стиль заставляет меня думать, что вы не используетеstrict Прагма. Лучший способ написать этот код:

#!/usr/bin/perl

use strict;
use warnings;

sub atest {
    my $test = shift;
    push @{$test->{TEST1}}, "some value";
}

my %test;
atest(\%test);

use Data::Dumper;

print Dumper \%test;
 mkb23 сент. 2010 г., 16:10
Теперь у вас есть хэш массивов массивов.
 Chas. Owens23 сент. 2010 г., 16:15
@Matt Kane Да, я заметил это, когда вернулся, чтобы конкретизировать это.

Ваш ответ на вопрос