Arrays zu Multi-Array zusammenfügen? - #177888 (Fragen zu Perl-Modulen)

murphy

2014-10-17 20:05

User since
2004-07-19
1776 Artikel
HausmeisterIn

Ich hätte noch eine Lösung mit CPAN:

List::MoreUtils anzubieten, die in diesem Fall aber wohl mehr als Kuriosität zu sehen ist:

Code (perl): (dl )

use 5.012;
use List::MoreUtils qw(part zip);

my @vorname = ('Jule', 'Claudia', 'Susi');
my @haarfarbe = ('rot', 'blond', 'schwarz');
my @figur = ('schlank', 'zierlich', 'mollig');

my @multi_array = do {
  my $i = 0;
  part { $i++ / 3 } zip @vorname, @haarfarbe, @figur;
};

use Data::Dumper;
print Dumper \@multi_array;

When C++ is your hammer, every problem looks like your thumb.