Perl:数组取消引用

Question

我试图找出如何取消引用数组中的值，但遇到了死胡同，我试图研究这个问题，但需要一些帮助。

我正在从infoblox数据库中获取一些数据，并试图在结果中搜索以找到主机条目的mac地址，该数据以哈希形式存在于数组中，由以下代码生成：

use strict;
use Data::Dumper;
my @results = $session->get(
   object  => "Infoblox::DNS::Host",
   name    => "test.com.au",
   ipv4addrs   => ".*.",
   view    => "external"
);

我使用"$_->ipv4addrs"在数据结构的高层取消引用，然后使用以下代码在输出上循环：

foreach (@results) {
    my @search = $_->ipv4addrs;        
         foreach (@search) {
             print Dumper($_) . "n";
    }
}

它使用Data:：Dumper:打印以下输出

$VAR1 = [
      bless( {
               'network' => '111.111.111.0/25',
               'options' => [],
               'dynamic' => 'false',
               '__version' => '4.2r5-5-68691',
               'VIEW_FUNCTION' => {
                                    'remove' => '.com.infoblox.perl_api.Infoblox.DHCP.remove_fixed_address',
                                    'search' => '.com.infoblox.perl_api.Infoblox.DHCP.search_fixed_address',
                                    'add' => '.com.infoblox.perl_api.Infoblox.DHCP.insert_fixed_address',
                                    'add_using_template' => '.com.infoblox.perl_api.Infoblox.DHCP.insert_fixed_address_using_template',
                                    'get' => '.com.infoblox.perl_api.Infoblox.DHCP.get_fixed_address',
                                    'modify' => '.com.infoblox.perl_api.Infoblox.DHCP.modify_fixed_address'
                                  },
               'ipv4addr' => '111.111.111.111',
               'match_client' => 'MAC',
               'mac' => '00:11:00:11:00:11',
               'disable' => 'false',
               '__type' => '.com.infoblox.perl_api.Infoblox.DHCP.FixedAddr'
             }, 'Infoblox::DHCP::FixedAddr' )
    ];

但是，如果我尝试在"foreach(@searh("循环中使用"$_->mac"调用引用，我会得到一个错误：

 "Can't call method "mac" on unblessed reference at ./connect_test.pl line nn."

我的编码技能在这一点上失败了，任何信息或指导都将不胜感激。

Answer 1

数组中的第一个元素是祝福引用。

$_->[0]->mac

您可以使用->运算符(如上所述(直接访问数组引用中的元素，也可以完全取消对列表的引用：@list = @{$array_reference}。

Answer 2

存储在@search中的每个项本身就是一个数组。

# If arrayref contains only one     | # If multiple objects expected
# Infoblox::DHCP::FixedAddr object  | # inside @search
                                    |
                                    |
foreach ( @search ) {               | foreach my $item ( @search ) {
                                    | 
    my $obj = shift @$_;            |     foreach my $obj ( @$item ) {
    my $mac = $obj->mac;            |
}                                   |         my $mac = $obj->mac;
                                    |     }
                                    | }