1、宜張高速公路隧道地質雷達檢測報告宜張高速公路總監辦中心試驗室二一四年十一月根據宜張高速公路總監辦及合同要求，中心試驗室于2014年11月5日7日對土建2標的丁家坪隧道、燈盞窩隧道、長嶺崗隧道砼襯砌質量采用地質雷達儀進行了質量抽檢。一、檢測內容根據隧道結構受力的特點，本次隧道砼襯砌質量檢測采用對兩側拱腰及拱頂三條線檢測，檢測內容為：砼襯砌（二襯）質量、厚度及初襯后缺陷情況。二、檢測儀器設備本次工作使用儀器設備如下：雷達：瑞典產RAMAC/GPR地質雷達，選用500MHz屏蔽天線。采集軟件：RAMAC GroundVision V1.4.4版 1、儀器介紹RAMAC/GPR地質雷達是一種寬帶高頻電

2、磁波信號探測方法，它是利用電磁波信號在物體內部傳播時電磁波的運動特點進行探測的。雷達組成及探測方法如下：地質雷達系統主要由以下幾部分組成（如下圖所示）：雷達系統組成示意圖、控制單元：控制單元是整個雷達系統的管理器，計算機（32位處理器）對如何測量給出詳細的指令。系統由控制單元控制著發射機和接收機，同時跟蹤當前的位置和時間。、發射機：發射機根據控制單元的指令，產生相應頻率的電信號并由發射天線將一定頻率的電信號轉換為電磁波信號向地下發射，其中電磁信號主要能量集中于被研究的介質方向傳播。、接收機：接收機把接收天線接收到的電磁波信號轉換成電信號并以數字信息方式進行存貯。、電源、光纜、通訊電纜、觸發盒、

3、測量輪等輔助元件。 2、雷達檢測基本原理探地雷達（Ground Penetrating Radar，簡稱GPR）依據電磁波脈沖在地下傳播的原理進行工作。發射天線將高頻（106109Hz或更高）的電磁波以寬帶短脈沖形式送入檢測層，被檢測層介質（或埋藏物）反射，然后由接收天線接收（如下圖）。探地雷達主要利用寬帶高頻時域電磁脈沖波的反射探測目的體。 由公式 雷達根據測得的雷達波走時，自動求出反射物的深度z和范圍。 雷達的測試原理及其探測方法根據電磁波理論，當雷達脈沖在地下傳播過程中，遇到不同電性介質交界面時，由于上下介質的電磁特性不同而產生折射和反射。使用相應雷達數據處理軟件，進行資料處理。對數據文

4、件進行了預處理、增益調整、濾波和成圖等方法的處理。最終得到各測線的成果圖，以此對隧道內部砼質量、厚度等指標進行分析評價工作。 三、檢測依據1、公路工程質量檢驗評定標準（JTG F80/1-2004）；2、公路隧道施工技術規范（JTG F60-2009）；3、公路隧道設計規范（JTG D70-2004）； 4、相關設計圖紙、文件。四、檢測情況 1、檢測部位 由于隧道結構受力的特點，本次檢測以對最不利位置進行檢測為原則，選取檢測部位為左拱腰（測線A）、拱頂（測線B）、右拱腰（測線C）三條線縱向連續檢測。檢測位置斷面圖如下： 2、檢測工作情況中心試驗室于2014年11月5日7日，采用地質雷達儀圓滿完

5、成了對丁家坪隧道、燈盞窩隧道、長嶺崗隧道砼襯砌質量抽檢工作。具體檢測工作完成情況如下：丁家坪隧道：ZK63+020-ZK63+320、ZK63+970-ZK64+170、YK62+900-YK63+200、YK64+030-YK64+230段燈盞窩隧道：ZK62+100-ZK64+400、YK62+150-YK62+450段長嶺崗隧道：ZK74+230-ZK74+530、YK74+355-YK74+555段五、檢測結果 （一）、對厚度檢測本次檢測依照公路工程質量檢驗評定標準（JTG F80/12004）要求，砼襯砌厚度按不小于設計值評判，每測線每10米檢測一點，計算合格率，具體檢測結果如下（單

