Question

Is it possible to use a single line foreach loop in Perl?

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

I know this is possible with many other commands such as,

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

I know that open statement maybe broken 🙂

Answer 1

Almost. In the foreach suffix, you must use $_:

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

Or equivalently (since for and foreach are aliased for syntax):

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