Có thể viết vòng lặp Perl foreach trong một dòng không?

Question

Có thể sử dụng một đường dây đơn lẻ foreach trong Perl không?

$hash{$thing}++ foreach my $thing (@things); 

Tôi biết điều này là có thể với nhiều lệnh khác như,

die "Invalid file!\n" if (open($Handle, "file.txt")); 

Tôi biết rằng tuyên bố mở có thể bị phá vỡ :)

Answer 1

Hầu. Trong hậu tố foreach, bạn phải sử dụng $ _:

$hash{$_}++ foreach @things; 

Hoặc tương đương (kể từ for và foreach được aliased cho cú pháp):

$hash{$_}++ for @things; 

Answer 2

Bạn có thể làm:

foreach my $thing (@things) {$hash{$thing}++}; 

nếu bạn muốn nó trên một dòng với một biến lexically-scoped. Bạn không thể đảo ngược số foreach và giữ biến số có phạm vi vòng lặp.