PERL的数组操作
??????? 此次我们说下,关于PERL中数组的头尾操作,当然这是在不使用索引的情况下,类似与汇编当中,PUSH和pop是在尾部,或者说在数组的右边进行的添加或者删除操作, 演示代码如下: ?????? @array=5..9; 在数组的尾部进行操作,我们说完了,现在说下在数组的头部进行操作的,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; (编辑:李大同) 【声明】本站内容均来自网络,其相关言论仅代表作者个人观点,不代表本站立场。若无意侵犯到您的权利,请及时与联系站长删除相关内容! |