一、简介
- 列表：标量的有序集合
- 数组：储存列表的变量
区别：列表指的是数据，数组指的是变量，列表的值不一定要放在数组里，但每个数组变量都一定包含一个列表。
二、访问数组中的元素
$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 "[email protected]" #打印邮箱不能带入数组，错误
print '[email protected]' #用单引号避免
九、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 = ;
chomp(@line = ) ;
键盘输入结尾用ctrl+D的方式标记结尾（此处linux和Mac OS X系统）
其他系统，如Windows/DOS来告知系统用：ctrl+Z