Access variables of an array elements using perl

Question

I am trying to access a specific variable member in the array in perl.

my $array = [];
@{$array} = (
             { 'family'  => "abc", 
               'roles'   => {},
             },
             { 'family'  => "def", 
               'roles'   => {
                              'member'=>["1234"],
                            },
             },
            );

I tried to access the values using

foreach (@{$array}){
   print " $_->{'family'} \n"; 
   #This is printing the family value 
}

Could someone explain to me how i could access the member field.i tried using $_->roles->{'member'} but this doesn't seem to work. any inputs here would be of great help.

I get the below output..i am not getting any error.

Hash(0x268d35)->roles->{'memeber'}

Hi Shawn, i tried it but it doesnt work, i get ARRAY(0x28b38cc) — pupil
– pupil, Commented Feb 5, 2019 at 20:31
$_->{roles}->{member} is an array ref, so you'll need to de-reference it with @{ ... }. Otherwise it'll get again stringified, hence ARRAY(...). — Stefan Becker
– Stefan Becker, Commented Feb 5, 2019 at 20:48
May I point you to perlreftut? "If you try to use a reference like a string, you get strings like ARRAY(0x80f5dec) or HASH(0x826afc0)" — Stefan Becker
– Stefan Becker, Commented Feb 5, 2019 at 20:55

Stefan Becker · Accepted Answer · 2019-02-05 20:45:59Z

2

Try

# hash ref, key 'family' pointing to scalar
print $_->{family}, "\n";
# hash ref, key 'roles' pointing to hash ref,
#    key 'members' pointing to array ref 
print @{ $_->{roles}->{member} }, "\n";

Your hash reference got interpolated into a string, hence the HASH(...).

Complete code example based on your code:

#!/usr/bin/perl
use strict;
use warnings;

my $array = [
    {
        family => "abc",
        roles  => {},
    },
    {
        family => "def",
        roles  => {
            member => ["1234"],
        },
    },
];

for my $hash_ref (@{ $array }) {
    print "family ", $hash_ref->{family}, "\n";
    while (my($key, $value) = each %{ $hash_ref->{roles} }) {
        print "role '${key}' @{ $value }\n";
    }
}

exit 0;

Test run

$ perl dummy.pl
family abc
family def
role 'member' 1234

edited Feb 5, 2019 at 20:45

answered Feb 5, 2019 at 20:30

Stefan Becker

6,0529 gold badges24 silver badges30 bronze badges

Sign up to request clarification or add additional context in comments.

3 Comments

pupil Over a year ago

:Thank you. i tried this, for this i get ARRAY(0xxxxxxxx).I am not getting the value in member field. Is there anything i am missing here.

Stefan Becker Over a year ago

See the updated full code example with test run. As you can see it works.

pupil Over a year ago

Thanks a lot Stefan, this works. Will read the perlreftut you sent.

Collectives™ on Stack Overflow

Access variables of an array elements using perl

1 Answer 1

3 Comments

Your Answer

Hot Network Questions

Collectives™ on Stack Overflow

1 Answer 1

3 Comments

Your Answer

Sign up or log in

Post as a guest

Related