Perl语言基础.ppt

1、2020/6/18,1,Perl语言基础,2020/6/18,2,Perl语言特性Perl语言数据结构Perl语言控制结构Perl语言模式匹配Perl语言子程序,2020/6/18,3,Perl语言特性,解释性编程语言开源软件(/)Perl(PracticalExtractionandReportLanguage)文字分析报告语言,2020/6/18,4,Perl语言特性Perl语言数据结构Perl语言控制结构Perl语言模式匹配Perl语言子程序,2020/6/18,5,Perl语言数据结构,scalars用$开头定义的变量，比如$fooscalar

2、s数组用开头定义的变量，比如foo，里面的每个元素都是scalarsscalars联合数组用开头定义的变量，比如foo，里面的每个元素都是scalarsNOTE：1.Perl变量名称对大小写敏感,$foo和$Foo是两个不同的变量。2.Perl每种数据结构有专门的命名空间,$foo和foo是两个不同的变量。3.显式申明一个变量使用my或者our。,2020/6/18,6,Perl语言数据结构-scalars,在Perl语言中变量的使用不像在C语言中还要事先申明,在使用纯量变量的时候要先加上$这个符号,要注意的是如果指定的纯量变量是一个字符串的话,就要加上“”这个双引号符号了。如果是一个数值的话

3、,就不用加上“”这个符号了。示例：my($Str1,$str2);mystr3;$Strl=www;#将www这个字符串指定给$Strl这个纯量变量;$str2=cgi;#将cgi这个字符串指定给$str2这个纯量变量;$str3=$strl.$str2;#.就是把两个字符串连起来,所以$str3=wwwc20;$int=5;#将5这个数字指定给$int这个纯量变量;$int=3+2;#此时$int=5;$int=l0;$int+;#此时$int=10+l=11;$int=l0,$int+=5;#此时$int=10+5=15;,2020/6/18,7,Perl语言数据结构-scalars数组,

4、数组操作与乐高积木示例：namel=(“tom”,“mary”);#将“tom”,“mary”这两个字符串指定给数组name1name2=name1;#此时的name2=(tom,mary)pame3=(john,name1);#此时的(name3=(john,tom,mary)($one,name4)=name3;#此时的$one=john,而name4=(tommary)namel=0;#此时name1为一个空数组,2020/6/18,8,Perl语言数据结构-scalars数组,int=(1,3,5,7,9);$x=int;#将一个数组指定给一纯量变量,就会返回数组元素的个数,所以此时的

5、$x=5$x=$#int;#$#这个变量会返回数组最后一个元素的index所以此时$x=4($x)=int;#$x等于数组int的第一个元素的值,所以此时$x=1$b=$int0;#$b等于数组int的第一个元素,所以$b=1$C=int0;#$c也是会等于数组int的第一个元素,所以$c=1,因此要呼叫数组中的值有以上两种方法,2020/6/18,9,Perl语言数据结构-scalars数组,$int0=2;#将2这个数值指定给数组int的第一个元素此时int=(2,3,5,7,9);$int0,1=1,3;#将1指定给数组int的第一个元素,且将3指定给数组int的第二个元素的,所以此时i

6、nt=(1,3,5,7,9);int0,1=int1,0;#将数组int的前两个元素交换此时int=(3,1,5,7,9)($int0,$int1)=($intl,$int0);#也是将数组int的前两个元素交换此时int=(1,3,5,7,9)data=int0,l;#此时date=(1,3);$int5=11;#将11这个数值指定给数组int中第六个元素此时int=(1,3,5,7,9,11),2020/6/18,10,Perl语言数据结构-scalars联合数组,联合数组也叫hash结构、关联数组等。联合数组也是数组的一种,是由不同的纯量变量所组成。联合数组中的元素是由成对的key-va

7、lue所组成。定义：%ARRAY=(keyl,value1,key2,value2,key3,value3.);增加：$ARRAYkey=value;取出：$get=$ARRAYkey;删除delete$ARRAYkey;,2020/6/18,11,Perl语言数据结构-scalars联合数组,使用示例：%NAMES=I,one,2,two);$one=$NAMES1;#此时$one等于one“$two=$NAMES2;#此时$two等于two“$NAMES3=third;#增加一对key-value到关联数组NAMES中，此时的%NAMES=(1,one,2,two,3,third);$NA

