¿Es posible escribir un bucle foreach de Perl en una sola línea?

Question

¿Es posible utilizar un solo lazo de línea foreach en Perl?

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

Sé que esto es posible con muchos otros comandos tales como,

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

sé que la declaración abierta tal vez roto :)

Answer 1

Casi. En el sufijo foreach, debe utilizar $ _:

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

o de manera equivalente (ya for y foreach son alias de sintaxis):

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

Answer 2

que puede hacer:

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

si lo quieres en una línea con una variable de ámbito léxico. No puede invertir el foreach y mantener la variable del ámbito del ciclo.