How do I push a value onto a Perl hash of arrays?
63,062
Solution 1
This will add value to the end of array stored in hash by "TEST1" key.
push( @{ $TEST { TEST1 } }, "some value ");
I've used @{...}
to dereference array reference. Perl creates inner array reference automatically then needed.
Solution 2
The push
function takes an array, so you must deference it back into an array:
push @{$TEST{TEST1}}, "some value";
Also, your style makes me think you are not using the strict
pragma. A better way to write that code is:
#!/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;
Solution 3
I think you want:
%TEST;
$TEST{TEST1}[0] = "some value"
push @{ $TEST{TEST1} }, "some other value"
Now, $TEST{TEST1} should be equivalent to ["some value", "some other value"]
.
Author by
Tree
Updated on July 09, 2020Comments
-
Tree almost 4 years
%TEST ; ... for { sub atest } sub atest { ... push $TEST { TEST1 }[0] = "some value " }
How do I push values into a hash of arrays without knowing anything about index?
How do I achieve this?