%TEST ;
...
for {
sub atest
}
sub atest {
...
push $TEST { TEST1 }[0] = "some value "
}
How push values into Hash of arrays and dont know anything about index?
How do I acheive this?
%TEST ;
...
for {
sub atest
}
sub atest {
...
push $TEST { TEST1 }[0] = "some value "
}
How push values into Hash of arrays and dont know anything about index?
How do I acheive this?
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.
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;
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"]
.
it this Perl then look here and don't worry about the index Perl push function reference