Perl 中对变量的修改加法

Modified addition to a variable in Perl

嗨,我有一个 for 循环,我在其中声明了另一个 if 块,我想做的是在 if 块的第一个滚动中添加一个外部 $a 变量(for 循环外部)+1,在第二个滚动中 +2 等等,while 条件小于一个值。有没有办法在每个 if 块滚动时添加不同的值?

所以你有这样的东西?

while (condition) {
   ...
}

那么您只需要以下内容:

my $i = 0;
while (condition) {
   ++$i;
   ...
}