宜张高速隧道雷达检测报告

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进行操作