的Perl：打印对象的属性名称和值

Question

以下：

for my $z (@$y) {        
    # prints number of observables for a given activity summary 
    # print STDERR 'property count'.keys $z 
    print Dumper($z); 
} 

打印：

$VAR1 = { 
      'activity' => 'walking', 
      'duration' => '591', 
      'calories' => 26, 
      'distance' => '435', 
      'steps' => 871, 
      'group' => 'walking' 
     }; 
$VAR1 = { 
      'steps' => 168, 
      'group' => 'walking', 
      'distance' => '100', 
      'activity' => 'walking', 
      'duration' => '200', 
      'calories' => 6 
     }; 

我如何可以遍历每个属性并打印其名称和值？我使用Perl。

Answer 1

这里有一种方法：

for my $z (@$y) { 
    for my $k (keys %$z) { 
     print "$k: $z->{$k}\n"; 
    } 
} 

有关更多信息，请参见keysperldoc -f keys; perldoc perldata有关哈希的一般信息（因为您的$z值是哈希引用，而不是对象）; perldoc perlreftut用于引用和嵌套数据结构。

Answer 2

你可以试试这个：

my $z = { 
     'activity' => 'walking', 
     'duration' => '591', 
     'calories' => 26, 
     'distance' => '435', 
     'steps' => 871, 
     'group' => 'walking' 
    }; 


while((my $key, my $value) = each (%{$z})){ 
    print "key : $key -> value : $value\n"; 
}