Re: print 2D-Array, auf 'perlish'

Mirco Wahab schrieb:
Hallo,

ich versuche gerade ein 2D-Array mit Hilfe
eines Perl-Idioms auszugeben, bekomme es
aber nicht schön hin. Wie war das denn nochmal ...

$array =
[
[ 'a1', 'b1', 'c1', 'd1', 'e1' ],
[ 'a2', 'b2', 'c2', 'd2', 'e2' ],
[ 'a3', 'b3', 'c3', 'd3', 'e3' ],
...
[ 'an-1', 'bn-1', 'cn-1', 'dn-1', 'en-1' ],
];


wenn man nur eine Spalte des 2D Array ausgeben wollte,
würde man ja "idiomatisch" mit

print "$_->[0]" for ( @{$array} );

sein Ziel erreichen.

Wie gebe ich nun die anderen Spalten mit aus?

Wie wäre es mit
print join("\t",@$_),"\n" for @$array;

Wolf
.