前端之家收集整理的这篇文章主要介绍了
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