PERL的数组操作
2013-10-09 21:47
211 查看
此次我们说下,关于PERL中数组的头尾操作,当然这是在不使用索引的情况下,类似与汇编当中,PUSH和pop是在尾部,或者说在数组的右边进行的添加或者删除操作,
演示代码如下:
@array=5..9;
$fred=pop(@array);#原数组array中是 5 6 7 8 9,pop之后则是5 6 7 8
print $fred;
print"\n";
$barney=pop(@array);#同样的在此去除最后一个是5 6 7
print $barney;
print"\n";
push @array,1..9;#在数组array的最后添加一个数组,1 2 3 4 5 6 7 8 9
print @array;#整个数组的输出
在数组的尾部进行操作,我们说完了,现在说下在数组的头部进行操作的,shift和unshift
演示代码如下:
@array=qw(dino fred barney);
$m=shift(@array);
print $m;
print "\n";
$n=shift(@array);
print $n;
print "\n";
shift(@array);
print @array;
unshift(@array,5);
print @array;
print "\n";
unshift(@array,4);
print @array;
print "\n";
@other=1..3;
unshift(@array,@other);
print @array;
演示代码如下:
@array=5..9;
$fred=pop(@array);#原数组array中是 5 6 7 8 9,pop之后则是5 6 7 8
print $fred;
print"\n";
$barney=pop(@array);#同样的在此去除最后一个是5 6 7
print $barney;
print"\n";
push @array,1..9;#在数组array的最后添加一个数组,1 2 3 4 5 6 7 8 9
print @array;#整个数组的输出
在数组的尾部进行操作,我们说完了,现在说下在数组的头部进行操作的,shift和unshift
演示代码如下:
@array=qw(dino fred barney);
$m=shift(@array);
print $m;
print "\n";
$n=shift(@array);
print $n;
print "\n";
shift(@array);
print @array;
unshift(@array,5);
print @array;
print "\n";
unshift(@array,4);
print @array;
print "\n";
@other=1..3;
unshift(@array,@other);
print @array;
相关文章推荐
- perl对数组的操作
- Perl中的数组操作
- perl对数组的操作
- 7个perl数组高级操作技巧分享
- 操作Perl数组: shift, unshift, push, pop
- Perl学习(十二)——数组定义操作总结
- perl-basic-数组操作
- 7个perl数组高级操作技巧分享
- Perl中数组的delete操作
- Perl中数组的delete操作
- Perl学习(十三)——数组操作总结 push pop shift unshift
- Perl中的数组操作
- 练习perl的数组操作 hangman 猜字母
- Perl学习(十四)——数组操作总结 splice
- 操作Perl数组: shift, unshift, push, pop
- Perl中对数组进行操作的操作符
- php中数组的常见操作函数
- jquery学习--数组操作
- 用指针操作多维数组
- Java基础---使用Arrays类操作Java中的数组(三十二)