chuyển nhượng perl để băm trong trở lại chương trình con được lạ

Question

Chạy perl 5.12.4 Có sự chênh lệch giữa kết quả của hàm khi hàm băm được gán trong câu lệnh trả về hoặc trước đó. Ví dụ dễ nhất là:

perl -e 'sub s1 { 
    my @a=qw/b 1 c 2 a 3 a 4/; 
    my %h=@a; 
    return %h 
    } 
    print "@{[ s1()]}\n"' 
c 2 a 4 b 1 


perl -e 'sub s1 { 
    my @a=qw/b 1 c 2 a 3 a 4/; 
    my %h=@a; 
    return %h=@a 
    } 
    print "@{[ s1()]}\n"' 
c 2 c 2 a c 

Tại sao (lại) gán cho hàm băm trong câu lệnh trả về (ví dụ thứ 2) làm hỏng hàm băm được trả về?

Answer 1

Vì lỗi. Nó dường như đã được cố định trong 5.14.0. (. Có mặt tại 5.12.4 Không trình bày trong 5.14.0)

Minimal kiểm tra trường hợp:

perl -E"say %h = qw/b 1 c 2 a 3 a 4/"