Perl-2-列表与数组

一、简介

• 列表：标量的有序集合
• 数组：储存列表的变量
  区别：列表指的是数据，数组指的是变量，列表的值不一定要放在数组里，但每个数组变量都一定包含一个列表。

二、访问数组中的元素

$fred [0] = "hello"
$fred [3.2] ;  " # 下标不为整数，自动舍去小数。--等效于$fred[3] "

特殊的数组索引：

• 找到数组里最后一个元素的索引值：

法1：比如数组rock最后一个元素的索引值为：$#rock 
$rocks[ $#rocks ] = ' beatu '
法2： 负数索引值
$rocks[-1]  = ' beatu ' 

三、列表直接量

• 列表直接量就是程序代码中表示一列数据的写法

( 1, 2, 3 )     #含有1,2,3三个数字的列表
或者写成( 1, 2, 3, ) ，末尾的逗号会被忽略。
( 1..100 )      #100个整数构成的列表
" .. " ：范围操作符
eg：( 1..4 )  等效于 ( 1,2,3,4 ), 也等效于( 1.6..4.6 )
( 5..1 )         #空列表：只能向上计数
( 0..$#rocks )   # rocks的所有索引值

qw(quoted word)：建立简单的单词列表，省去每个单词都加 引号的麻烦

qw( fred barney batty hello )
同( "fred","barney","batty","hello" )
定界符除了圆括号还有：||，//, ##, {}

四、列表的赋值

• 列表值也可被赋值给变量

( $fred, $bar, $dino ) = ( "fine", "rub", "und" )  # 三次赋值
( $fred, $barney ) = ( $barrney,$fred ); #交换两个变量值 
当希望引用整个数组时:@
@rock = qw(hello ge gg man)
@quarry = ( @ rock,"yy","js") 

五、pop和push操作符

• 新增元素到数组末尾
• 删除数组的最后一个元素

pop:负责取出数组中最后一个元素并将其作为返回值返回
@del = 5..9
$fred = pop(@del)    #$fred=9,del为( 5,6,7,8 );
push:添加一个或一串元素到数组的末尾
push(@del,0) ;        #del现在为( 5,6,7,8,0 )
push @del, 1..10 ;
push @del,@quarry ;
print @del ;    #打印列表

注意：push的第一个参数或pop的唯一参数都必须是要操作的数组变量，不能对列表直接进行压入或弹出

六、shift和unshift

• 与pop和push类似操作，shift针对的是低下标。

@array = qw(a b c) ;
$m = shift @array ;   #$m="a",@array为(b,c)
unshift ( @array, 5 ) #@array为(5,b,c);

七、splice操作符

• pop/push/shift/unshift都是针对首尾操作的，针对中间某些元素用splice。

splice操作符：最多接受四个参数
第一个参数：目标数组
二：开始位置
三：元素长度
四：要替换的列表
@array = qw( a b c d )
@remove = splice @array, 1, 2， qw(wilma)  #删除bc，替换wilma
#所以，@remove=qw(b c) ;@array=qw(a wilma d)

八、字符串中的数组内插

• 内插：将数组内容插到双引号中，在数组的各个元素间自动添加分隔用的空格。

print " quart @remove limestone \n " ; #内插@remove数组的值
print "hanjing@outlook.com" #打印邮箱不能带入数组，错误
print 'hanjing@outlook.com' #用单引号避免

九、foreach控制结构

• 循环：能逐项遍历列表中的值，依次迭代。

foreach $rock ( qw/ bedrock slate lava / ) {
    print "One rock is $rock. \n"
}
控制变量是$rock:若此值缺省，该值默认为$_.

控制变量是数组本身，若在循环中改变，列表值相应也改变

十、reverse操作符

• reverse操作符会读取到列表的值，并按相反的次序返回该列表。

@a = reverse 6..10 ;
@b = reverse @b ;
reverse @b  # reverse不会改变传进来的参数
所以返回值没有去处将没有意义。 

十一、sort操作符

• sort会根据内部的编码顺序对他们进行排序。

@rock = qw/ bed slate lava / ;
@sorted = sort(@rocks) ; 
@back = reverse sort @rock ;
@num = sort 97..102  #得：100,101,102,97,98,99
将数字作为字符串来排序，1开头的数字会排在9开头的前面

十二、each

• 调用each会返回下一个元素的值及其索引。

use 5.012
my @rocks = qw / a b c d / ;
while( my( $index,$value )  = each @rocks ){
    says "$index:  $value" ;
}

十三、标量上下文与列表上下文

• Perl会结合表达式的意思转换字符串或数字的意思，取决于操作符。

@peple = qw( fred bar bet ) ;
@sort = sort @peple ; #列表上下文
$num = 42 + @peple    #标量上下文

• 标量上下文产生列表的表达式

@bak = reverse qw / a g b fq / ; # f, b, g, a
$bake = reverse qw / a g b fq / ; # qfbga
$fred = something                 #标量上下文
( $fred )  = something            #列表上下文（）括号的作用

• 在列表上下文产生标量的表达式

@wilma = undef ;   #有一个元素为未定义的(undef)
@Betty = （） ；    # 清空数组

• 强制指定标量上下文

使用伪函数：scalar
@rock = qw ( ta f f d )  ;
print "I have ",@rock ," rocks! \n" # error
print "I have ", scalar @rock ," rocks! \n" # num

• 列表上下文的< STDIN >

将键盘读入的成为列表的元素。
@line = <STDIN> ; 
chomp(@line = <STDIN> ) ;
键盘输入结尾用ctrl+D的方式标记结尾（此处linux和Mac OS X系统）
其他系统，如Windows/DOS来告知系统用：ctrl+Z