in reply to print one row of array
would do it. A two-dimensional array in Perl is an array of array references. In that case the row needs to be dereferenced. The following are two ways it can be done.print @array;
Oruse strict; my @a = (qw/a b c/); my @b = (qw/d e f/); my @c = (qw/g h i/); my @d = (\@a, \@b, \@c); print @{ @d[0] }; #print the first row (a b c)
use strict; my @a = (qw/a b c/); my @b = (qw/d e f/); my @c = (qw/g h i/); my $d = [\@a, \@b, \@c]; print @{ $d->[1] }; # print the second row (d e f)
|
|---|