这样呢 完全不看@a的index
for my $a (@a) {
$good = 0;
if ( $a 满足某条件 ) {
++$counter;
if ($counter == 5) {
$good = 1;
}
}
}

这样你不知道满足 $counter = 5 时的 $a 是不是最后一笔

对 但是如果不是 $good又会被设回0

对耶，推(Y)

觉得这样会比较不好读耶 @@" 因为 $good 在那边弹跳的过程不太可能和口语讲出来的 rule 一致嗯... 或是也许你有别的, 也是很自然的口语讲法? @@"

确实是不好读 我得承认 XD

You're literally thinking out of the box :)

此系列钓出很多高手 我都看不懂 orz