perl中的列表与数组

   列表（list）指的是标量的有序集合（数据），数组（array）指的是存储列表的变量（变量）。
   索引从0开始，如果给负数取绝对值，给小数就会去掉小数部分取整数部分。可以包含任意多个元素，最少没元素，最多无限制。
   使用未使用过的数组元素会得到undef，如果对索引值超过数组尾端的元素进行赋值，数组将会自动扩大。
   求最后一个元素的索引值： $#数组名。
   引用索引时，如果为负数，则返回从后往前数第几个索引（不能超过元素个数）。

列表直接量： (数值1,数值2,数值3)表示一列数据的写法，可以用逗号或空格分隔，也可以用范围符“..”，如 (1..5)表示(1,2,3,4,5)，只会越来越大，每次加1。

qw简写：qw(数据1,数据2,数据3)，放字符串时候不用加双引号，但不能用转义字符。可以用任何符号定界，不一定非要用()。

列表的赋值：
例： ($fred,$barrey) =($barney,$fred,"abc") 多了会忽略，少了会定义undef

数组的赋值：
例： @数组名 = 值...;  也可以将数组赋给数组

pop和push操作符：
pop(@数组名) 将最后一个元素取出，再作为返回值（现在最后一个元素已经不在数组中了，所以可以用作删除）
push(@数组名,元素) 添加一个元素到末尾

shift和unshift操作符：
shift(@数组名) 将第一个元素取出再作为返回值
unshift(@数组名,数据) 在开头添加一个数据

splice操作符：
splice@array,1,2,qw(wilma) 替换数组array的第一个开始数2个元素，替换成wilma，如果没有第四个参数，就是删除操作，返回值是第一个元素开始数2个元素。如果第3个元素为0就是什么都不删，可以直接添加元素。

数组内插：和标量一样，数组内插时会将元素自动用空格隔开，但前后无空格。

foreach控制符：
    foreach $控制变量名 (列表或数组){
       代码
   }

常用的默认变量：$_  例如如果foreach里没有设置控制符，就会设置它做默认变量。

reverse操作符：
reverse @fred;  返回逆序数组（列表）但不改变原数组。

sort操作符：
sort @rocks;    排序，其它同上。

each操作符：
each @rocks;  返回数组下一个索引和值

标量上下文与列表上下文：全靠感觉
清空数组方法： @betty=();
列表上下文中的 ：@lines=; 不停地输入，如果是windows下的输出，就用ctrl_z退出输入。