Anonymous Monk has asked for the wisdom of the Perl Monks concerning the following question:

Hi there Monks!

Is it possible to add an arrayref:
 my $arrayref = [
                 'Country',
                 'location',
                 'language'
                 ];

[download]

To a hashref:
my $hashref = {

            'name'        => "Harsha",
            'designation' => "Manager"
}

[download]

push %$hashref{personal},$arrayref;

[download]

Thanks for looking!

Replies are listed 'Best First'.
Re: Add an arrayref to a hashref
by haukex (Archbishop) on Aug 12, 2019 at 19:23 UTC

    Yes, it's possible. But what do you want the final data structure to look like?

    $hashref->{personal} = $arrayref;
# Results in:
{
  name        => "Harsha",
  designation => "Manager",
  personal    => ["Country", "location", "language"],
}

    [download]

    But based on the values in the array, they sound more like keys...

    @{$hashref}{@$arrayref} = ();
# Results in:
{
  name        => "Harsha",
  designation => "Manager",
  Country     => undef,
  location    => undef,
  language    => undef,
}

    [download]

    Plus a few more possibilities depending on your expected output, so please show that.

[reply]
[d/l]
[select]
      I was looking for this:
      {
  name        => "Harsha",
  designation => "Manager",
  personal    => ["Country", "location", "language"],
}

      [download]

      I will have to convert into JSON after that, it should work. Thanks!
[reply]
[d/l]

        To add to ++haukex's answer, if you want to add an item, dereference the array and push to it : 

        push(@{ $href->{personal} }, 'birthday' );

        [download]
        If you don't know the items before you build the aref and store in the href: 
        push(@{ $href->{personal} }, $_) for @some_list;

        [download]

        Hope this helps!


        The way forward always starts with a minimal test.
[reply]
[d/l]
[select]
Re: Add an arrayref to a hashref
by BillKSmith (Monsignor) on Aug 12, 2019 at 20:40 UTC
    I assume that you want to add the key "personal" to the hash and use the arrayref as the associated value. Refer to section "Using References' of perlref. The paragraph which begins "Anywhere you'd put an identifier..." always works. 
    use strict;
use warnings;
use Data::Dumper;
my $arrayref = [
                 'Country',
                 'location',
                 'language'
                 ];
my $hashref = {

            'name'        => "Harsha",
            'designation' => "Manager"
};


${$hashref}{personal} = $arrayref;

print Dumper($hashref);

    [download]

    OUTPUT 

    $VAR1 = {
          'name' => 'Harsha',
          'designation' => 'Manager',
          'personel' => [
                          'Country',
                          'location',
                          'language'
                        ]
        };

    [download]
    Bill
[reply]
[d/l]
[select]
Re: Add an arrayref to a hashref
by jcb (Parson) on Aug 13, 2019 at 05:41 UTC
    Other monks have also given good replies, but I want to mention the perldsc documentation page which has a section on "hashes of arrays" — almost exactly what you seem to be describing.
[reply]
Re: Add an arrayref to a hashref (diverehohy)
by Anonymous Monk on Aug 13, 2019 at 04:27 UTC

    rehohy

    my $Record = {};
$Record->{designation}
= "Manager"; #d0

$Record->{name}
= "Harsha"; #d0

$Record->{personal}[0]
 = "Country"; #d1

$Record->{personal}[1]
 = "location"; #d1

$Record->{personal}[2]
 = "language"; #d1

    [download]

    diverehohy

    use Data::Diver qw/ DiveVal /;
my $Record = {};
DiveVal( $Record, qw/ designation /)
 = "Manager"; #d0

DiveVal( $Record, qw/ name /)
 = "Harsha"; #d0

DiveVal( $Record, qw/ personal 0 /)
  = "Country"; #d1

DiveVal( $Record, qw/ personal 1 /)
  = "location"; #d1

DiveVal( $Record, qw/ personal 2 /)
  = "language"; #d1

#use Data::Dump qw/ dd /;
#dd( $Record );
use JSON;
print JSON->new->ascii(1)->pretty(1)->encode($Record);
__END__
{
   "designation" : "Manager",
   "personal" : [
      "Country",
      "location",
      "language"
   ],
   "name" : "Harsha"
}

    [download]

    dd

    my $Record = {
  designation => "Manager",
  name => "Harsha",
  personal => ["Country", "location", "language"],
};

    [download]
[reply]
[d/l]
[select]

Back to Seekers of Perl Wisdom