的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"; 
}