何やりたいのかはわかるけど
while (1) { last unless my $c = grep { COND } LIST; ... }
いくらなんでもこれはキモい。
while (my $c = grep { COND } LIST) { ... }
こっちも大して変わらないなぁ。多少ましか。
while (1) { last unless my $c = grep { COND } LIST; ... }
いくらなんでもこれはキモい。
while (my $c = grep { COND } LIST) { ... }
こっちも大して変わらないなぁ。多少ましか。