の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

ここに1つの方法です：

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

はkeysの詳細については、perldoc -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"; 
}