Следующий код отлично работает с 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.
Вопрос : Как исправить эту ошибку? Как пройтись по моей хэш-таблице?