Những mẫu mã perl nào có thể dẫn đến hành vi không xác định?

Question

Đây là những cái tôi biết:

1. Hành vi của một "my" tuyên bố sửa đổi với một sửa đổi tuyên bố có điều kiện hoặc vòng lặp cấu trúc (ví dụ "my $x if ...").
2. Sửa đổi một biến hai lần trong cùng một tuyên bố, như $i = $i++;
3. sort() trong bối cảnh vô hướng
4. truncate(), khi LENGTH lớn hơn chiều dài của tập tin
5. Sử dụng số nguyên 32-bit, "1 << 32" là undefined . Việc dịch chuyển bởi số bit âm cũng không được xác định.
6. Phân bổ không vô hướng cho biến "trạng thái", ví dụ: state @a = (1..3).

Answer 1

Đây chỉ là biến thể về chủ đề của sửa đổi một cấu trúc đang được lặp lại:

map, grep và sort nơi tham khảo đang làm thay đổi các danh sách các mục để sắp xếp.

Một vấn đề khác với sort phát sinh nơi tham khảo mã không idempotent (trong khoa học viễn tưởng cảm giác comp) - sort_func($a, $b) phải luôn luôn trả về giá trị tương tự cho bất kỳ trao $a và $b.

Answer 2

Cách dễ dàng để vượt qua vòng lặp là phá vỡ vòng lặp trong khi lặp qua băm với each.

#!/usr/bin/perl 

use strict; 
use warnings; 

my %name_to_num = (one => 1, two => 2, three => 3); 

find_name(2); # works the first time 
find_name(2); # but fails this time 

exit; 

sub find_name { 
    my($target) = @_; 

    while(my($name, $num) = each %name_to_num) { 
     if($num == $target) { 
      print "The number $target is called '$name'\n"; 
      return; 
     } 
    } 
    print "Unable to find a name for $target\n"; 
} 

Output:

The number 2 is called 'two' 
Unable to find a name for 2 

Điều này rõ ràng là một ví dụ ngớ ngẩn, nhưng điểm vẫn đứng - khi lặp lại thông qua một băm với each bạn nên hoặc không bao giờ last hoặc return ra khỏi vòng lặp; hoặc bạn nên đặt lại trình lặp (với keys %hash) trước mỗi tìm kiếm.