perl - 是否可以在一行中编写 Perl foreach 循环？

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;