perl pop push shift unshift實(shí)例介紹
更新時(shí)間：2013年02月09日 22:54:15 作者：
perl的pop跟push操作數(shù)組的最右邊，shift跟unshift操作數(shù)組的最左邊
學(xué)習(xí)記錄一下
#!/usr/bin/perl -w
use strict;
print '@a @b @c @d 的值都為1 2 3',"\n";
my @a = (1..3);
pop(@a);
print "\@a的值為@a,pop拿掉數(shù)組最右邊的值\n";
my @b = (1..3);
push(@b,'4');
print "\@b的值為@b,push添加一個(gè)值到數(shù)組的最右邊。\n";
my @c = (1..3);
shift@c;
print "\@c的值為@c,shift拿掉數(shù)組最左邊的一個(gè)值。\n";
my @d = (1..3);
unshift(@d,0);
print "\@d的值為@d,unshift添加一個(gè)值到數(shù)組的最左邊。\n";
[root@OTRS perl]# perl pop_push_shift_unshift.pl
@a @b @c @d 的值都為1 2 3
@a的值為1 2,pop拿掉數(shù)組最右邊的值
@b的值為1 2 3 4,push添加一個(gè)值到數(shù)組的最右邊。
@c的值為2 3,shift拿掉數(shù)組最左邊的一個(gè)值。
@d的值為0 1 2 3,unshift添加一個(gè)值到數(shù)組的最左邊。
復(fù)制代碼 代碼如下:
#!/usr/bin/perl -w
use strict;
print '@a @b @c @d 的值都為1 2 3',"\n";
my @a = (1..3);
pop(@a);
print "\@a的值為@a,pop拿掉數(shù)組最右邊的值\n";
my @b = (1..3);
push(@b,'4');
print "\@b的值為@b,push添加一個(gè)值到數(shù)組的最右邊。\n";
my @c = (1..3);
shift@c;
print "\@c的值為@c,shift拿掉數(shù)組最左邊的一個(gè)值。\n";
my @d = (1..3);
unshift(@d,0);
print "\@d的值為@d,unshift添加一個(gè)值到數(shù)組的最左邊。\n";
[root@OTRS perl]# perl pop_push_shift_unshift.pl
@a @b @c @d 的值都為1 2 3
@a的值為1 2,pop拿掉數(shù)組最右邊的值
@b的值為1 2 3 4,push添加一個(gè)值到數(shù)組的最右邊。
@c的值為2 3,shift拿掉數(shù)組最左邊的一個(gè)值。
@d的值為0 1 2 3,unshift添加一個(gè)值到數(shù)組的最左邊。
相關(guān)文章
有關(guān)perl的內(nèi)置特殊變量，很全面，有需要的朋友收藏下吧2013-02-02
本文和大家重點(diǎn)討論一下Perl Hash的用法，哈希是一種數(shù)據(jù)結(jié)構(gòu)，和數(shù)組類似，但是，和數(shù)組不同的是，其索引不是數(shù)字，而是名字。也就是說，索引(這里，我們將它叫key)不是數(shù)字而是任意的唯一的字符串2013-02-02
Perl語言有很多值得學(xué)習(xí)的地方，那么你對(duì)Perl哈希表的概念是否熟悉呢，這里和大家分享一下，希望本文的介紹能讓你有所收獲2013-02-02
perl控制流介紹(if條件，while,for循環(huán),foreach)
Perl控制流(if條件，while,for循環(huán))，需要的朋友可以參考下2013-02-02
這篇文章主要介紹了Perl List::Util模塊使用實(shí)例,本文給出掃描符合條件的某個(gè)列表并取出第一個(gè)符合條件的、求1到1000之間的和 、求一組數(shù)字的最大值與最小值等實(shí)用功能代碼,需要的朋友可以參考下2015-06-06
perl高級(jí)排序，<=>操作符，飛船操作符
perl高級(jí)排序的關(guān)鍵在于要指定排序的方式，使用的操作符是spaceship operator（<=>)2013-02-02
這篇文章主要介紹了Perl生成純HTML代碼二維碼實(shí)例,需要的朋友可以參考下2014-06-06
這篇文章主要介紹了Perl中的文件讀寫學(xué)習(xí)筆記,本文講解了打開、關(guān)閉文件、讀文件、寫文件、判斷文件狀態(tài)等內(nèi)容,需要的朋友可以參考下2015-02-02
這篇文章主要介紹了perl與shell獲取昨天、明天或多天前的日期的代碼,需要的朋友可以參考下2014-04-04
Linux/Unix下安裝Perl模塊有兩種方法：手工安裝和自動(dòng)安裝。一是從CPAN上下載需要的模塊，手工編譯、安裝。二是聯(lián)上internet，使用一個(gè)叫做CPAN的模塊自動(dòng)完成下載、編譯、安裝的全過程2013-02-02