数组的数组

最新推荐文章于 2024-02-23 20:43:17 发布
最新推荐文章于 2024-02-23 20:43:17 发布
阅读量127 收藏
点赞数
文章标签： 数据结构与算法 开发工具
原文链接：http://www.cnblogs.com/zhaoyangjian724/p/6198978.html
版权 
Perl 免费提供许多数据结构，这些数据结构在其他编程语言里是需要你自己制作的。

比如那些计算机 科学的新芽们都需要学习的堆栈和队列在 Perl 里都只是数组

pop:
pop 操作将数组的最后一个元素取出并返回：



Vsftp:/root/perl/5# cat a1.pl 
my @arr=qw/a b c d e f g/;
print "\@arr is @arr\n";
pop @arr;
print "\@arr is @arr\n";

Vsftp:/root/perl/5# perl a1.pl 
@arr is a b c d e f g
@arr is a b c d e f

push，它可以将一个元素（或者一列元素）加在数组的末尾：

Vsftp:/root/perl/5# cat a1.pl 
my @arr=qw/a b c d e f g/;
print "\@arr is @arr\n";
pop @arr;
print "\@arr is @arr\n";

push (@arr,'xxyy');
print "\@arr is @arr\n";
Vsftp:/root/perl/5# perl a1.pl 
@arr is a b c d e f g
@arr is a b c d e f
@arr is a b c d e f xxyy

shift 拿掉数组最左边的一个值
Vsftp:/root/perl/5# cat a2.pl 
my @arr=qw/a b c d e f g/;
print "\@arr is @arr\n";
shift @arr;
print "\@arr is @arr\n";


Vsftp:/root/perl/5# perl a2.pl 
@arr is a b c d e f g
@arr is b c d e f g



unshift:添加一个值到数组的最左边。


Vsftp:/root/perl/5# cat a2.pl 
my @arr=qw/a b c d e f g/;
print "\@arr is @arr\n";
unshift (@arr,'999');
print "\@arr is @arr\n";

Vsftp:/root/perl/5# perl a2.pl 
@arr is a b c d e f g
@arr is 999 a b c d e f g



9.1 数组的数组

9.1.1 创建和访问一个两维数组


Vsftp:/root/perl/5# cat a3.pl 
@Aoa = (
["fred", "barney" ],
["george", "jane", "elroy" ],
["homer", "marge", "bart" ],
);

print @Aoa;
print "\n";
Vsftp:/root/perl/5# perl a3.pl 
ARRAY(0xb55d48)ARRAY(0xb71358)ARRAY(0xb71538)


Vsftp:/root/perl/5# cat a3.pl 
@Aoa = (
["fred", "barney" ],
["george", "jane", "elroy" ],
["homer", "marge", "bart" ],
);

print @{$Aoa[0]};
print "\n";
print $Aoa[0]->[1];
print "\n";


Vsftp:/root/perl/5# perl a3.pl 
fredbarney
barney


# 创建一个指向一个数组的数组的引用。


Vsftp:/root/perl/5# cat a4.pl 
$ref_to_AoA = [
[ "fred", "barney", "pebbles", "bamm bamm", "dino", ],
[ "homer", "bart", "marge", "maggie", ],
[ "george", "jane", "elroy", "judy", ],
];

print $ref_to_AoA;
print "\n";
print @{$ref_to_AoA};
print "\n";
print $ref_to_AoA->[0]->[3];
print "\n";
Vsftp:/root/perl/5# perl a4.pl 
ARRAY(0x104c638)
ARRAY(0x1029d48)ARRAY(0x10455e0)ARRAY(0x1045670)
bamm bamm


请记住在每一对相邻的花括弧或方括弧之间有一个隐含的 ->


9.1.2 自行生长

Vsftp:/root/perl/5# cat aa
1   4 7
a1 a4 a7
z1 a6 z9

Vsftp:/root/perl/5# cat a5.pl 
open (A,"aa");
while (<A>){
   chomp $_;
   my @tmp = split(/\s+/,$_);
   push @AOA ,[@tmp];
   };
print @AOA;
print "\n";
print $AOA[1]->[1];
print "\n";

Vsftp:/root/perl/5# perl a5.pl 
ARRAY(0xc02d48)ARRAY(0xc1e340)ARRAY(0xc1e5e0)
a4



/*****************************

Vsftp:/root/perl/5# perl a6.pl 
Type of arg 1 to push must be array (not scalar dereference) at a6.pl line 6, near "];"
Execution of a6.pl aborted due to compilation errors.
Vsftp:/root/perl/5# cat a6.pl 
open (A,"aa");
my @ref_to_AOA=\@AOA;
while (<A>){
   chomp $_;
   my @tmp = split(/\s+/,$_);
   push $ref_to_AOA ,[@tmp];
   };
print @AOA;
print "\n";
print $AOA[1]->[1];
print "\n";

Vsftp:/root/perl/5# perl a6.pl 
Type of arg 1 to push must be array (not scalar dereference) at a6.pl line 6, near "];"
Execution of a6.pl aborted due to compilation errors.



Vsftp:/root/perl/5# cat a7.pl 
sub func() {
    my $a=shift;
    my $b=shift;
    return $a + $b;
   };


for $x (0..9){ # 对每一行...
  for $y (0..9) { # 对每一列...
  $AoA[$x][$y] = &func($x, $y); # ...设置调用
  }
};


print  @AoA;
print "\n";
print @{$AoA[0]};
print "\n";
print @{$AoA[1]};
print "\n";
print @{$AoA[2]};
print "\n";
Vsftp:/root/perl/5# perl a7.pl 
ARRAY(0x692358)ARRAY(0x69e290)ARRAY(0x69e3b0)ARRAY(0x69e4d0)ARRAY(0x69e5f0)ARRAY(0x69e710)ARRAY(0x69e830)ARRAY(0x69e950)ARRAY(0x69ea70)ARRAY(0x69eb90)
0123456789
12345678910
234567891011

这种方式的访问:
$AoA[$x][$y]

$AoA[$x]->[$y]


Vsftp:/root/perl/5# cat a8.pl 
my @AoA=(1,2,3,[a1,a2,a3]);
print $AoA[3][2];
print "\n";
print $AoA[3]->[2];
print "\n";
Vsftp:/root/perl/5# 
Vsftp:/root/perl/5# perl a8.pl 
a3
a3



Vsftp:/root/perl/5# cat a9.pl 
use Data::Dumper;
my $ref_to_AoA=[(1,f2,f3),(a1,a2,a3),(z1,z2,z3)];
print Dumper($ref_to_AoA);
print "\n";
print $ref_to_AoA->[0]."\n";
print $ref_to_AoA->[1]."\n";
print $ref_to_AoA->[2]."\n";
print $ref_to_AoA->[3]."\n";
print $ref_to_AoA->[4]."\n";
print $ref_to_AoA->[5]."\n";
print $ref_to_AoA->[6]."\n";

Vsftp:/root/perl/5# perl a9.pl 
$VAR1 = [
          1,
          'f2',
          'f3',
          'a1',
          'a2',
          'a3',
          'z1',
          'z2',
          'z3'
        ];

1
f2
f3
a1
a2
a3
z1



Vsftp:/root/perl/5# cat a10.pl 
use Data::Dumper;
my $ref_to_AoA=[[1,f2,f3],[a1,a2,a3],[z1,z2,z3]];
print Dumper($ref_to_AoA);
print "\n";
print $ref_to_AoA->[0]."\n";
print $ref_to_AoA->[1]."\n";
print $ref_to_AoA->[2]."\n";
print  $ref_to_AoA->[0]->[2]."\n";
Vsftp:/root/perl/5# perl a10.pl 
$VAR1 = [
          [
            1,
            'f2',
            'f3'
          ],
          [
            'a1',
            'a2',
            'a3'
          ],
          [
            'z1',
            'z2',
            'z3'
          ]
        ];

ARRAY(0x1742d48)
ARRAY(0x1796628)
ARRAY(0x178aa00)
f3



/****************************
Vsftp:/root/perl/5# cat a11.pl 
use Data::Dumper;
my $ref_to_AoA=[[1,f2,f3],[a1,a2,a3],[z1,z2,z3],[z1,z2,dsd3],[z1,z2,zdas3],[z1,z2,zda3]];
print Dumper($ref_to_AoA);
print "\n";
print  $ref_to_AoA->[0]->[2]."\n";
print  $ref_to_AoA->[1]->[2]."\n";
print  $ref_to_AoA->[2]->[2]."\n";
print  $ref_to_AoA->[3]->[2]."\n";
print  $ref_to_AoA->[4]->[2]."\n";
print  $ref_to_AoA->[5]->[2]."\n";
for $x (0..5) { # 对每一行...
$ref_to_AoA->[$x][2] = &func($x); # ...设置第四行
};
print  $ref_to_AoA->[0]->[2]."\n";
print  $ref_to_AoA->[1]->[2]."\n";
print  $ref_to_AoA->[2]->[2]."\n";
print  $ref_to_AoA->[3]->[2]."\n";
print  $ref_to_AoA->[4]->[2]."\n";
print  $ref_to_AoA->[5]->[2]."\n";
sub func() {
    my $a=shift;
    my $b=shift;
    return $a + $b;
   };

Vsftp:/root/perl/5# perl a11.pl 


f3
a3
z3
dsd3
zdas3
zda3
0
1
2
3
4
5


Vsftp:/root/perl/5# cat a12.pl 
use Data::Dumper;
my @AoA=([1,f2,f3],[a1,a2,a3],[z1,z2,z3],[z1,z2,dsd3],[z1,z2,zdas3],[z1,z2,zda3]);
print @{ $AoA[0] };
print "\n";
push @{ $AoA[0] }, "wilma", "betty";

print @{ $AoA[0] };
print "\n";
Vsftp:/root/perl/5# perl a12.pl 
1f2f3
1f2f3wilmabetty


因为给 push 的参数必须是一个真正的数组，而不只是一个指向 一个数组的引
用。因此，第一个参数绝对必须以 @ 字符开头。而跟在 @ 后面的东西则可以忽略一些。


9.1.3  访问的和打印

现在把数据结构打印出来,如果你只想要一个元素,下面的就足够了:

Vsftp:/root/perl/5# cat a13.pl 
my @AoA=(1,2,3,[a1,a2,a3,a4]);
print $AoA[3][2];
print "\n";
Vsftp:/root/perl/5# perl a13.pl 
a3

Vsftp:/root/perl/5# cat a13.pl 
my @AoA=(1,2,3,[a1,a2,a3,a4]);
print @AoA;
print "\n";
Vsftp:/root/perl/5# perl a13.pl 
123ARRAY(0x2161d48)


Vsftp:/root/perl/5# cat a13.pl 
my @AoA=([1],[2],[3],[a1,a2,a3,a4]);
print @AoA;
print "\n";
for $row (@AoA) {
print "@$row\n";
}
Vsftp:/root/perl/5# perl a13.pl 
ARRAY(0x144fd48)ARRAY(0x146b340)ARRAY(0x146b550)ARRAY(0x146b598)
1
2
3
a1 a2 a3 a4



Vsftp:/root/perl/5# cat a13.pl 
my @AoA=([1],[2],[3],[a1,a2,a3,a4]);
for $i (0..$#AoA) {
print "row $i is: @{$AoA[$i]}\n";
}
Vsftp:/root/perl/5# vim a13.pl 
Vsftp:/root/perl/5# cat a13.pl 
my @AoA=([1],[2],[3],[a1,a2,a3,a4]);
for $i (0..$#AoA) {
print "row $i is: @{$AoA[$i]}\n";
}
Vsftp:/root/perl/5# perl a13.pl 
row 0 is: 1
row 1 is: 2
row 2 is: 3
row 3 is: a1 a2 a3 a4


9.1.4 片段

取出片段:
Vsftp:/root/perl/5# cat a14.pl 
my @AoA=([1,2,3],['aA','ADS','DSD'],['DAD',323,233],[232,'FF','344G'],['sas21','121','sad1231','asda1231','3131','sad213','adda','ewds']);
print @AoA;
print "\n";
print $AoA[4]->[2];
print "\n";

@part = ();
for ($y =3 ; $y < 8; $y++) {
push @part, $AoA[4][$y];
}
print @part;
print "\n";


Vsftp:/root/perl/5# perl a14.pl 
ARRAY(0x900d48)ARRAY(0x927638)ARRAY(0x9276b0)ARRAY(0x927728)ARRAY(0x9277a0)
sad1231
asda12313131sad213addaewds
Vsftp:/root/perl/5# 



9.1.5  常见错误:

Vsftp:/root/perl/5# perl a16.pl 
ARRAY(0x1933d48) ARRAY(0x194f358) ARRAY(0x194f538)
Vsftp:/root/perl/5# cat a16.pl 
@AoA = ([2, 3], [4, 5, 7], [0] );
print "@AoA";
print "\n";

Vsftp:/root/perl/5# perl a16.pl 
ARRAY(0x9f4d48) ARRAY(0xa10358) ARRAY(0xa10538)



Vsftp:/root/perl/5# cat a17.pl 
sub somefunc() {
     my $a=shift;
     return $a=3;
};

for $i (1..10) {
@array = &somefunc($i);
$AoA[$i] = [@array]; # 把数组引用给到对应的数组元素
};
print @AoA;
print "\n";
Vsftp:/root/perl/5# perl a17.pl 
ARRAY(0x2547f40)ARRAY(0x2563358)ARRAY(0x2563628)ARRAY(0x2563670)ARRAY(0x25636b8)ARRAY(0x256c038)ARRAY(0x256c080)ARRAY(0x256c0c8)ARRAY(0x256c110)ARRAY(0x256c158)

转载于:https://www.cnblogs.com/zhaoyangjian724/p/6198978.html

weixin_30835923
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
数组中的数组
qq_36440274的博客
10-28 2239
二维数组定义的格式： {     ​    ​int[][]  arr=new   int[3][2];     ​    ​//创建一个二维数组，该数组中有3个一维数组。每一个一维数组中有2个元素。     ​    ​System.out.println(arr);//直接打印二维数组。     [[@c17164     ​    ​System.out.println(arr
数组数组
fxcchang的博客
03-28 855
1，交换两个数组的内容（数组一样大#include&lt;stdio.h&gt;int main() { int a[10],i,b[10],j,c[10],k; i=j=k; for(i=0;i&lt;10;i++) {scanf("%d",&amp;a[i]);} for(j=0;j&lt;10;j++) {scanf("%d",&amp;b[j]);} for(i=0;i&lt...
数组的数组（变长数组）
wetgsg的专栏
08-04 1026
4.数组的数组（变长数组） 　　可以使用变长数组，其中每行都有不同的元素个数。为此，需要这样一个数组，其中的每个元素都是另一个数组。也可以有数组的数组的数组，或更复杂的数组。但是，注意这些数组必须有相同的基本类型。 　　1）声明数组的数组（变长数组），其语法要在数组的声明中指定多个方括号对，例如： 　　int[][] jaggedIntArray; 　　2）初始化 　　有两种方式：可以初
数组中常见的数组
A_wait_for的博客
02-23 347
/ 5.findIndex 测试 数组内的所有元素是否都能符合条件 有返回值 返回第一个符合的值的下标 没有返回 -1。// 3.filter 筛选数组中的有没有符合条件的值 有返回值 返回一个新的数组 （筛选）// // item 数组中的每一项 index 每一项的下标 arr 原数组。// // item 数组中的每一项 index 每一项的下标 arr 原数组。// // item 数组中的每一项 index 每一项的下标 arr 原数组。
matlab 矩阵数组 数组及矩阵的创建及操作
01-25
matlab 矩阵数组 数组及矩阵的创建及操作 MATLAB中的数学计算部分包括数值计算和符号计算两大部分，数值计算是MATLAB的核心，在数值计算过程中，同样需要辅以适当的符号运算，目前符号运算的发展也非常完善，同样...
初识JAVA数组
09-04
【初识JAVA数组】 在Java语言中，数组是一种基本的复合数据类型，它代表了有序数据的集合。数组的关键特性是其元素具有相同的类型，并且可以通过一个数组名称和下标来唯一地确定每个元素的位置。Java支持一维数组和...
Numpy数组操作
12-21
Numpy是Python中用于数值计算的核心库，它提供了一种高效、灵活的方式来处理大型多维数组和矩阵。在本文中，我们将深入探讨Numpy数组的操作，包括创建、属性、索引和切片等方面。 首先，Numpy数组的创建可以通过...
JavaScript数组详解
09-20
JavaScript 数组详解 JavaScript 数组是有序列表，是存放多个值的集合。数组的大小是可以动态调整的，每一项都可以保存任何类型的数据。 数组创建 数组可以通过 Array 构造函数创建，也可以使用数组字面量方式...
二维数组
11-04
二维数组
数组的数组 以及 二维数组做形参
路灯
09-17 734
如果想准确使用二维数组,我们必须让编译器明白这个二维数组的array的"步幅"是多大,要确定是它下次增加1要跳转到哪里去,在这里需要让编译器清楚是数组指针加1,还是整型指针加1.//首先从P处开始,先与*结合,说明P是一个指针(与"()"这步可以忽略,只是为了改变优先级)想起上次报错警告说 int (*)[3] 转换成 int ** ,可以想到二维数组类型是 int (*)[3].呵呵,如果是一个二级指针**p的话,p 和 *p 绝对不是两个相同的值. 数组和指针的不同之处就在这里吧.
数组中添加数组
weixin_46041322的博客
11-24 472
Java数组中的数组
Mua7758的博客
11-26 226
public static void main(String[] args) { /* * 数组中的数组 * 3 表示 的是行高 / 大数组中有3 个小数组 * 6 表示 的是列宽/ 小数组中有 6 位 */ int [] [] arrs = new int[3][6]; int [] arr0 = new int[]{1,2,3,4,5,6}; int [] a...
Crack C语言之-指针之六
GhostTigerMan
09-20 397
再一次吃惊--数组的数组与多维数组的区别看见这个题目，也许有些人就会嘀咕了：难道两者不是一样的吗？C语言的多维数组不就是数组的数组吗？不！两者是有区别的，而且还不小呢。首先看看两者的共同点：1。内存映象一样。2。数组引用方式一样，都是“数组名[下标][下标]........”。3。数组名都是数组的首地址，都是一个符号地址常量、一个右值。由于两者的共同点主要反映在外部表现形式上，因此，从外部看来，数组的数组跟多维数组似乎是一样的，这造成了C程序员对两者的区别长期以来模糊不清。但实际上，c语言限于本身的语言特性
数组中的三种数组
weixin_51803498的博客
11-27 563
int[] numbers = new int[5]; //一维数组 string[,] names = new string[4, 5]; //多维数组 Console.WriteLine(names.Length); int[][] scores = new int[4][]; //数组的数组（交错数组） for (int i = 0; i < scores.Length; i++) ...
数组 数组方法 String方法
ThReE_To的博客
10-18 565
##双重for循环 例：将数组按从大到小排序 var arr = [1,2,3,4,5,6,7,8,9]; for( var i = 0 ; i <= arr.length ; i++; ){ for( var j = 0; j <= arr.length ; j++ ){ if(arr[i]
数组——数组概述
Superluckhu的博客
10-04 791
数组——数组概述简单介绍一维数组的使用声明初始化数组元素的引用相关代码示例：数组元素的默认初始化值代码示例 简单介绍 数组(Array)，是多个相同类型数据按一定顺序排列的集合，并使用一个名字命名，并通过编号的方式对这些数据进行统一管理。 数组的常见概念 数组名 下标(或索引) 元素 数组的长度 数组本身是引用数据类型，而数组中的元素可以是任何数据类型，包括 基本数据类型和引用数据类型。 创建数组对象会在内存中开辟一整块连续的空间，而数组名中引用的是 这块连续空间的首地址。 数组的长度一旦确定，
java数组里套数组_【Java】【数组】数组的基本用法
weixin_40009472的博客
02-16 2473
前面，我们学习了Java原生数据类型。除此之外，Java中还存在另外一种数据类型——引用类型。数组就是引用类型之一。我们知道，Java原生数据类型都只能表示一个数据，这在实际的应用当中远远不够，因为我们可能会遇到大量的复杂数据，用一个基本类型的数据是无法表示清楚的。Java提供了数组这种数据类型，表示相同类型的1个或多个数据，能解决一部分数据表示问题。虽然可以表示多个数据，但也很局限，因为数组只能...
8、数组(数组基础、数组方法、类数组、二维和多维数组）
qq_52301431的博客
05-27 491
目录 8、数组 8.1 数组基础 8.1.1 创建数组 8.1.2 读写数组 8.1.3 数组元素 8.1.4 数组复制 8.2 数组方法 8.2.1 查找/转换/拼接/截取 1. 查找元素 2. 数组与字符串转换 3. 数组的拼接和截取 8.2.2 增删函数 8.2.3 排序函数 8.2.4 迭代器方法 1、不生成新数组 的迭代器方法 2、生成新数组 的迭代器方法 8.2.5 累加方法 8.2.6 类型判断 8.3 类数组 8.4 二维和多维数组 创建二维数组
java二维数组数组长度
最新发布
05-27
Java二维数组的长度表示为第一维数组的长度和第二维数组的长度的乘积。例如，一个int类型的二维数组a，如果它的第一维长度为3，第二维长度为4，则它的长度为3*4=12。在Java中，我们可以使用以下方式来获取二维数组的...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值