perl - Perl 不兼容问题与散列中的每个散列 - 5.14 → 5.8.8

Question

以下代码适用于 Active Perl 5.14.2：

my %hzones = ();
#%hzones= (
#    'zone1' =>  {
#                  'ns1' => 'ip1',
#                  'ns1' => 'ip2',
#                  },
#    'zone2' =>  {
#                  'ns1' => 'ip1',
#                  'ns2' => 'ip2'
#                  }
#);

foreach my $k1 ( keys %hzones ) {
    debug("# $k1",$d); 
    while ( my ($key, $value) = each($hzones{ $k1 }) ) { # Problem is here   217 
        while ( my ($nsname, $nsip) = each(%$value) ) { 
            debug("## $nsname , $nsip",$d);
    }
    # Creation de la zone et ajout dans infoblox
    $session->add(createZone($k1)) or error("Add zone for ".$k1." failed: ", 
        $session->status_code(). ":" .$session->status_detail());
    }
}

现在，如果我尝试在 RedHat 5.3 和 Perl 5.8.8 上使用此代码，则会出现以下错误：

Type of arg 1 to each must be hash (not hash element) at
  ./migration-arpa.pl line 217, near "}) "
Execution of ./migration-arpa.pl aborted due to compilation
  errors.

问题：如何解决此错误？如何遍历我的哈希表？

Answer 1

昆汀说的，但你可以尝试替换

each($hzones{ $k1 })

和

each(%{$hzones{ $k1 }})

它取消引用哈希参考。

Answer 2

each传递对( each($hzones{ $k1 }))的引用的能力是在 5.14.0中引入的。在此之前，必须传递一个哈希 ( each(%{ $hzones{ $k1 }))。这仍然有效，并且将继续有效。

因此，要向后兼容，请使用

each(%{ $hzones{ $k1 })

代替

each($hzones{ $k1 })

注意：传递对的引用each被标记为实验性的，我认为它有问题，因为它不适用于所有哈希。