क्या एक लाइन में पर्ल फोरैच लूप लिखना संभव है?

Question

क्या पर्ल में एक लाइन foreach पाश का उपयोग करना संभव है?

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

मैं जानता हूँ कि इस तरह के रूप में कई अन्य आदेशों के साथ संभव है,

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

मुझे पता है कि खुले बयान शायद टूट :)

Answer 1

लगभग। foreach प्रत्यय में, आप $ का उपयोग करना चाहिए _:

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

या समतुल्य (for और foreach के बाद से वाक्य रचना के लिए एलियास की गई हैं):

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

Answer 2

आप कर सकते हैं:

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

अगर आप इसे एक रेखा पर एक लेक्सिकली-स्कोप्ड वैरिएबल के साथ चाहते हैं। आप foreach को उलटा नहीं कर सकते हैं और लूप-स्कोप्ड चर रख सकते हैं।