perl - 如何计算散列元素散列之间的角度

Question

我有关于哈希可达性的问题，除了使用 for 和 while 循环遍历所有元素之外，我无法克服这个问题。哈希的哈希是这样的结构：

$atomsArray{$number} = {
      "x" => $x, 
      "y" => $y,
      "z" => $z
};

for my $number(sort keys %atomsArray){
   while ((my $key, my $value) = each(%{$atomsArray{$number}})){
       #Counting angles between atoms(x,y,z)
   }

还有比这更好的方法吗？

Answer 1

使用哈希切片是一种选择：

my ( $x, $y, $z ) = @{ $atomsArray{$number} }{ qw(x y z) };