in reply to Converting array of hash references to hash

In map you need to return pairs to fill your hash: 

my %ams_ips_hash = map { $_->{'deviceIp'} => 1 } @{$ams_hosts};

[download]

Replies are listed 'Best First'.
Re^2: Converting array of hash references to hash
by tobyink (Canon) on Apr 22, 2013 at 09:51 UTC

    Personally I'd...

    my %ams_ips_hash = map { $_->{'deviceIp'} => $_ } @{$ams_hosts};

    [download]
    package Cow { use Moo; has name => (is => 'lazy', default => sub { 'Mooington' }) } say Cow->new->name
[reply]
[d/l]
      Thanks for your reply. This one stores (key,value) as (IP, entire hash). This is again not what I want.
[reply]
Re^2: Converting array of hash references to hash
by anirudh.agarwal (Novice) on Apr 22, 2013 at 13:14 UTC
    What actually happens in your case is, the value of deviceIp, say, 172.16.133.56changes to 172.16. Is it because that perl is taking it as an integer?
[reply]
[d/l]
[select]

      I do not understand. If I run: 

      use strict;
use warnings;
use Data::Dumper;
my $ams_hosts = [ 
        {
                'domainId' => '1',
                'deviceIp' => '172.16.133.56',
                'deviceType' => 3,
                'deviceName' => 'AMS'
        },
        {
                'domainId' => '1',
                'deviceIp' => '172.16.133.57',
                'deviceType' => 3,
                'deviceName' => 'ams_57'
        }
        ];
my %ams_ips_hash = map { $_->{'deviceIp'} => 1 } @{$ams_hosts};
print Dumper( \%ams_ips_hash );

      [download]

      I get 

      $VAR1 = {
          '172.16.133.56' => 1,
          '172.16.133.57' => 1
        };

      [download]

      Can you clarify what you mean please?

[reply]
[d/l]
[select]

In Section Seekers of Perl Wisdom