Perl 语言

第三章 列表与数组 ※ 1 列表直接量 ※ 2 列表相关操作符 3 foreach循环结构 ※ △ 4 标量上下文与列表上下文

3.1 列表直接量 列表是指数据，而数组是其变量名； 每个数组标量都有一个列表，列表可以为空。 标量 标量变量 列表（标量集合） 数组

列表示例 包含5个元素的列表 35 12.4 “hello” 1.72e30 “bye\n” 1 2 3 4

列表特点 35 12.4 “hello” 1.72e30 “bye\n” 1 2 3 4 1.每个元素都是单独的标量变量 2.元素值是有序的 1 2 3 4 列表特点 1.每个元素都是单独的标量变量 2.元素值是有序的 3.元素索引从‘0’开始，每次递增1 4.元素值之间互不相关， “数字”，“字符串”，“undef”或其他类型数据 5.数组/列表的“无限制性”

访问数组中的元素 数组中的元素由连续整数编号，其从0开始，每增加一个元素，其索引值加一，如 $fred[0] = “yabba”; $fred[1]= “dabba”; $fred[2] = “doo” 数组名字（fred）和标量属于完全不同的命名空间。 同一程序可以同时包含$fred（标量变量）和fred命名的数组(运行例子)。

访问数组中的元素 数组元素（$fred[2]）使用与标量变量（$fred）相同 print $fred[0] ; $fred[2] = “diddley”; $fred[1] .= “whatsis”; $number = 2.71828; print $fred[$number-1] ; #与print $fred[1]一样 $blank = $fred [142_857]； #该数组元素未存值，undef $blank = $mel; #$mel 未初始化，undef

访问数组中的元素 特殊数组索引 负数数组索引：从数组的尾端往回计数。 超出数组大小的负数索引值，返回undef，不会绕回数组尾部（运行例子） $number = 2.71828; print $fred[$number-1] ; #和print $fred[1]一样 print $fred[$number-2],"\n" ; print $fred[$number-3],"\n" ; print $fred[$number-4],"\n" ; print $fred[$number-5],"\n" ; print $fred[$number-6],"\n" ; print $fred[$number-7],"\n" ; 负数数组索引：从数组的尾端往回计数。 超出数组大小的负数索引值，返回undef，不会绕回数组尾部（运行例子）

访问数组中的元素 特殊数组索引 $rocks[0] = ‘bedrock’; #一个元素 $rocks[1] = ‘slate’; #又一个 $rocks[2] = ‘lava’; #又一个 $rocks[3] = ‘crushed rock’; #又一个 $rocks[99] = ‘schist’; #现在有95 个undef 元素 $end = $#rocks; #99, $number_of_rocks = $end + 1; #正确，更好的方法 $rocks[$#rocks] = ‘hard rock’; #the last rock $rocks[-1] = ‘hard rock’; #better $dead_rock = $rocks[-100]; #‘bedrock’ $rocks[-200] = ‘crystal’; #严重错误(fatal error!)

列表直接量 列表直接量：圆括号内用逗号隔开的一串数据 范围操作符：.. （1，2，3） #含有1，2，3 的列表 （1，2，3） #含有1，2，3 的列表 （1，2，3，） #同上，最后一个逗号被忽略 （） #空列表-0 个元素 （1 ..100） #包含100 个整数的列表 范围操作符：.. （1 ..5） #同（1，2，3，4，5） （1.7..5.7） #同上— 转换成整数 （5 ..1） #空— ..左值应小于右值，否则为空 （0，2.. 6，10，12） #同（0，2，3，4，5，6，10，12） （$m ..$n） #由$m 和$n 的值决定 （0 .. $#rocks） （“fred”, “barney”, “betty”, “wilma”, “dino”）

qw 简写 Perl中经常需要建立单词列表，可以使用qw简写。 qw-“quoted words”或“quoted by whitespace,” （“fred”, “barney”, “betty”, “wilma”, “dino”） qw(fred barney betty wilma dino ) Perl 将它们当作单引号字符串处理，不能像双引号那样在qw 中使用（\n） 和（$fred）（运行例子）。

qw 简写 qw(fred barney betty wilma dino) #qw自动忽略空白（空格、制表符、换行符）, 剩下的就是列表的元素 qw ( fred barney betty wilma dino ) #推荐写成这样

qw 简写 qw ! fred barney betty wilma dino ! qw !Yahoo \! Google excite lycos ! qw (Yahoo \! Google excite lycos ) qw !Yahoo \\ Google excite lycos !

3.2列表相关操作--赋值 与标量值类似，列表值也可以赋给变量： ($fred, $barney, $dino) = (“flintstone”, “rubble”, undef); ($fred, $barney) = ($barney, $fred) #交换两个变量 ($betty[0],$betty[1]) = ($betty[1],$betty[0]); ($fred, $barney) = qw <flintstone rubble slate>; #一个值被忽略了 ($wilma,$dino) = qw[flintstone]; #$dino 为undef ($rocks[0],$rocks[1],$rocks[2],$rocks[3] ) = qw/talc mica feldspar quartz/; @rocks = qw /talc mica feldspar quartz /;

列表的赋值 数组表示方式 @ @rocks = qw / bedrock slate lava /; @tiny = (); #空表 @giant = 1..1e5; #包含100，000 个元素的表 @stuff = (@giant, undef, @giant); #包含200，001 个元素的表 @dino = “granite”; @quarry = (@rocks, “crushed rock”, @tiny, $dino); @copy = @quarry; #将一个数组中的值拷贝的 另一个数组中

