Perl处理数组的一些技巧

（1）数组求和：不用写循环，直接调用 sum 函数

use List::Util qw/sum/;
my @a=qw(1 2 3 4 5 6 7 8);
my $sum= sum @a ;          # 得到 36

（2）求数组的最大、最小值：不需要逐个比较，直接调用 max 和 min 函数

use List::Util qw/max min/;
my @a=qw(1 2 3 4 5 6 7 8);
my $max= max @a ;          # 得到 8
my $min= min @a ;             # 得到 1

（3）输出数组指定位置元素

perl -e'@a=qw(1 2 3 4 5 6 7 8);print join("t",@a[1,2,4,6])' #得到 2 3 5 7

但是如果用标量来指定位置，这样的方法就不行了

perl -e '@a=qw(1 2 3 4 5 6 7 8);$b="1,6";print join("t",@a[$b])' #得到 2

perl -e '@a=qw(1 2 3 4 5 6 7 8);$b="1,@a[eval($b)])' #得到 2 3 5 7

perl -e'@a=qw(1 2 3 4 5 6 7 8);@b=qw(1 2 4 6);print join("t",@a[@b])' #得到 2 3 5 7

perl -lane'print join("t",@F[1,3,4])' #打印第 2 3 4 5列