Wie kann ich ein zweidimensionales Array in Perl drucken?

Ich habe ein zweidimensionales Array. Wenn ich dies drucke / ausgeben, erhalte ich Folgendes

Mein 2 Dim Array:

push (@matrix, \@a1Comparea2);
push (@matrix, \@a3Comparea4);

a1Comparea2 sollte die erste Zeile des Arrays sein. a3Comparea4 sollte die zweite Zeile des Arrays sein

$VAR1 = [
          [
            '1 6',
            '2 7',
            '3 8',
            '4 9',
            '5 10'
          ],
          $VAR1->[0],
          $VAR1->[0],
          $VAR1->[0],
          $VAR1->[0],
          [
            '7 12',
            '8 13',
            '9 14',
            '10 15',
            '11 16'
          ],
          $VAR1->[5],
          $VAR1->[5],
          $VAR1->[5],
          $VAR1->[5]
        ];

Wenn ich versuche, dies mit folgendem Code zu drucken:

for (my $j= 0; $j < $rows; $j++)
{
        for (my $k= 0; $k < @a1; $k++)
        {
                print "Row:$j Col:$k = $matrix[$j][$k]\n";
        }
}

Ich erhalte folgende Ausgabe:

Row:0 Col:0 = 1 6
Row:0 Col:1 = 2 7
Row:0 Col:2 = 3 8
Row:0 Col:3 = 4 9
Row:0 Col:4 = 5 10
Row:1 Col:0 = 1 6
Row:1 Col:1 = 2 7
Row:1 Col:2 = 3 8
Row:1 Col:3 = 4 9
Row:1 Col:4 = 5 10

Wie Sie sehen, werden die Daten dupliziert.

Antworten auf die Frage(2)

Ihre Antwort auf die Frage