pop 和push 操作 要新增元素到数组尾端，只要将它存在更高索引(index）对应的新位置。 一些相关的小技巧。 35 12.4 “hello” 1.72e30 “bye\n” 1 2 3 4 pop ‘new variable’ push 5

pop 和push 操作 pop 将数组的最后一个元素取出并返回： @array = 5..9; $fred = pop(@array); #$fred 得到9，@array 现在为 （5，6，7，8） $barney = pop @array; #$barney gets 8, @array 现在为 （5,6,7） pop @array; #@array 现在为（5，6）(7 被丢 弃了) 如果数组为空，那pop 什么也不做（因为没有元素可以移出），并返回undef。

pop 和push 操作 push，将一个元素（或一列元素）加在数组的末尾 push(@array,0); #@array 现在为(5,6,0) push @array,8; #@array 现在为（5，6，0，8） push @array,1．．10; #@array 现在多了10 个元素 @others =qw/9 0 2 1 0 /; push @array, @others; #@array 现在又多了5 个元素

shift 和unshift 操作 对一个数组的开头进行增减元素操作 35 12.4 “hello” 1.72e30 “bye\n” 1 2 ‘new variable’ unshift 35 12.4 “hello” 1.72e30 “bye\n” 1 2 3 4 shift

shift 和unshift 操作 @array = qw # dino fred barney #; $m = shift (@array); #$m 得到“dino”, @array 现在为(“fred”, “barney”) $n = shift @array; #$n 得到”fred”, @array 现在为（“barney”） shift @array; #@array 现在为空 $o = shift @array; #$o 得到undef, @array 仍为空 unshift (@array,5) ; #@array 现在为（5） unshift @array,4; #@array 现在为(4,5) @others = 1..3; unshift @array, @others; #array 现在为（1,2,3,4,5）

Splice操作符 对数组的中间元素进行操作（四个参赛） 参数1：要操作的目标数组 参数2：要操作的一组元素的开始位置 参数3：指定要操作的元素长度 参数4：要替换的列表 @array = qw{ pebbles dino fred barney betty}; @removed = splice @array, 2; #在原来的数组中删除fred及其 后的元素，@removed变成（ pebbles dino ） @array变成（ fred barney betty ）（运行例子）

Splice操作符 @array = qw{ pebbles dino fred barney betty}; @removed = splice @array, 1,2,qw(wilma); @removed = splice @array, 1,0,qw(wilma);

将数组插入字符串 双引号内的数组变量内插 @rocks = qw{ flintstone slate rubble }; print “quartz @rocks limestone\n”; #输出为5 种rocks 由空格分开, print “Three rocks are: @rocks.\n”; print “Three rocks are:@rocks.\n”; print “There’s nothing in the parens (@empty) here..\n”

将数组插入字符串 当把email 地址插入双引号字符串时可能出现意想不到的结果 $email =“fred@bedrock.edu”; #错误！将会替换@bedrock $email =“fred\@bedrock.edu”; #正确 $email =‘fred@bedrock.edu’; #另一种方法

将数组插入字符串 除了整个数组可以进行字符串内插，单个数组变量也可以 @fred = qw(hello dolly); $y = 2; $x =“This is $fred[1]’s place”; # “This is dolly’s place” $x =“This is $fred[$y-1]’s place”; #同上

将数组插入字符串 一个标量变量后接一个左中括号符， @fred = qw(eating rocks is wrong); $fred = “right”; #我们将打印“this is right[3]” print “this is $fred[3]\n”; #打印出“wrong”使用$fred[3] print “this is ${fred}[3]\n”; #打印出“right”（由花括号分开） print “this is $fred”. “[3]\n”; #正确（两个字符串，右. 分开） print “this is $fred\[3]\n”; #正确(利用反斜线)

3.3 foreach 控制结构 foreach 从列表的第一个元素一直循环执行到最后一个元素，一次迭代一个： foreach $rock (qw / bedrock slate lava / ) { print “One rock is $rock.\n”; #打印出3 种rocks }

3.3 foreach 控制结构 控制变量（本例中为$rock）每次迭代从列表中取一个新值；控制变量不是元素拷贝而是元素本身。如果循环中修改该变量，原始列表中的元素也会被修改； @rocks = qw/ bedrock slate lava /; foreach $rock(@rocks){ $rock = “\t$rock”; #@rocks 的每一个元素前加入一个tab $rock . = “\n”; #每一个元素后加一个换行符 } print “The rocks are:\n”,@rocks; #每一个元素都被缩进了，并且一个元素占一行 （运行例子）

Perl 常用默认变量：$_ foreach 循环中省略了控制变量，那Perl 会使用其默认的变量：$_。 print “I can count to $_!\n”; } $_ =“Yabba dabba doo\n”; print; #打印出默认变量$_。

reverse 操作 reverse（逆转）操作将输入的一串列表（可能是数组）按相反的顺序返回 @fred = 6 ．．10; @barney = reverse (@fred); #得到10，9，8，7，6 @wilma = reverse 6 ．．10; #同上，没有使用额外的数组 @fred = reverse @fred; #将逆转过的字符串存回去 reverse @fred; #错误，没有改变@fred 的值 @fred = reverse @fred; # 改变了@fred 的值

sort 操作 sort 将输入的一串列表根据内部的字符顺序进行排序 @rocks = qw/ bedrock slate rubble granite /; @sorted = sort(@rocks); #得到bedrock, granite, rubble, slate @back = reverse sort @rocks; #为slate 到bedrock @rocks = sort @rocks; #将排序的值写回@rocks @numbers = sort 97 ．．102; #得到100，101，102，97，98，99 sort @rocks; #错误，不会修改@rocks @rocks = sort @rocks; #现在@rocks 值是经过排序的

3.4 标量和列表上下文 一个给定的表达式在不同的上下文中其含义是不同的。 42 + something #something 必须是标量 sort something #something 必须是列表 @people = qw( fred barney betty ); @sorted = sort @people; #列表context：barney , betty, fred $number = 42 + @people; #标量context：42+3，得到45

3.4 标量和列表上下文 强制引入标量 Print “I have”，scalar @rocks,“\n”; @rocks = qw/ bedrock slate rubble granite /; Print “I have”，scalar @rocks,“\n”; 列表上下文中的<STDIN> @lines=<STDIN>;#从键盘输入的时候以ctr+z chomp(@lines);

本章小结 掌握：数组的基本操作和foreach 熟悉：基本函数如pop push…

Thank You ! www.themegallery.com