Perl foreach döngüsünü tek bir satırda yazmak mümkün mü?

Question

Perl'de tek satırlık foreach döngü kullanmak mümkün mü?

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

Ben

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

Açık deyimi belki kırık olduğunu biliyoruz, bu gibi diğer birçok komutlarla mümkün olduğunu biliyoruz :) Neredeyse

Answer 1

. foreach soneki olarak, _ $ kullanmalısınız:

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

Ya eşdeğer (for ve foreach beri sözdizimi için diğer adı):

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

Answer 2

Sen yapabilirsiniz:

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

eğer sözlüksel değişkenli bir satırda olmasını istersiniz. foreach'u tersine çeviremezsiniz ve döngü kapsamı değişkenini koruyamazsınız.