迭代Perl中的祝福对象

概述我正在研究一些使用BigIP :: iControl模块查询F5负载均衡器的代码. 现在,当我从特定函数返回的变量上执行Dumper时,我得到以下输出. 我在迭代这个对象时遇到了很多麻烦. 我怎么能迭代这个并且只为每个成员取出monitor_status？ $VAR1 = [ bless( [ bless( { @H_404_4@ 我正在研究一些使用BigIP :: iControl模块查询F5负载均衡器的代码.

现在,当我从特定函数返回的变量上执行Dumper时,我得到以下输出.

我在迭代这个对象时遇到了很多麻烦.

我怎么能迭代这个并且只为每个成员取出monitor_status？

$VAR1 = [          bless( [                   bless( {                            'monitor_status' => 'MONITOR_STATUS_UP','member' => bless( {                                               'address' => '127.0.0.0.1','port' => '8085'                                             },'Common::IPPortDeFinition' )                          },'LocalLB::PoolMember::MemberMonitorStatus' ),bless( {                            'monitor_status' => 'MONITOR_STATUS_UP',bless( {                            'monitor_status' => 'MONITOR_STATUS_DOWN','LocalLB::PoolMember::MemberMonitorStatus' )                 ],'LocalLB::PoolMember::MemberMonitorStatus[]' )        ];

@H_404_4@解决方法 我不确定这些成员变量是否公开 – 我不熟悉所使用的模块 – 所以这可能违反了LocalLB :: PoolMember :: MemberMonitorStatus类的封装.你应该在使用前检查.

for my $mms ( @{$VAR1->[0]} ) {    warn $mms->{monitor_status};}

最好检查MemberMonitorStatus类是否提供访问器,以及可能是成员监视器状态数组的迭代器.

上面的测试只是将您的Dumper输出粘贴到Perl脚本中,并根据眼球的数据结构实现for循环的代码.

(编辑：基于Google缓存中的F5 webcentral文档,可能是MemberMonitorStatus是底层代码中的一个简单结构,在Perl中作为具有两个成员变量的类公开 – 但没有行为.如果是这样,上面可能是好.)

@H_404_4@ @H_404_4@ @H_404_4@ @H_404_4@ 总结

以上是内存溢出为你收集整理的迭代Perl中的祝福对象全部内容，希望文章能够帮你解决迭代Perl中的祝福对象所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。