Передача двумерного массива в подпрограмму Perl

Question

У меня есть этот массив:

print ("Grade\n"); 
     for (my $j=0; $j < $size; $j++){ 
      for (my $i=0; $i < $sizeCol; $i++){ 
       print("$newMatrizGrades[$j][$i] "); 
      } 
      print ("\n"); 
     } 

newSubject ($name,@newArrayNames,@newMatrizGrades); 
} 

На отпечатке, я могу видеть элементы. Но когда я в рутине. Признавая массив таким образом $ [$ sizeNewArrayName], я получаю адрес вместо значений. @newArrayNames - это 1-мерный массив, который я могу получить доступ к элементам $ [1], $ [2], ..., $ [$ sizeNewArrayName], без дальнейших проблем. Кто-то может мне помочь?

Answer 1

Perl сбрасывает аргументы подпрограммы в один длинный список (и поэтому не может идентифицировать отдельные переменные списка/массива), поэтому в этом случае вам нужно отправить ссылки на массивы, а затем разыскать их в пределах sub, когда вы идете использовать их:

use warnings; 
use strict; 

newSubject($name, \@newArrayNames, \@newMatrizGrades); 

sub newSubject { 
    my ($name, $names, $grades) = @_; 

    for (@$names){ 
     # do something 
    } 

    print "$grades->[0][0]\n"; 
}