Perl không tương thích vấn đề với nhau trong một băm băm - 5,14 → 5.8.8

Question

Các mã sau hoạt động tốt với 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()); 
    } 
} 

Bây giờ, nếu tôi cố gắng sử dụng mã này trên RedHat 5.3 với Perl 5.8.8, tôi có lỗi sau:

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. 

Câu hỏi: làm thế nào để khắc phục lỗi này? Làm thế nào để tôi đi qua hashtable của tôi?

Answer 1

Quentin nói gì, nhưng bạn có thể thử thay thế

each($hzones{ $k1 }) 

với

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

mà dereferences ref băm.

Answer 2

Khả năng chuyển một tham chiếu đến each (each($hzones{ $k1 })) là introduced trong 5.14.0. Trước đó, người ta phải vượt qua một băm (each(%{ $hzones{ $k1 })). Điều đó vẫn hoạt động, và nó sẽ tiếp tục hoạt động.

Vì vậy, để tương thích ngược, sử dụng

each(%{ $hzones{ $k1 }) 

thay vì

each($hzones{ $k1 }) 

Lưu ý: Đi qua một tham chiếu đến each được đánh dấu là thử nghiệm, và tôi coi nó buggy vì nó không làm làm việc với tất cả các băm.