lPerl 学习笔记－列表和数组
笔记来自<<Perl语言入门第５版>>
1. Perl中列表指标量的有序集合，数组则是存储列表的变量, 这两个术语经常混用，不过更精确地说，列表指数据，而数组指变量．数组的表示用 @my_array，因为Perl觉得@rray 看起来像array，正如 $calar 看起来像时scalar 标量变量一样.
2. 数组下标从０开始，数组或列表中的每个元素都时单独的标量变量，拥有单独的标量值，有序的．每个元素都有整数作为下标索引．由于每个元素相互独立，所以列表或数组中的元素类型可以时任意混合的．
3. 数组的名字空间和标量变量的名字空间是完全分开的．
1 #! usr/bin/env perl 2 $roger[0] = "roger1"; 3 $roger[1] = "roger2"; 4 $roger[3] = "roger3"; 5 $roger = "Hello"; 6 print $roger[1]."\n"; #roger2 7 print $roger."\n"; #Hello
4. 任何求值能得到的数字表达式都可以用作下标，假如不是整数，就会自动舍去小数，无论正负．如果下标超出数组尾端，对应的值将是undef ; 如果对索引值超过数组尾端的元素进行赋值，数组会自动增长(无上限)，如果在扩展过程中需要创建增补元素，默认取值为undef ; 最后一个元素的索引值为 $#my_array ; 支持负数索引，$my_array[$#my_array] 相当于 $my_array[-1].
1 #! usr/bin/env perl 2 $roger[0] = "roger1"; 3 $roger[1] = undef; 4 $roger[2] = "roger3"; 5 $roger[3] = undef; 6 $end = $#roger; #表示数组中最后一个元素的索引 7 print ‘$end=‘."$end\n"; #输出: $end=3 8 print $roger[$end]."\n"; #空的
5. 列表直接量：
可以使用范围操作符 .. ; 范围操作符必须要求两端是整数，否则会自动转化为整数，(1..5) <=> (1.7,5.1) ,注意的是端点值也改变了的．可以选择数组的部分元素对它进行赋值．
1 #! usr/bin/env perl 2 @roger = (1..100); 3 print $#roger."\n"; #99 4 @roger = (5..15); 5 print $#roger."\n"; #10 6 @roger[0..5] = (5,10); 7 print $#roger."\n"; #10
6. 可以使用列表轻松地交换两个变量的值，考虑先取出元素值形成列表，然后分别两次赋值．
1 #! usr/bin/env perl 2 $roger = 1; 3 $loger = 2; 4 ($roger,$loger) = ($loger,$roger); 5 print $roger."\n"; #2 6 print $loger."\n"; #1
7. 多个数组元素和变量值合并到一个数组中，在这个过程中，数组名会被展开成(它所拥有的)元素列表，因为数组只能包含标量，不能包含其他数组，所以数组无法成为列表里的元素；在将某个数组复制到另一个数组时，仍然算时列表的赋值运算，只是列表时存储在数组里而已．如果将列表的引用放入数组中可以实现在数组中放数组的功能．
1 #! usr/bin/env perl 2 @roger = (1..100); 3 @loger = qw(hello I am roger); #qw相当于单引号，并且空格隔开的字符串属于不同的字符串． 4 $Roger = undef; 5 @all = (@roger,@loger,undef); 6 print ($#all+1); #总的元素数量 105 7 print "\n";
８．数组的push和pop操作
1 #! usr/bin/env perl 2 @array = 5..9; 3 print $#array."\n"; #数组原始长度 5 4 $fred = pop(@array); 5 print $#array."\n"; #数组当前长度4 6 print $fred."\n\n"; # 9 7 8 @roger = 1..10; 9 print $#roger."\n"; #数组原始长度10 10 push(@roger,8); 11 print $#roger."\n"; #数组当前长度11 12 print @roger[$#roger]."\n"; #8
如果数组为空，pop()函数返回undef；push()函数可以一次性添加一串元素或者另一个数组(压入的时候替换为元素列表)到目标数组尾端. shift() 和 unshift()函数操作在数组头部，用法类似．
1 #! usr/bin/env perl 2 @roger = 1..10; 3 @other = 5..10; 4 push @roger,@other; #@other数组压入@roger数组中 5 print @roger."\n";
9. 数组内插．
内插的时候首尾不会添加额外的空格，但会在各个元素之间自动添加分隔用的空格．
1 #! usr/bin/env perl 2 @rocks = qw{flintstone slate rubble}; 3 print "quartz @rocks limestone\n";#内插，首尾不会有多余空格． 4 print @rocks; #这样输出的时候元素之间无空格 5 print "\n"; 6 print "@rocks\n";#这样输出时算内插，元素间有空格 7 print @rocks."\n"; #这样竟然输出了元素的个数！！！
内插邮件的时候注意，因为@符号会干扰数组的识别
#! usr/bin/env perl $email = ‘[email protected]‘; #可以用单引号赋给变量再进行内插，当然也可以在双引号中转义再内插 print "This is my email: $email\n";
索引(下标)表达式会被当成普通的字符串处理，该表达式中的变量不会被内插
1 #! usr/bin/env perl 2 @roger = (1..10); 3 $index = 2; 4 print "elem:@roger[$index + 3]\n"; #输出 elem:6,看来在新版本中还是会支持内插!!!
10.
郑重声明：本站内容如果来自互联网及其他传播媒体，其版权均属原媒体及文章作者所有。转载目的在于传递更多信息及用于网络分享，并不代表本站赞同其观点和对其真实性负责，也不构成任何其他建议。
