Plus в двухмерном массиве в Perl

Question

У меня есть такой код

my @table1 = ([0,0,0,0,0,0],[0,0,0,0,0,0],[0,0,0,0,0,0],[0,0,0,0,0,0]); 

$table1[0][1] = $table1[0][1] + 1; 

for(my $k=0;$k<4;$k++){ 
    for(my $l=0;$l<6;$l++){ 
     print "$table1[k][l] "; 
    } 
    print "\n"; 
}  

Но я не могу истинный ответ из секции письма. Он превращает все «0».

Как я могу это исправить? Спасибо за помощь.

Answer 1

Вы забыли два $ «S:

print "$table1[$k][$l] "; 

Стандартная рекомендация здесь:

use strict; 
use warnings; 

в начале вашего скрипта, и PERL сам говорит вам об этой ошибке ...