Perl——二维数组

最新推荐文章于 2025-07-30 11:59:20 发布

原创最新推荐文章于 2025-07-30 11:59:20 发布 · 4.3k 阅读

3 ·

CC 4.0 BY-SA版权

文章标签：

#perl #二维数组

Perl 专栏收录该内容

12 篇文章

订阅专栏

@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","ewr"],["sdfdf","uu","wewew"],["fd"]];
print $ref_array_array -> [1][1],"\n"; #uu