6、點檢測記錄附后）：二襯厚度檢測情況匯總表標段隧道名稱檢測點數合格點數合格率備注土建2標丁家坪隧道31224979.8%燈盞窩隧道18613472.0%長嶺崗隧道15612580.1%從檢測結果來看，丁家坪隧道、燈盞窩隧道、長嶺崗隧道砼襯砌（二襯）厚度合格率均不足90%。 （二）、砼襯砌（二襯）、初襯及初襯后圍巖質量的檢測從本次對砼襯砌（二襯）、初期支護及初支后圍巖質量的檢測結果來看，各隧道砼襯砌及初支總體質量滿足設計要求，但存在局部砼襯砌內部不密實、襯砌砼與初襯脫空等問題，具體檢測發現的問題如下：1、丁家坪隧道ZK63+083-088拱頂二襯局部砼脫空2、丁家坪隧道ZK63+120-124拱頂

7、二襯局部脫空不密實，且存在夾層3、丁家坪隧道YK62+919-923拱頂二襯與初支局部脫空，砼不密實4、丁家坪隧道YK63+172-178左側拱腰二襯與初支存在脫空，局部砼不密實5、燈盞窩隧道YK62+425-417拱頂二襯局部脫空，砼不密實6、燈盞窩隧道ZK62+248-252右側拱腰二襯與初支間局部脫空7、燈盞窩隧道ZK62+291-286拱頂二襯與初支局部脫空。8、燈盞窩隧道ZK62+278-282、ZK62+286-292右側拱腰二襯與初支局部脫空。9、燈盞窩隧道ZK62+360-363右側拱腰二襯與初支局部脫空10、長嶺崗隧道YK74+371-377右側拱腰二襯與初支局部脫空11、長

8、嶺崗隧道ZK74+279-281拱頂二襯局部空洞，ZK74+285-291砼不密實12、長嶺崗隧道ZK74+485-488拱頂二襯局部空洞，ZK74+479-474二襯與初支間脫空13、長嶺崗隧道ZK74+514-510拱頂二襯與初支局部脫空，砼不密實（三）、砼襯砌（二襯）局部厚度存在嚴重不足情況通過對砼襯砌（二襯）、初支及初支雷達檢測斷面圖分析，個別隧道局部存在砼襯砌（二襯）厚度偏薄。具體部位如下：1、丁家坪隧道ZK63+062-071拱頂二襯砼厚度偏薄，平均厚度為：21cm。2、丁家坪隧道ZK64+025-027右側拱頂、拱腰二襯砼厚度偏薄，平均厚度為：25cm。附件：各隧道砼襯砌厚度檢測

9、記錄丁家坪隧道砼襯砌厚度檢測記錄表樁號設計厚度(cm)左拱腰實測厚度(cm)拱頂實測厚度(cm)右拱腰實測厚度(cm)備注ZK63+02045474639ZK63+03045394049ZK63+04045463842ZK63+05045484747ZK63+06040472143ZK63+07040282541ZK63+08035413835ZK63+09035383937ZK63+10035413539ZK63+11035443742ZK63+12035362935ZK63K63K63K63+1603539353

10、7ZK63K63K63+19035423641ZK63+20040403144ZK63+21040343245ZK63+22040413341ZK63+23040413240ZK63+24040434243ZK63+25040414042ZK63+26040403443ZK63+27040323240ZK63+28040403142ZK63+29040343141ZK63+30040424243ZK63+31040444442ZK63+32040354041YK62+90035374237YK62+91035424441YK62+920354

11、54139YK62+93035414537YK62+94035423841YK62+95040424441YK62+96040453542YK62+97040414343YK62+98040434241YK62+99040464448YK63+00045483948YK63+01045453445YK63+02045424146YK63+03045463842YK63+04045462945YK63+05045413345YK63+06040423340YK63+07040423443YK63+08035394139YK63+09035373936YK63+10035414337YK63+11

12、035384235YK63+12035364435YK63K63K63K63+16035454228YK63K63K63+19035403738YK63+20040424643ZK63+97040434246ZK63+98040414542ZK63+99040324852ZK64+00040434441ZK64+01040404543ZK64+02040413025ZK64+03040454442ZK64+04040424742ZK64+05040344444ZK6

13、4+06040344541ZK64+07040424241ZK64+08040323441ZK64+09040404345ZK64+10040424641ZK64+11040414145ZK64+12040454735ZK64K64K64K64+16040333542ZK64K64+03040464043YK64+04040444042YK64+05040413542YK64+06040454241YK64+07040434043YK64+08040414340YK64+0904045454

