Tại sao lại sử dụng khối "do {} if" trong Perl?

Question

Trong khi duyệt CPAN, tôi đã xem một khối mã trong số this module làm tôi bối rối.

sub import { 
    for my $mod (keys %INC) { 
    do { 
     delete $INC{$mod}; 
     $mod =~ s/\.pm$//; $mod =~ s/\//::/g; 
     delete_package($mod); 
    } if $mod =~ m/^SOAP/; 
    } 
} 

Tại sao tác giả sử dụng một khối do {} if thay vì một if khối thường xuyên?

Answer 1

Bởi vì họ cảm thấy thích nó. Không có sự khác biệt thực sự. Perl có hàng chục cách để làm mọi thứ. Nó chỉ là cách ngôn ngữ.

Answer 2

Bởi vì trong perl "Có nhiều cách để làm điều đó"

Answer 3

Đối với tôi, nó có vẻ như một cách để nhấn mạnh các mã bên càng if so với điều kiện if riêng của mình.

Answer 4

Tác giả muốn sử dụng nếu ở cuối, nhưng nó phải ở cuối một câu lệnh không nhiều. Một do {} là một câu lệnh, do đó sẽ hoạt động.

Cá nhân, tôi sẽ sử dụng câu lệnh if, nhưng đó là vấn đề về hương vị cho dù sự nhấn mạnh nên có trên hành động hay điều kiện. Trong trường hợp này tác giả đã chọn nhấn mạnh hành động.

Answer 5

Một khác biệt là do { ... } trả về một giá trị trong khi một câu lệnh if không (mặc dù xem các ý kiến ​​dưới đây.)

Ví dụ:

my $x = 3; 
my $z = do { warn "in the do block"; 10 } if $x == 3; 

Bạn có thể thực hiện hầu như điều tương tự với các ternary toán tử, mặc dù bạn không thể sắp xếp các câu lệnh trong các nhánh của toán tử bậc ba.