Perl学习（十三）——数组操作总结 push pop shift unshift

Perl学习（十三）——数组操作总结 push pop shift unshift

Perl对数组的操作有push、pop、shift、unshift。
push和pop操作的是数组的尾部。shift和unshift操作的是数组的头部。
push和unshift是添加操作，pop和shift是删除操作。
下面是一个例子程序，展示了如何使用这些函数：

#!/usr/bin/perl -w

@array = 5..9;
print $array[0]."\n";
print $array[1]."\n";
print $array[2]."\n";
print $array[3]."\n";
print $array[4]."\n";

print "==============================\n";
$temp = pop(@array);
#push和pop操作的是数组的尾部
print $array[0]."\n";
print $array[1]."\n";
print $array[2]."\n";
print $array[3]."\n";
print $array[4]."\n";

print "==============================\n";
push(@array,0);
print $array[0]."\n";
print $array[1]."\n";
print $array[2]."\n";
print $array[3]."\n";
print $array[4]."\n";

print "==============================\n";
@otherarray = 100..110;
push(@array,@otherarray);
print "$array[9]\n";
print "==============================\n";

#shift和unshift操作的是数组的头部
@array2 = 90..99;
$tempvalue = shift(@array2);
print $array2[0]."\n";
print $array2[1]."\n";
print $array2[2]."\n";
print "==============================\n";
print $tempvalue."\n";

print "==============================\n";
unshift(@array2,44);
print $array2[0]."\n";
print $array2[1]."\n";
print $array2[2]."\n";
print "==============================\n";

unshift(@array2,@otherarray);
print $array2[0]."\n";
print $array2[1]."\n";
print $array2[2]."\n";

下面是运行后的截图：