Можно ли написать цикл foreach Perl в одну строку?

Question

Возможно ли использовать однострочный цикл foreach в Perl?

$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 и сохранять переменную в цикле.