8、MES3=three;#把key为3所对应的value更改成three此时%NAMES=(1,one,2,two,3,three);delete$NAMES3;#将关联数组中key值为3的一对key-value删除掉,#此时%NAMES=(1,one,2,two);,2020/6/18,12,Perl语言数据结构-scalars联合数组,X=%NAMES;#将关联数组NAMES指派给数组X#此时X=(1,one,2,two);%Y=x;#将数组X指派给关联数组Y,此时%Y=(1,one,2,two);%NAMES=();#此时%NAMES为一个空的关联数组,2020/6/18,13,Perl语

9、言特性Perl语言数据结构Perl语言控制结构Perl语言模式匹配Perl语言子程序,2020/6/18,14,Perl语言控制结构,条件判断循环：1、while循环2、until循环3、for循环4、针对列表(数组)每个元素的foreach循环5、do循环6、循环控制7、传统的goto语句单行条件,2020/6/18,15,Perl语言控制结构-条件判断,条件判断if()elsif().else,2020/6/18,16,Perl语言控制结构-循环,while循环while()until循环until()类C的for循环for($count=1;$count0);print(Notzeroy

10、et.n)until($var-=0);,2020/6/18,20,Perl语言特性Perl语言数据结构Perl语言控制结构Perl语言模式匹配Perl语言子程序,2020/6/18,21,Perl语言模式匹配,简介匹配操作符模式中的特殊字符模式匹配选项替换操作符,2020/6/18,22,Perl语言模式匹配-简介,模式指在字符串中寻找的特定序列的字符，由反斜线包含：/def/即模式def。模式匹配也叫正则匹配。模式匹配是Perl的一大特点。,2020/6/18,23,Perl语言模式匹配-操作符,语法：$line=m/xxxx/;$line=s/pattern/replacement/gi

11、示例：if($question=/please/)print(Thankyouforbeingpolite!n);elseprint(Thatwasnotverypolite!n);,2020/6/18,24,Perl语言模式匹配-特殊字符,1）字符+：匹配一个或多个相同的字符2）字符*：匹配零个或多个相同的字符3）字符?：匹配0个或1个字符4）：匹配其中的一个字符5）：表示除其之外的所有字符6）:匹配行首7）$：匹配行尾8）d任意数字0-99）D除数字外的任意字符0-910）w任意单词字符_0-9a-zA-Z11）W任意非单词字符_0-9a-zA-Z12）s空白rtnf13）S非空白rtnf

12、14）：所匹配字符的出现次数15）()：保存匹配结果,2020/6/18,25,Perl语言模式匹配-特殊字符,示例：$line=“18276zjmsc01”;$line=/(d+)s+(w+)/result:$1=18276;$2=zjmsc01;0-9表示09数字的a-z表示任意小写字母A-Z表示任意大写字母0-9a-zA-Z表示任意大小写字母、数字,2020/6/18,26,Perl语言模式匹配-匹配选项,2020/6/18,27,Perl语言模式匹配-匹配选项,匹配所有可能的模式(g选项)示例matches=balata=/.a/g;#nowmatches=(ba,la,ta)匹配的循

13、环：while(balata=/.a/g)$match=$结果为：balata,2020/6/18,28,Perl语言模式匹配-匹配选项,将字符串看作单行例/a.*bc/s匹配字符串axxxxxnxxxxbc，但/a.*bc/则不匹配该字符串；只执行一次变量替换例$var=1;$line=;while($var;$var+;每次均匹配/1/，匹配的内容不因为$var变化而变化。,2020/6/18,29,Perl语言模式匹配-匹配选项,保存匹配结果$string=Thisstringcontainsthenumber25.11.;$string=/(d+).(d+)/;#匹配结果为25.11$integerpart=$1;#now$integerpart=25$decimalpart=$2;#now$decimalpart=11$totalpart=$&;#nowtotalpart=25.11NOTE：1，模式匹配后调用重用部分的结果可用变量$n。2，全部的结果用变量$string=s/123/456/;#now$string=abc456def;,2020/6/18,31,Perl语言模式匹配-替换操作符,2020/6/18,32,Perl语言模式匹配-替换操作符,e参数示例$string=0abc1;$string=