字符串上的Perl数组过滤

Question

我正在尝试过滤一个数组，该数组在基于BIND9的DNS服务器上获取有关DNS记录的大量信息。输出看起来像这样：

print Dumper(@host_objs);

输出：

$VAR1 = bless( {
'internal_updates_view' => bless( {
'use_nxdomain_redirect_Addresses' => 0,
'match_destinations' => [],
'zone' => test.tld,
'name' => test.test.tld,
*etcetera*

如何print Dumper(@host_objs);仅包含＆＃39; name＆＃39;？

Answer 1

如果您的所有@host_objs都是同一类实例的对象，则可以调用name方法：

foreach my $obj(@host_objs) {
   print $obj->{internal_updates_view}->{name}, "\n";
}