my @a=(1..10);$b=join "\t",@a[1..3,$#a-1];print "$b"; 结果: 2 3 4 9 转载于:https://www.cnblogs.com/blueicely/archive/2012/12/27/2835119.html