Perl 学习笔记－列表和数组

笔记来自<<Perl语言入门第５版>>

1. 　Perl中列表指标量的有序集合，数组则是存储列表的变量,　这两个术语经常混用，不过更精确地说，列表指数据，而数组指变量．数组的表示用 @my_array，因为Perl觉得@rray 看起来像array，正如 $calar 看起来像时scalar 标量变量一样.

2.    数组下标从０开始，数组或列表中的每个元素都时单独的标量变量，拥有单独的标量值，有序的．每个元素都有整数作为下标索引．由于每个元素相互独立，所以列表或数组中的元素类型可以时任意混合的．

3.　 数组的名字空间和标量变量的名字空间是完全分开的．

 #! usr/bin/env perl
 $roger[] = "roger1";
 $roger[] = "roger2";
 $roger[] = "roger3";
 $roger = "Hello";
 print $roger[]."\n";  #roger2
 print $roger."\n";   #Hello

4.   任何求值能得到的数字表达式都可以用作下标，假如不是整数，就会自动舍去小数，无论正负．如果下标超出数组尾端，对应的值将是undef ; 如果对索引值超过数组尾端的元素进行赋值，数组会自动增长(无上限)，如果在扩展过程中需要创建增补元素，默认取值为undef ; 最后一个元素的索引值为 $#my_array ; 支持负数索引，$my_array[$#my_array] 相当于 $my_array[-1].

 #! usr/bin/env perl
 $roger[] = "roger1";
 $roger[] = undef;
 $roger[] = "roger3";
 $roger[] = undef;
 $end = $#roger;   #表示数组中最后一个元素的索引
 print '$end='."$end\n";   #输出: $end=3
 print $roger[$end]."\n";  #空的

5.　列表直接量：

　　可以使用范围操作符　..    ;　范围操作符必须要求两端是整数，否则会自动转化为整数，(1..5)  <=> (1.7,5.1) ,注意的是端点值也改变了的．可以选择数组的部分元素对它进行赋值．

 #! usr/bin/env perl
 @roger = (..);
 print $#roger."\n"; #99
 @roger = (..);
 print $#roger."\n"; #10
 @roger[..] = (,);
 print $#roger."\n"; #10

6.   可以使用列表轻松地交换两个变量的值，考虑先取出元素值形成列表，然后分别两次赋值．

 #! usr/bin/env perl
 $roger = ;
 $loger = ;
 ($roger,$loger) = ($loger,$roger);
 print $roger."\n";  #
 print $loger."\n";  #

7.   多个数组元素和变量值合并到一个数组中，在这个过程中，数组名会被展开成(它所拥有的)元素列表，因为数组只能包含标量，不能包含其他数组，所以数组无法成为列表里的元素；在将某个数组复制到另一个数组时，仍然算时列表的赋值运算，只是列表时存储在数组里而已．如果将列表的引用放入数组中可以实现在数组中放数组的功能．

 #! usr/bin/env perl
 @roger = (..);
 @loger = qw(hello I am roger); #qw相当于单引号，并且空格隔开的字符串属于不同的字符串．
 $Roger = undef;
 @all = (@roger,@loger,undef);
 print ($#all+1); #总的元素数量  105
 print "\n";

８．数组的push和pop操作

 #! usr/bin/env perl
 @array = ..;
 print $#array."\n"; #数组原始长度 5
 $fred = pop(@array);
 print $#array."\n"; #数组当前长度4
 print $fred."\n\n"; #

 @roger = ..;
 print $#roger."\n"; #数组原始长度10
 push(@roger,);
 print $#roger."\n"; #数组当前长度11
 print @roger[$#roger]."\n"; #8

如果数组为空，pop()函数返回undef；push()函数可以一次性添加一串元素或者另一个数组(压入的时候替换为元素列表)到目标数组尾端. shift() 和 unshift()函数操作在数组头部，用法类似．

 #! usr/bin/env perl
 @roger = ..;
 @other = ..;
 push @roger,@other; #@other数组压入@roger数组中
 print @roger."\n";

9.   数组内插．

　　内插的时候首尾不会添加额外的空格，但会在各个元素之间自动添加分隔用的空格．

 #! usr/bin/env perl
 @rocks = qw{flintstone slate rubble};
 print "quartz @rocks limestone\n";#内插，首尾不会有多余空格．
 print @rocks;  #这样输出的时候元素之间无空格
 print "\n";
 print "@rocks\n";#这样输出时算内插，元素间有空格
 print @rocks."\n"; #这样竟然输出了元素的个数！！！

内插邮件的时候注意，因为@符号会干扰数组的识别

#! usr/bin/env perl
$email = 'roger@gmail.com'; #可以用单引号赋给变量再进行内插，当然也可以在双引号中转义再内插
print "This is my email: $email\n";

索引(下标)表达式会被当成普通的字符串处理，该表达式中的变量不会被内插

 #! usr/bin/env perl
 @roger = (..);
 $index = ;
 print "elem:@roger[$index + 3]\n"; #输出 elem:6,看来在新版本中还是会支持内插!!!

10.  foreach循环

#! /usr/bin/perl
@roger = ..;
foreach(@roger){ #foreach 后面的括号不能省掉
    print $_."\n";
}

　　1) Perl会自动存储循环的控制变量,并在循环结束之后还原,但是在循环执行期间无法访问和修改这个存储了的值,循环结束后恢复循环变量的值(如果没有值会恢复为undef), 所以不必为控制变量的名称而担心

　　 2) 控制变量就是列表元素本身, 如果循环中修改了控制变量的值, 那么列表的值就被修改了, 这种设计被广泛认可!