胶片36 在Perl中的splice函数
splice ARRAY,OFFSET,LENGTH,LIST
在ARRAY中从OFFSET开始的位置移去LENGTH个元素, 并用LIST表中的元素(如果有) 替代
shift(@a)等价于splice(@a,0,1)
Copyright: NPACT