14、7YK64+10040404341YK64+11040424141YK64+12040354034YK64K64K64K64+16040323430YK64K64K64+19040433545YK64+20040424237YK64+21045454746YK64+22045423642YK64+23045404145燈盞窩隧道砼襯砌厚度檢測記錄表樁號設計厚度(cm)左拱腰實測厚度(cm)拱頂實測厚度右拱腰實測厚度(cm)備注ZK62+10040373735ZK62

15、+11040413033ZK62+12040404142ZK62K62K62K62+16040373442ZK62K62K62+19035363535ZK62+20035413839ZK62+21035384142ZK62+22035413837ZK62+23040453136ZK62+24040403341ZK62+25040354542ZK62+26040414042ZK62+27040313240ZK62+28040313541ZK62+29040373641

16、ZK62+30040424741ZK62+31040404645ZK62+32040334144ZK62+33040424445ZK62+34035444036ZK62+35035433638ZK62+36035413543ZK62+37035363941ZK62+38035383742ZK62+39035354145ZK62+40035373639YK62K62+16045414232YK62K62K62+19045333431YK62+20045353827YK62+21050394754YK62+2204036

17、4544YK62+23040413436YK62+24040354143YK62+25040423635YK62+26040454542YK62+27040414240YK62+28040434045YK62+29040424041YK62+30040454443YK62+31040454138YK62+32035403535YK62+33035383741YK62+34035413944YK62+35035324243YK62+36050425241YK62+37035394041YK62+38035403843YK62+39035434139YK62+40035403939YK62+410

18、35413337YK62+42035394039YK62+43035433841YK62+44035404035YK62+45035423944長嶺崗隧道砼襯砌厚度檢測記錄表樁號設計厚度(cm)左拱腰實測厚度(cm)拱頂實測厚度(cm)右拱腰實測厚度(cm)備注ZK74+23040404540ZK74+24040454244ZK74+25040424343ZK74+26040463845ZK74+27040434744ZK74+28040424645ZK74+29040444248ZK74+30040374547ZK74+31040344249ZK74+32040354643ZK74+3304

19、0454544ZK74+34040404243ZK74+35040394745ZK74+36040484548ZK74+37040454148ZK74+38040414438ZK74+39040414541ZK74+40040454544ZK74+41040464543ZK74+42040423447ZK74+43040434643ZK74+44040434346ZK74+45040414138ZK74+46040454649ZK74+47040434237ZK74+48040464741ZK74+49040404442ZK74+50040464345ZK74+51040424543ZK74+

20、52040464542ZK74+53040454447YK74+35540424040YK74+36540424438YK74+37540434245YK74+38540463943YK74+39540413335YK74+40540384543YK74+41540434440YK74+42540464245YK74+43540463647YK74+44540404542YK74+45540434146YK74+46540423241YK74+47540434144YK74+48540364238YK74+49540404334YK74+50540413241YK74+51540454528Y

21、K74+52540383339YK74+53540433631YK74+54540333732YK74+55540363536附錄資料：不需要的可以自行刪除 perl函數應用一、進程處理函數1、進程啟動函數函數名eval調用語法eval(string)解說將string看作Perl語句執行。正確執行后，系統變量$為空串，如果有錯誤，$中為錯誤信息。例子$print = print (hello,worldn);eval ($print);結果輸出hello, world函數名system調用語法system(list)解說list中第一個元素為程序名，其余為參數。system啟動一個進程運行程

22、序并等待其結束，程序結束后錯誤代碼左移八位成為返回值。例子proglist = (echo, hello,world!);system(proglist);結果輸出hello, world!函數名fork調用語法procid = fork();解說創建程序的兩個拷貝-父進程和子進程-同時運行。子進程返回零，父進程返回非零值，此值為子程序的進程ID號。例子$retval = fork();if ($retval = 0) # this is the child process exit; # this terminates the child process else # this is the

23、 parent process結果輸出無函數名pipe調用語法pipe (infile, outfile);解說與fork合用，給父進程和子進程提供通信的方式。送到outfile文件變量的信息可以通過infile文件變量讀取。步驟：1、調用pipe2、用fork將程序分成父進程和子進程3、一個進程關掉infile，另一個關掉outfile例子pipe (INPUT, OUTPUT);$retval = fork();if ($retval != 0) # this is the parent process close (INPUT); print (Enter a line of input

24、:n); $line = ; print OUTPUT ($line); else # this is the child process close (OUTPUT); $line = ; print ($line); exit (0);結果輸出$programEnter a line of input:Here is a test lineHere is a test line$函數名exec調用語法exec (list);解說與system類似，區別是啟動新進程前結束當前程序。常與fork合用，當fork分成兩個進程后，子進程用exec啟動另一個程序。例子 結果輸出函數名syscall調

