加上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

你忘记了两个$：

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

标准推荐：

use strict;
use warnings;

在脚本的开头，perl本身会告诉你这个错误......