Opened by Robin G. at 2014-07-22 16:08
User since
2006-01-27
3890 Artikel
HausmeisterIn
2006-01-27
3890 Artikel
HausmeisterIn
Es ist auch eine Alternative mit map möglich:
Last edited: 2014-07-22 17:30:42 +0200 (CEST)
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
$ perl -we '
my @arr = 1 .. 10;
my $max = 3;
print join ", ", map { $_ == 0 || $_ % $max ? $arr[$_] : "\n$arr[$_]" } 0 .. $#arr;
print "\n";
'
1, 2, 3,
4, 5, 6,
7, 8, 9,
10
Last edited: 2014-07-22 17:30:42 +0200 (CEST)
meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!