Có cái gì đó giống như `last` cho` map`?

Question

Trong Perl, bạn có thể tùy ý kết thúc việc thực thi map, ví dụ: một cái gì đó tương đương với last trong một vòng lặp?

Nó sẽ là một chút như thế này:

map { 
    if (test == true) { last; } dosomething 
} @myarray 

Answer 1

Nope. Bạn không thể last, next, v.v. trong số map, grep hoặc sort khối vì they are not loops.

Có nói rằng, đoạn mã trong câu hỏi là thực hành kém bởi vì map không bao giờ nên được gọi trong ngữ cảnh trống. Chúng được cho là được sử dụng để biến đổi một danh sách thành một danh sách khác.

Dưới đây là một cách tốt hơn để viết nó nếu bạn thực sự phải inline nó (sửa đổi sau khi bình luận ysth của):

$_ == 10 && last, print for 1..15; # prints '123456789' 

Answer 2

số Sử dụng một foreach vòng lặp thứ và last tuyên bố.

Kể từ 5.8.1, map is context aware - trong ngữ cảnh trống, không có danh sách nào được tạo. Dù sao, bản đồ thường được sử dụng để lấy danh sách từ danh sách khác, đánh giá expr cho từng phần tử của danh sách gốc.

Answer 3

Bạn có thể sử dụng một bước nhảy dài (eval/die cặp) để giải cứu của bất kỳ cấu trúc lồng nhau mà không trực tiếp hỗ trợ nó:

eval { map{ die if test; dosomething } @myarray }; 

Nhưng khi Zaid cho biết, sử dụng một vòng lặp for/foreach trong trường hợp này tốt hơn vì bạn không sử dụng giá trị trả lại là map.

Answer 4

Bạn muốn có một vòng lặp for:

foreach (@myarray) { 
    last if test; 
    ... 
} 

Nó làm điều tương tự. map là để chuyển đổi một danh sách thành các danh sách khác.

Answer 5

Bạn có thể sử dụng một do-block với một cho sửa đổi tuyên bố:

do { 
    last if test; 
    dosomething; 
} for (@myarray); 

Mặc dù sử dụng một khối foreach có lẽ sẽ rõ ràng hơn, và tương lai bảo trì mã của bạn sẽ cảm ơn bạn.

foreach (@myarray) { 
    last if test; 
    dosomething; 
} 

Answer 6

Có cấu trúc giống như bản đồ thực hiện chính xác những gì bạn muốn làm. Hãy nhìn vào List::Util và List::MoreUtils (thuận tiện cũng được đóng gói với nhau như List::AllUtils):

use List::MoreUtils 'first'; 

# get first element with a {foo} key 
my $match = map { $_->{foo} eq 'some string' } @elements; 

Nếu bạn không muốn trích xuất một phần tử (s) từ danh sách, sau đó sử dụng foreach, theo các câu trả lời trước.

Answer 7

Hãy thử goto LABEL. Tuy nhiên tôi không biết làm thế nào là an toàn.