25、用語法syscall (list);解說調用系統函數，list第一個元素是系統調用名，其余為參數。如果參數是數字，就轉化成C的整型數(type int)。否則傳遞字符串的指針。詳見UNIX的幫助或Perl文檔。使用syscall必須包含文件syscall.pl，即：require (syscall.ph); 例子結果輸出2、進程終止函數函數名Die調用語法die (message);解說終止程序并向STDERR輸出錯誤信息。message可以為字符串或列表。如果最后一個參數不包含換行符，則程序文件名和行號也被輸出。例子die (Cannot open input file);結果輸出Canno

26、t open input file at myprog line 6.函數名warn調用語法warn (message);解說與die類似，區別是不終止程序。例子warn(Danger! Danger!n);結果輸出Danger! Danger!函數名exit調用語法exit (retcode);解說終止程序并指定返回值。例子exit(2);結果輸出無函數名kill調用語法kill (signal, proclist);解說給一組進程發送信號。signal是發送的數字信號，9為殺掉進程。proclist是進程ID列表。詳見kill的UNIX幫助。例子結果輸出3、進程控制函數函數名sleep調用

27、語法sleep (time);解說將程序暫停一段時間。time是停止的秒數。返回值為實際停止的秒數。例子sleep (5);結果輸出無函數名wait調用語法procid = wait();解說暫停程序執行，等待子進程終止。不需要參數，返回值為子進程ID，如果沒有子進程，返回-1。例子結果輸出函數名waitpid調用語法waitpid (procid, waitflag);解說暫停程序執行，等待特定的子進程終止。procid為等待的進程ID例子$procid = fork();if ($procid = 0) # this is the child process print (this lin

28、e is printed firstn); exit(0); else # this is the parent process waitpid ($procid, 0); print (this line is printed lastn);結果輸出$ programthis line is printed firstthis line is printed last$4、其它控制函數函數名caller調用語法subinfo = caller();解說返回調用者的程序名和行號，用于Perl Debugger。返回值為三元素的列表：1、調用處的包名2、調用者文件名3、調用處的行號例子結果輸出函

29、數名chroot調用語法chroot (dir);解說改變程序的根目錄，詳見chroot幫助。例子結果輸出函數名local調用語法local($variable);解說在語句塊(由大括號包圍的語句集合)中定義局域變量，僅在此語句塊中起作用，對其的改變不對塊外同名變量造成影響。千萬不要在循環中使用，否則每次循環都定義一個新的局域變量！例子結果輸出函數名times調用語法timelist = times解說返回該程序及所有子進程消耗的工作時間。返回值為四個浮點數的列表：1、程序耗用的用戶時間2、程序耗用的系統時間3、子進程耗用的用戶時間4、子進程耗用的系統時間例子結果輸出二、數學函數函數名sin調

30、用語法retval = sin (value);解說參數為弧度值。函數名cos調用語法retval = cos (value);解說參數為弧度值。函數名atan2調用語法retval = atan2 (value1, value2);解說運算并返回value1除以value2結果的arctan值，單位為弧度，范圍在-PIPI。應用例：角度轉化成弧度子程序。sub degrees_to_radians local ($degrees) = _; local ($radians);11: $radians = atan2(1,1) * $degrees / 45;函數名sqrt調用語法retval

31、 = sqrt (value);解說平方根函數。value為非負數。函數名exp調用語法retval = exp (value);解說返回e的value次方。函數名log調用語法retval = log (value);解說以e為底的自然對數。函數名abs調用語法retval = abs (value);解說絕對值函數。(Perl 4中沒有)函數名rand調用語法retval = rand (num);解說隨機數函數，返回0和整數num之間的一個浮點數。函數名srand調用語法srand (value);解說初始化隨機數生成器。保證每次調用rand真正隨機。三、字符串處理函數函數名index調

32、用語法position = index (string, substring, position);解說返回子串substring在字符串string中的位置，如果不存在則返回-1。參數position是可選項，表示匹配之前跳過的字符數，或者說從該位置開始匹配。函數名rindex調用語法position = rindex (string, substring, position);解說與index類似，區別是從右端匹配。函數名length調用語法num = length (string);解說返回字符串長度，或者說含有字符的數目。函數名pos調用語法offset = pos(string);解

