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

GwenDragon

2014-07-22 17:05

User since
2005-01-17
14748 Artikel
Admin1

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 )

#!/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 Gwen

Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten