《Perl语言入门》自学笔记－－第三章 1
主要是一些数组和列表的介绍和技巧，从中可以充分感受到perl的方便和强大：）
数组方面：
1. 数组是从0开始计数的。
2. 求最后一个元素的索引值：$#rocks
3. 简单的求最后一个数的值：rocks[-1]
区间操作符来表示列表直接量：
(1..5): 表示1,2,3,4,5
(1.7..5.7): 表示1,2,3,4,5 小数被去除
(5..1): 空列表，只能网上计数
qw快捷键方式来表示列表直接量：
qw/fred barney betty wilma dino/;
qw{
/usr/local/words
/home/rootbeer/.ispell_english
}
通过qw操作符可以轻松的定义列表，前后操作符可以自己定义。
列表赋值：
($fred,$barney,$dino)=("flintstone","rubble",undef);
变量变换的方法：
($fred,$barney)=($barney,$fred);
数组赋值：
@rocks=qw/bedrock slate lava/;
数组复制：
@rocks=@copy
pop和push操作符：
pop函数取出一个数组的最后一个元素并返回它：
@array=5..9;
$fred=pop(@array); # $fred得到9，@array现在有(5,6,7,8)
$fred=pop @array; # $fred得到8，括号不用一样，@array现在有(5,6,7)
push函数在数组的最后添加一个元素
push(@array,0); # 现在@array有(5,6,7,0)
push @array,8; # 现在@array有(5,6,7,0,8)
push @array,1..10; # @array后加了10个新元素
shift和unshift函数：
对数组的开头进行操作，类似于pop和push；
@array=qw#dino fred barney #;
$a=shift(@array); # $a得到dino,@array现在有("fred","barney");
unshift @array,4; # @array现在有4,fred,barney