perl – 显示来自对象数组的数据

我正在尝试显示使用其他公司的API获得的对象数组中的数据,但是当我尝试使用foreach循环时遇到错误.

我正在使用Dumper来显示数组中的所有内容.

print Dumper($object);

自卸车的部分输出

'enable_dha_thresholds' => 'false','members' => [
    bless( {
      'ipv4addr' => '192.168.1.67','name' => 'name.something.com'
    },'Something::Network::Member' ),bless( {
      'ipv4addr' => '192.168.1.68','Something::Network::Member' )
  ],'comment' => 'This is a comment',

我正在尝试提取似乎是双数组的“成员”:

//this works    
print $members->enable_dha_thresholds(); 

//this works
print $members[0][0]->ipv4addr; 

//does not work
foreach my $member ($members[0]){
     print "IP". $member->ipv4addr()."\n";  
}

我收到此错误
无法在./script.pl第12行的未填充引用上调用方法“ipv4addr”.

我不确定我是否完全理解Perl中的“祝福”与“不完美”,因为我不熟悉该语言.

解决方法

print $members[0][0]->ipv4addr; //this
works

所以$members [0]是一个数组引用.
你必须取消引用数组:

foreach my $member ( @{ $members[0] } ){
    print "IP". $member->ipv4addr()."\n";  
}

引用“未完成引用”的错误告诉您没有使用对象;而你提供一个数组引用,这是不一样的:)

HTH,保罗

相关文章

忍不住在 PerlChina 邮件列表中盘点了一下 Perl 里的 Web 应用框架(巧的是 PerlBuzz 最近也有一篇相关...
bless有两个参数:对象的引用、类的名称。 类的名称是一个字符串,代表了类的类型信息,这是理解bless的...
gb2312转Utf的方法: use Encode; my $str = "中文"; $str_cnsoftware = encode("utf-8...
  perl 计算硬盘利用率, 以%来查看硬盘资源是否存在IO消耗cpu资源情况; 部份代码参考了iostat源码;...
1 简单变量 Perl 的 Hello World 是怎么写的呢?请看下面的程序: #!/usr/bin/perl print "Hello W...
本文介绍Perl的Perl的简单语法,包括基本输入输出、分支循环控制结构、函数、常用系统调用和文件操作,...