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";
下面是运行后的截图: