print @array (Ausgabe gruppieren) - #176547 (Allgemeines zu Perl)

Muffi

2014-07-23 09:03

User since
2012-07-18
1465 Artikel
BenutzerIn
[default_avatar]

Oder

Code (perl): (dl )

1
2
3

use feature qw/:5.10/;
my @array = qw(1 22 333 4 555 6 7777 8 9999 10 11 121212 131313 14 15 16);
say join(',', shift @array, shift @array // (), shift @array // () ) while (@array);

PS: Hat wer ne Idee, wie ich diesen 3mal shift hübsch vermeiden könnte?

Edit: Tadaaa!

Code (perl): (dl )

say join(',', splice(@array, 0, 3)) while @array;

Last edited: 2014-07-23 09:14:16 +0200 (CEST)

1 + 1 = 10