Как вставить значение в хэш-массив 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;
Теперь у вас есть хэш массивов массивов.
@Matt Kane Да, я заметил это, когда вернулся, чтобы конкретизировать это.