下面總結一下,針對陣列,splice的使用,下面是**,注釋已經寫的很清楚了。
執行效果:#!/usr/bin/perl -w
@array = 0..5;
print $array[0]."\n";
print $array[1]."\n";
print $array[2]."\n";
print $array[3]."\n";
print $array[4]."\n";
print $array[5]."\n";
print "******************************\n";
#splice 2個引數 對目標陣列進行擷取,並返回
#param1 陣列本身
#param2 從某個位置開始splice,直到最後
@remove = splice @array,3;
print $array[0]."\n";
print $array[1]."\n";
print $array[2]."\n";
print $array[3]."\n";
print $array[4]."\n";
print $array[5]."\n";
print "******************************\n";
print $remove[0]."\n";
print $remove[1]."\n";
print $remove[2]."\n";
print $remove[3]."\n";
print $remove[4]."\n";
#splice 3個引數 對目標陣列進行擷取指定個數的元素,並返回
#param1 陣列本身
#param2 從某個位置開始splice
#param3 刪除的個數
@array1 = 0..5;
@remove1 = splice @array1,2,1;
print "******************************\n";
print $array1[0]."\n";
print $array1[1]."\n";
print $array1[2]."\n";
print $array1[3]."\n";
print $array1[4]."\n";
print $array1[5]."\n";
print "******************************\n";
print $remove1[0]."\n";
#splice 4個引數 對目標陣列進行擷取指定個數的元素,新增另乙個輸入到當前陣列中,並返回刪除的元素
#param1 陣列本身
#param2 從某個位置開始splice
#param3 刪除的個數
#param4 需要插入的陣列
@array2 = 0..5;
@newarray2 = splice @array2,2,1,qw(aa bb cc);
print "******************************\n";
print $array2[0]."\n";
print $array2[1]."\n";
print $array2[2]."\n";
print $array2[3]."\n";
print $array2[4]."\n";
print $array2[5]."\n";
print $array2[6]."\n";
print $array2[7]."\n";
print $array2[8]."\n";
print "******************************\n";
print $newarray2[0]."\n";
print $newarray2[1]."\n";
PERL的陣列操作
此次我們說下,關於perl中陣列的頭尾操作,當然這是在不使用索引的情況下,類似與彙編當中,push和pop是在尾部,或者說在陣列的右邊進行的新增或者刪除操作,演示 如下 array 5.9 fred pop array 原陣列array中是 5 6 7 8 9,pop之後則是5 6 7 8 prin...
perl的陣列操作
list b 生成連續的一列數字或字母 b my numbers 1.100 my chars a.z b 新增或者刪除元素 b shift 移除陣列的第乙個元素 unshift 新增乙個元素到陣列的最後 push 新增乙個元素到陣列的第乙個元素 pop 去除陣列的最後乙個元素。table func...
perl 檔案操作總結
一 開啟 關閉檔案 open的返回值用來確定開啟檔案的操作是否成功,當其成功時返回非零值,失敗時返回零,因此可以如下判斷 if open myfile,myfile 當檔案操作完畢後,用close myfile 關閉檔案。讀 open 檔案控制代碼,檔名 open 檔案控制代碼,檔名 前提檔案必須已...