是否可以在一行中编写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;