Thread print @array (Ausgabe gruppieren) (15 answers)
Opened by Robin G. at 2014-07-22 16:08

GwenDragon
 2014-07-22 17:05
#176540 #176540
User since
2005-01-17
14427 articles
Admin1
[Homepage]
user image
Das geht nur manuell mit for und einem Zähler, falls der Index >= 3 ist ein \n ausgeben, und falls es das letzte Element des Arrays ist, kein \n ausgeben.

Beispiel:
Code (perl): (dl )
1
2
3
4
5
6
7
8
9
10
11
12
13
#!/usr/bin/perl

use strict;
use warnings;

my @array = qw(1 22 333 4 555 6 7777 8 9999 10 11 121212 131313 14 15 16);

my $max = 3;                               # Umbruch nach 3 Werten
for my $i ( 0 .. $#array ) {
    print "\n" if $i and $i % $max == 0;   # Newline wenn mehr als $max Werte
    print $array[$i];                      # Wert ausgeben
    print ", " if $i != $#array;           # kein Komma wenn letztes Element
}


ergibt:
1, 22, 333,
4, 555, 6,
7777, 8, 9999,
10, 11, 121212,
131313, 14, 15,
16
die Drachin, Gwendolyn


Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel

View full thread print @array (Ausgabe gruppieren)