Perl——二维数组

@array = ("abc","ewr");
print @array[1],"n"; 

#二维数组
#定义
@array_array = (["abc","ewr"],["sdfdf","uu","wewew"],["fd"]);

print $array_array[1][1],"n"; #uu
print $array_array[1][-2],"n"; #uu
print "--------------------------------","n";
#给第二行添加列
push @{ $array_array[1]},"uiop";
print $array_array[1][-1],"n"; # uiop
print "--------------------------------","n";
#添加新的行
push @array_array,["hjk","jjkkk"];
print $array_array[3][-1],"n"; # jjkkk
print "--------------------------------","n";

#二维数组引用
$ref_array_array = [["abc",["fd"]];
print $ref_array_array -> [1][1],"n"; #uu