AK
Size: a a a
AK
AK
AK
b
DS
YK
my @aa = qw(aa bb cc dd ee ff);
my ($size, $i) = (2, 0);
while ($i < @aa) {
my @tuple = @aa[map $i++, 1..$size];
...
}
AK
</u8,>
а последней строчке?AK
DS
</u8,>
а последней строчке?IB
my @aa = qw(aa bb cc dd ee ff);
my ($size, $i) = (2, 0);
while ($i < @aa) {
my @tuple = @aa[map $i++, 1..$size];
...
}
my @aa = qw(aa bb cc dd ee ff);
while (@aa) {
my $k = shift @aa;
my $v = shift @aa;
say "$k => $v";
}
DS
YK
my @aa = qw(aa bb cc dd ee ff);
while (@aa) {
my $k = shift @aa;
my $v = shift @aa;
say "$k => $v";
}
while (my @tuple = splice @aa, 0, $size) { ... }
DS
AK
AK
DS
b
DS
AK
DF