perl的数组操作
[*]生成连续的一列数字或字母:
my @numbers = (1..100);
my @chars = (a..z);
[*]添加或者删除元素
shift: 移除数组的第一个元素；
unshift: 添加一个元素到数组的最后；
push: 添加一个元素到数组的第一个元素；
pop：去除数组的最后一个元素。
FunctioDefinitionpush(@array, Element)Adds to the end of an arraypop(@array)Removes the last element of the arrayunshift(@array, Element)Adds to the beginning of an arrayshift(@array)Removes the first element of an arraydelete $arrayRemoves an element by index number
[*] 截取数组片断
my @a=(1..10);
my @b=@a; # @b = (2,3,4,5,9,10)
my @c=@a; # @c = (2,10)
[*] 添加删除元素
splice(@array, offset, length, $elem)
my @a=(1..10);
splice(@a, 1, 0, 100) # @a=(1,100,2,3,4,5,6,7,8,9,10)
my @b=(1..10);
splice(@b, 1, 1, 99,100) # @b=(1,99,100,3,4,5,6,7,8,9,10)
页:
[1]