33、說返回最后一次模式匹配的位置。函數名substr調用語法substr (expr, skipchars, length)解說抽取字符串（或表達式生成的字符串）expr中的子串，跳過skipchars個字符，或者說從位置skipchars開始抽取子串（第一個字符位置為0），子串長度為length，此參數可忽略，意味著取剩下的全部字符。當此函數出現在等式左邊時，expr必須為變量或數組元素，此時其中部分子串被等式右邊的值替換。函數名study調用語法study (scalar);解說用一種內部格式提高變量的訪問速度，同一時刻只對一個變量起作用。函數名lcuc調用語法retval = lc(stri

34、ng);retval = uc(string);解說將字符串全部轉換成小/大寫字母。函數名lcfirstucfirst調用語法retval = lcfirst(string);retval = ucfirst(string);解說將第一個字母轉換成小/大寫。函數名quotameta調用語法newstring = quotemeta(oldstring);解說將非單詞的字母前面加上反斜線()。語句 ： $string = quotemeta($string);等效于：$string = s/(W)/$1/g;常用于模式匹配操作中，確保字符串中沒有字符被看作匹配操作符。函數名join調用語法joi

35、n (joinstr, list);解說把字符串列表(數組)組合成一個長的字符串，在每兩個列表元素間插入串joinstr。函數名sprintf調用語法sprintf (string, fields);解說與printf類似，區別是結果不輸出到文件，而作為返回值賦給變量。例子$num = 26;$outstr = sprintf(%d = %x hexadecimal or %o octaln,$num, $num, $num);print ($outstr);結果輸出26 = 1a hexadecimal or 32 octal四、標量轉換函數函數名chop調用語法$lastchar = ch

36、op (var);解說var可為變量或數組，當var為變量時，最后一個字符被刪除并賦給$lastchar，當var為數組/列表時，所有元素的最后一個字符被刪除，最后一個元素的最后一個字母賦給$lastchar。函數名chomp調用語法result = chomp(var);解說檢查字符串或字符串列表中元素的最后一個字符是否為由系統變量$/定義的行分隔符，如果是就刪除。返回值為實際刪除的字符個數。函數名crypt調用語法result = crypt (original, salt);解說用DES算法加密字符串，original是將要加密的字符串，salt是兩個字符的字符串，定義如何改變DES算法

37、，以使更難解碼。返回值為加密后的串。函數名hex調用語法decnum = hex (hexnum);解說將十六進制數(字符串形式)轉化為十進制數。函數名int調用語法intnum = int (floatnum);解說將浮點數舍去小數部分轉化為整型數。函數名oct調用語法decnum = oct (octnum);解說將八進制數(字符串形式)或十六進制數(0 x.形式)轉化為十進制數。函數名ord調用語法asciival = ord (char);解說返回單個字符的ASCII值，與PASCAL中同名函數類似。函數名chr調用語法$char = chr (asciival);解說返回ASCII值

38、的相應字符，與PASCAL中同名函數類似。函數名pack調用語法formatstr = pack(packformat, list);解說把一個列表或數組以在實際機器存貯格式或C等編程語言使用的格式轉化（包裝）到一個簡單變量中。參數packformat包含一個或多個格式字符，列表中每個元素對應一個，各格式字符間可用空格或tab隔開，因為pack忽略空格。除了格式a、A和外，重復使用一種格式多次可在其后加個整數，如： $twoints = pack (i2, 103, 241);把同一格式應用于所有的元素則加個*號，如： $manyints = pack (i*, 14, 26, 11, 83)

39、;對于a和A而言，其后的整數表示要創建的字符串長度，重復方法如下： $strings = pack (a6 x 2, test1, test2);格式的情況比較特殊，其后必須加個整數，該數表示字符串必須的長度，如果長度不夠，則用空字符(null)補足，如： $output = pack (a 6 a, test, test2);pack函數最常見的用途是創建可與C程序交互的數據，例如C語言中字符串均以空字符(null)結尾，創建這樣的數據可以這樣做： $Cstring = pack (ax, $mystring);下表是一些格式字符與C中數據類型的等價關系：字符 等價C數據類型Ccharddo

