Perl语言入门--4--列表

1、列表也是数组的形式：(1,'a',2,3,4)

　　元素可以是任意类型，变量，表达式

2、空列表：()

　　单元素列表:(2)  。与值2不同

　　qw(1 $a str)  　　#qw是用空格作为分隔符，元素中不能有空格，否则视为两个元素，()可变为<>

3、范围运算符：..

4、数组：列表的存储

形式：@a=(1,2,3)

　　与$a是不同的变量

　　@a的初始值是空 ：()

元素形式:   $a[0]   #注意是$  美元符号

　　负索引：倒数第一是-1  $a[-1]

5、数组的赋值：

　　@a=(1,2,3,4)

　　@a=(1,2,3,4),@a=@b

　　@b=(2,3),@a=(1,@b,4)

　　@b='a' x 4; @b=('a','a','a','a')

　　@b = <>; 从标准输入(键盘)读出一行赋予元素，最后用 ctrl+d结束输入

　　元素操作：

　　　　改变元素的值：$a[1] = 3 ;  @a=(1,3,3,4)

　　　　对超出数组大小的元素赋值： $a[5]=6 ; @a=(1,2,3,4,"",6)  数组自动增长，原来没有的元素值为NULL

　　　　读不存在的元素为空: $x = $a[7] ;

6、数组的读取

　　单个元素的读取： $a=$a[1]

　　多个元素的读取：

　　　　　　每个元素对应到变量： @a=(1,2,3) ;($x,$y,$z)=@a; - ->$x=1 $y=2 $z=3

　　　　　　多余的变量为空：($x,$y,$z,$zz)=@a; - ->$x=1 $y=2 $z=3 $zz=""

　　一些用法：

　　　　$a =@a;       #这样$a的值是@a的长度

　　　　($a) =@a;    #这样$a的值是@a的第一个元素

　　　　$a=(1,2,3)    #把一个列表直接赋值给变量 则$a =最右面的元素 也就是3

　　　　$#a :它的值是元素的最后一个元素的索引。加1即为长度。但对其赋值就改变了数组的长度

　　数组的输出：

　　　　print @a   　　中间没空格

　　　　print "@a"       中间有空格

7、数组片段：访问数组的部分元素，而不是全部元素

　　用法：

　　　　@a =(1,2,3,4,5)

　　　　读出：@sub = @a [0,1,3]   @sub=(1,2,4)

　　　　赋值：@a[1,3]=('a','b') ;  @a =(1,'a',3,'b',5)

　　范围：

　　　　@sub = @a[1..3]  　　　　　　　   则 @sub=(2,3,4)

　　　　$x = 1,$y=3;@sub=@a[$x..$y]; 　　则 @sub=(2,3,4)    #这样指代也可以

　　列表：

　　　　@b=(1,2,3); @sub = @a[@b];　　   则@sub=(2,3,4)

　　　　@b=(2,3); @sub=@a[1,@b];　　     则 @sub=(2,3,4)

　　　　($a,@b,$c)=(1,2,3,4,5); 　　　　      则@b=(2,3,4,5) ,$c=""

　　数组元素的重叠：

　　　　交换：@a[1,2]=@[2,1]   @a=(2,1,3,4,5)

　　　　重叠：@a[1,2,3]=@a[3,2,4]   @a=(1,4,3,5,5)

8、数组操作函数

　　@a = (1,12,4,8,20)

　　1、sort {代码块}(数组):

　　　　不要代码块时：print sort(@a);    #(1,12,20,,4,8)

　　　　怎么实现大小的排序呢：print sort {$a<=>$b}(@a);    #这是默认方式，记住就好 (1,4,8,12,20)

　　2、reverse @a: 数组的反序

　　3、chop  @a ：数组的每一个元素都截取最后一个字符

　　4、shift (@a) ：删除数组第一个元素，返回删除的元素。如直接输出shift()，则对@ARGV数组使用

　　5、unshift(@a,$a)：在数组开头增加元素，返回新数组长度

　　6、push(@a,$a)：在数组末尾增加元素

　　7、pop(@a) : 在数组末尾删除元素

　　8、join('连接符',@a)把数组连接成一个字符串

　　　　　　@a=('a','b');  join('_',@a);      - ->  'a_b'

　　　　　　　　　　　　join('_','a','b');    - -> 'a_b'

　　9、split(/模式/,分割串,长度)

　　　　　　模式：缺省为空格，可省略

　　　　　　分割串：缺省为$_，可省略

　　　　　　长度：分割成几个元素，可省略，则全部分割

　　　　　　$s='a,b,c'; @a=split(/,/,$s); @a=('a','b','c')     　　#以逗号为分割符进行切割

　　　　　　　　　　   @a=split(/,/,$s,2);  @a= (     'a'   ,     'b,c'    )       #指定数组的长度为2，只有@a[0]  和@a[1]

　　10、wantarray():当期望返回数组时为真，返回简单变量时为假

　　　　　　先定义一个子函数：sub mysub() {print wantarray() ? "数组\t" : "变量\n" ;}

　　　　　　然后在用：@a=mysub;

　　　　　　　　　　　$a=mysub;             #第一个输出数组  第二个输出变量

　　11、splice：

　　　　@a=splice(@a,skip,length,@newlist)

　　　　　对@a操作，跳过skip个元素，然后开始用@newlist替换length个元素。@newlist和length可以不等长，无论@newlist多长，它只占用（或者说替换）length长的元素位置

　　　　   #当length=0时为插入。splice(@a,-1,0,@n)    #在末尾追加

　　　　   #当@newlist为空则为删除

　　　　　#当@newlist和length都省略时，其后的全部删除。split(@a,3);

　　12、正则表达式在数组中的用法

　　　　　　@found=grep(/patten/,@search) 对 @search的每一个元素进行搜索，匹配的元素返回到@found数组中

　　13、map　　

　　　　　　map(expr,@list );   对每一个元素进行expr(你指定让他干啥他干啥) ，返回运算后的数组。元素用$_代表。

　　　　　　举个栗子：

　　　　　　　　map($_+1,(1,2))  - ->(2,3)

　　14、二维数组

　　　　　　$aoa=[[1,2,3,]],['a','b','c']   #至于为什么美元符  记住就好

　　　　　　　　内含两个子数组         (1,2,3)   ('a','b','c')

　　　　　　子数组访问：@{$aoa -> 0}                                                 #至于为什么这样访问  记住就好  @开头 紧接着用大括号{}圈起来

　　　　　　子数组元素访问：@{$aoa -> 0}[0,1]

　　　　　　元素访问   ： $aoa ->[0][0]

　　　　　　

　　　　　　有一维数组构成二维数组：

　　　　　　　　@a=(1,2,3)

　　　　　　　　@b=('a','b','c')

　　　　　　　　$aoa=[[@a],[@b]];