Perl problema di incompatibilità con ciascuno in un hash di hash - 5.14 → 5.8.8

Question

Il seguente codice funziona bene con 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()); 
    } 
} 

Ora, se si tenta di utilizzare questo codice su RedHat 5.3 con Perl 5.8.8, ho il seguente errore:

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. 

domanda: Come posso correggere questo errore? Come attraversare il mio hashtable?

Answer 1

Che Quentin ha detto, ma si potrebbe provare a sostituire

each($hzones{ $k1 }) 

con

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

che dereference il rif hash.

Answer 2

La possibilità di passare un riferimento a each (each($hzones{ $k1 })) era introduced in 5.14.0. Prima di ciò, si doveva passare un hash (each(%{ $hzones{ $k1 })). Funziona ancora e continuerà a funzionare.

Così, per essere compatibile, usare

each(%{ $hzones{ $k1 }) 

invece di

each($hzones{ $k1 }) 

Nota: Passare un riferimento a each è contrassegnato come sperimentale, e lo considero buggy in quanto non è così lavorare con tutti gli hash.