40、ubleffloatiintIunsigned int (or unsigned)llongLunsigned longsshortSunsigned short完整的格式字符見下表。 格式字符 描述a用空字符(null)補足的字符串A用空格補足的字符串b位串，低位在前B位串，高位在前c帶符號字符（通常-128127）C無符號字符（通常8位）d雙精度浮點數f單精度浮點數h十六進制數串，低位在前H十六進制數串，高位在前i帶符號整數I無符號整數l帶符號長整數L無符號長整數n網絡序短整數N網絡序長整數p字符串指針s帶符號短整數S無符號短整數u轉化成uuencode格式vVAX序短整數VVAX序長整數

41、x一個空字節X回退一個字節以空字節(null)填充函數名unpack調用語法list = unpack (packformat, formatstr);解說unpack與pack功能相反，將以機器格式存貯的值轉化成Perl中值的列表。其格式字符與pack基本相同（即上表），不同的有：A格式將機器格式字符串轉化為Perl字符串并去掉尾部所有空格或空字符；x為跳過一個字節；為跳過一些字節到指定的位置，如4為跳過4個字節。下面看一個和X合同的例子： $longrightint = unpack (* X4 L, $packstring);此語句將最后四個字節看作無符號長整數進行轉化。下面看一個對uu

42、encode文件解碼的例子：1 : #!/usr/local/bin/perl2 : 3 : open (CODEDFILE, /u/janedoe/codefile) |4 : die (Cant open input file);5 : open (OUTFILE, outfile) |6 : die (Cant open output file);7 : while ($line = ) 8 : $decoded = unpack(u, $line);9 : print OUTFILE ($decoded);10: 11: close (OUTFILE);12: close (CODED

43、FILE); 當將pack和unpack用于uuencode時，要記住，雖然它們與UNIX中的uuencode、uudecode工具算法相同，但并不提供首行和末行，如果想用uudecode對由pack的輸出創建的文件進行解碼，必須也把首行和末行輸出（詳見UNIX中uuencode幫助）。函數名vec調用語法retval = vec (vector, index, bits);解說顧名思義，vec即矢量(vector)函數，它把簡單變量vector的值看作多塊(維)數據，每塊含一定數目的位，合起來即一個矢量數據。每次的調用訪問其中一塊數據，可以讀取，也可以寫入。參數index就象數組下標一樣，提

44、出訪問哪一塊，0為第一塊，依次類推，要注意的是訪問次序是從右到左的，即第一塊在最右邊。參數bits指定每塊中的位數，可以為1,2,4,8,16或32。例子1 : #!/usr/local/bin/perl2 : 3 : $vector = pack (B*, 11010011);4 : $val1 = vec ($vector, 0, 4);5 : $val2 = vec ($vector, 1, 4);6 : print (high-to-low order values: $val1 and $val2n);7 : $vector = pack (b*, 11010011);8 : $va

45、l1 = vec ($vector, 0, 4);9 : $val2 = vec ($vector, 1, 4);10: print (low-to-high order values: $val1 and $val2n); 結果high-to-low order values: 3 and 13low-to-high order values: 11 and 12函數名defined調用語法retval = defined (expr);解說判斷一個變量、數組或數組的一個元素是否已經被賦值。expr為變量名、數組名或一個數組元素。如果已定義，返回真，否則返回假。函數名undef調用語法ret

46、val = undef (expr);解說取消變量、數組或數組元素甚至子程序的定義，回收其空間。返回值始終為未定義值，此值與空串等效。五、數組和列表函數函數名grep調用語法foundlist = grep (pattern, searchlist);解說與同名的UNIX查找工具類似，grep函數在列表中抽取與指定模式匹配的元素，參數pattern為欲查找的模式，返回值是匹配元素的列表。例子list = (This, is, a, test);foundlist = grep(/tT/, list);結果foundlist = (This, test);函數名splice調用語法retval

47、= splice (array, slipelements, length, newlist);解說拼接函數可以向列表（數組）中間插入元素、刪除子列表或替換子列表。參數skipelements是拼接前跳過的元素數目，length是被替換的元素數，newlist是將要拼接進來的列表。當newlist的長度大于length時，后面的元素自動后移，反之則向前縮進。因此，當length=0時，就相當于向列表中插入元素，而形如語句splice (array, -1, 0, Hello);則向數組末尾添加元素。而當newlist為空時就相當于刪除子列表，這時，如果length為空，就從第skipelements個元素后全部刪除，而刪除最后一個元素則為：splice (array, -1);這種情況下，返回值為被刪去的元素列表。函數名shift調用語法element = shift (arrayvar);解說刪去數組第一個元素，剩下元素前移，返回被刪去的元素。不加參數時，缺省地對ARGV進行操作