访问数组中的元素 $fred[0] $fred[1]
$number=2.75;
print $fred[$number-1] 结果就是print $fred[1]
特殊的数组索引1.对索引值超过数组尾端的元素进行赋值，数组将会根据需要自动扩大
2.对最后一个元素索引值 例如数组名围rocks 则最后一个索引值为 $#rocks
列表直接量
list literal （1,2,3）包含1,2,3,这三个数字的列表
（1..5）表示 1-5五个数字
（$m,17）
qw简写 省略引号
qw（fred barney betty wilma dino） 列表
列表的赋值 （$fred,$barney,$dino）=("flintstone","rubble","undef");
当变量的个数多个给的哪个的列表值得个数，那么多出来的变量会被设置为undef
例子：（$a[0],$a[1],$a[2]）=qw/talc mica/;
引用整个数组 在数组名前加上@符号即可 后边不加索引值 例如@rack 代表所有的rack
可用于赋值操作 @rack=qw/bedrock slate lava/;
将一个数组中的列表复制到另一个数组 @copy=@quary
pop和push操作符 栈的操作 新增元素到数组尾端，存放到更高的索引值的新位置即可
pop用于去除数组中的最后一个元素；
例子： @array=5..9；
$f=pop(@array);#$f的值为9，而@array现在是（5,6,7,8）；
也可取消掉括号 pop @array
push 用于添加一个元素或是一串元素 到数组的尾端
push（@array，0）;最后一个元素是0
shift和unshift操作符
pop和push都是从数组右边开始弹出和压入
shift和ushift是从左边开始弹出和压入
@array=qw #dino fred barney#;
$m=shift(@array);
//$m值为dino array数组为（fred barney）
unshift（@array，5）;@array现在是只有一个元素的列表（5）
splice操作符
push-pop和shift-unshift均是针对数组首位操作的。如果希望添加或移除数组中间的某些元素，需要用到splice操作符。
splice 目标数组,操作的开始位置,[3参],[4参]；
例子:@array=qw(p d f b b);
@removed=splice @array,2;//@array=(p d);
//@removed=(f b b);
3参指定要操作的元素长度，代表要操作的元素个数，可以删除掉数组中间的一个片段；
@array=qw(p d f b a);
@removed=splice @array,1,2;
//@removed=qw(d f);@array=qw(p b a);
4参是要替换的列表 3参设为0 即可不删除地插入新列表；
@array=qw（p d f b a）;
@removed=splice @array,1,0,qw(w);
// @removed变为qw（） @array变为qw（p w d f b a）;
字符串中的数组内插
例子： @rocks为列表数组
print “quartz @rocks limestone \n”;
注意邮件中的@符号 插入的是数组 而非@地址
$fred[3] 为数组 ；${fred}[3]为变量 $fred的值
foreach控制结构
例子：foreach $rock(qw/ b s l /)
{
print "one rock is $rock.\n";
}
在循环中修改了控制变量的值，也同时修改了这个列表元素本身
@rocks= qw/b s l/;
foreach $rock($rocks)
{ $rock="\t$rock";//在@rocks的每个元素前加上制表符
$rock.="\n";//同时在末尾加上换行符
}
print "the rocks are:\n",@rocks;各自占一行，并使用缩排
当循环结束后，控制变量的值仍然是循环执行之前的值，perl会自动保存foreach循环的控制变量并在循环结束之后还原，在循环执行期间，我们无法访问改变已经存储的值，所以当循环结束时，变量仍然保持循环前的值，如果它之前从未被赋值，那就仍然是undef；
$rock="shale";
@rocks=qw /bedrock slate lava/;
foreach $rock(@rocks){
..
}
print "rock is still $rock\n"; //结果为shale
perl最喜欢用的默认变量：$_
省略上例中的$rock 用perl默认的变量$_
foreach (1..10){
print "i can count to $_!\n";
}
例2：$_="fuck you";
print; //默认打印$_的值
reverse操作符
读取列表或数组的值，并安装相反的次序返回该列表。
例子：@fred=6..10;
@barney=reverse(@fred);#得到10，9，8,7,6
注意 reverse会返回次序相反的列表，但是他不会修改传进来的参数。
例：reverse @fred；#不会修改@fred的值
sort操作符
读取列表的值，会根据内部的字符编码顺序对他们进行排序。
按照字符在计算机内部表示的代码点排序。
例子：@rocks=qw/b s r g/;
@sorted=sort(@rocks);
#得到的结果为b g r s
注意数字当做字符串排序会和期望值有出入
each操作符
对数组调用each会返回数组中下一个元素对应的两个值 该元素的索引以及该元素的值
例子1：use 5.012；#perl版本
my @rocks=qw /b s r g /;
while(my($index,$value)=each @rocks ){
say "$index:$value";
}
例子2：根据索引从小到大一次遍历，借助索引值取得元素的值：
@rocks=qw/b s r g /;
foreach $index(0..$#rocks){
print "$index:$rocks[$index]\n";
}
例子1，2实现的功能相同
******标量上下文与列表上下文*****非常重要
本节非常重要 同一个表达式出现在不同的地方会有不同的意义。
perl期望得到什么，那就是该表达式的上下文
