本文和大家重點(diǎn)討論一下Perl指令的概念及使用，比如Print指令，它的語法是printFilehandleLIST，這個(gè)Filehandle可以看作在I(INPUT)/O(OUTPUT)之間的一個(gè)橋梁,可以利用FILEHANDLE來做出數(shù)據(jù)讀入寫出的動作。

Perl指令大全

　　Perl指令：print

　　語法：printFilehandleLIST

　　說明：這個(gè)Filehandle可以看作在I(INPUT)/O(OUTPUT)之間的一個(gè)橋梁,可以利用FILEHANDLE來做出數(shù)據(jù)讀入寫出的動作.STDIN是代表從哪連輸入數(shù)據(jù),例如從電腦的鍵盤輸入;STDOUT是代表從哪連輸出數(shù)據(jù);例如從電腦的屏幕輸出;STDERR是代表從哪連輸出錯(cuò)誤的數(shù)據(jù),例如從電腦的屏幕輸出.而在Perl語言中有三個(gè)標(biāo)準(zhǔn)FILEHANDLE：1.STDIN(標(biāo)準(zhǔn)輸入)：是代表STDIN的FILEHANDLE

　　2.STDOUT(標(biāo)準(zhǔn)輸出)：是代表STDOUT的FILEHANDLE

　　3.STDERR(標(biāo)準(zhǔn)錯(cuò)誤輸出)：是代表STDERR的FILEHANDLE如果要使用其他FILEHANDLE的時(shí)候,就要用OPEN這個(gè)函數(shù)來打開一個(gè)FILEHANDLE,我們可以用PRINT這個(gè)函數(shù)LIST的數(shù)據(jù)輸出給FILEHANDLE.

　　在為大家介紹PRINT這個(gè)函數(shù)之前,先讓我們來看看PRINT函數(shù)中特殊打印字符：

　　Perl指令：#

　　說明：注釋符號Remark宣告

　　示例：#這是一個(gè)注釋說明

　　--------------------------------------------------------------------------------

　　Perl指令：print

　　語法：printFilehandleLIST

　　說明：這個(gè)Filehandle可以看作在I(INPUT)/O(OUTPUT)之間的一個(gè)橋梁,可以利用FILEHANDLE來做出數(shù)據(jù)讀入寫出的動作.STDIN是代表從哪連輸入數(shù)據(jù),例如從電腦的鍵盤輸入;STDOUT是代表從哪連輸出數(shù)據(jù);例如從電腦的屏幕輸出;STDERR是代表從哪連輸出錯(cuò)誤的數(shù)據(jù),例如從電腦的屏幕輸出.而在PERL語言中有三個(gè)標(biāo)準(zhǔn)FILEHANDLE：1.STDIN(標(biāo)準(zhǔn)輸入)：是代表STDIN的FILEHANDLE

　　2.STDOUT(標(biāo)準(zhǔn)輸出)：是代表STDOUT的FILEHANDLE

　　3.STDERR(標(biāo)準(zhǔn)錯(cuò)誤輸出)：是代表STDERR的FILEHANDLE如果要使用其他FILEHANDLE的時(shí)候,就要用OPEN這個(gè)函數(shù)來打開一個(gè)FILEHANDLE,我們可以用PRINT這個(gè)函數(shù)LIST的數(shù)據(jù)輸出給FILEHANDLE.

在為大家介紹PRINT這個(gè)函數(shù)之前,先讓我們來看看PRINT函數(shù)中特殊打印字符：

　　符號其作用

　　換行newline

　　光標(biāo)換行return

　　tab鍵

　　f換頁formfeed

　　退回一格

　　v垂直tab鍵

　　a響鈴Bell

　　eescape鍵

　　07十進(jìn)制ASCII碼

　　xff十六進(jìn)制碼

　　c[控制字符

　　示例：printSTDOUT"網(wǎng)上學(xué)園";將"網(wǎng)上學(xué)園"加上換行顯示在屏幕上.

　　語法：printLIST

　　說明：如果省略Filehandle的話,就會把Filehandle內(nèi)定為STDOUT.也就是會將LIST的數(shù)據(jù)內(nèi)容顯示在屏幕上.

　　示例：$url="www.netease.net/~zmd";

　　print"網(wǎng)上學(xué)園$url";

　　在屏幕上將會出現(xiàn)"網(wǎng)上學(xué)園www.netease.net/~zmd",如果想要讓雙引號內(nèi)的變量失效,可以在變量的前面加上""符號.例如：print"網(wǎng)上學(xué)園$url";這樣它就顯示："網(wǎng)上學(xué)園$url"

　　語法：print

　　說明：同省略Filehandle和LIST的話,就會以STDOUT為Filehandle,并會輸出$_這個(gè)內(nèi)定輸出變量的數(shù)據(jù)內(nèi)容.如果$_變量是一個(gè)空字符串的話,就會顯示出一個(gè)空字符串.

　　示例：$_="網(wǎng)上學(xué)園";print;就會將"網(wǎng)上學(xué)園"加上換行顯示在屏幕上

　　--------------------------------------------------------------------------------

　　Perl指令：printf

　　語法：printfFilehandleLIST

　　說明：在perl語言中也提代C語言中printf的語法,用法和C語言中的用法一模一樣.如果把Filehandle省略的話,也一樣會把STDOUT當(dāng)成是內(nèi)定的Filehandle.在為大家介紹printf函數(shù)之前,先讓我們來看看printf函數(shù)中變換符號的字符.

符號其作用

　　%c字符

　　%s字符串

　　%d整數(shù)

　　%f浮整數(shù)

　　%h十六進(jìn)制碼

　　%o八進(jìn)制碼

　　示例：printf("chomod%d%s","711""CGI");會將chmod711cgi加上換行顯示于屏幕上。#p#

　　--------------------------------------------------------------------------------

　　Perl指令：chop

       語法：chop($url)

　　說明：把***一個(gè)字符刪除。

　　示例：$url="www.nease.net/~zmd/";

　　chop($url);這時(shí)$url="www.nease.net/~zmd"而這兩行也可以寫成chop($url="www.nease.net/~zmd/");

　　--------------------------------------------------------------------------------

　　Perl指令：split

　　語法：split(/pattern/,$text,limit)其中/pattern/是文字處理的模式，而limit是代表要分割的個(gè)數(shù)，一般可以省略。

　　說明：用一個(gè)指定的文字處理模式來分割$text字符串。

　　示例：

　　$text="Michael,Gevin,Mike";@name=split(/,/,$text);#這時(shí)@name=("Michael","Gevin","Mike");

　　($a,$b,$c)=split(/,/,$text);#這時(shí)$a="Michael";$b="Gevin";$c="Mike";

　　@name=split(/,/,$string,2);#這時(shí)@name=("Michael","Gevin");

　　在傳送CGI應(yīng)用程序數(shù)據(jù)的時(shí)候會先將數(shù)據(jù)編碼，其中會將FORM中第個(gè)數(shù)據(jù)字段的數(shù)據(jù)內(nèi)容用&這個(gè)符號隔開，所以在解碼的時(shí)候就要以&這個(gè)符號為分割的字符，將每個(gè)數(shù)據(jù)字段分割出。例如：$text="Mike=A&Michael=B";

　　@name=split(/&/,$text);#這時(shí)@name=("Mike=A","Michael=B");而數(shù)據(jù)字段的名稱和這個(gè)數(shù)據(jù)字段的值是用=這個(gè)符號來隔開，如果想取得數(shù)據(jù)字段的名稱和所對應(yīng)的值的話，就用要=這個(gè)符號來分割數(shù)據(jù)字段，例如：$name=""Mike=Michael""；

($name1,$name2)=split(/=/,$list);#這時(shí)$name1="Mike";$name2="Michael";

　　--------------------------------------------------------------------------------

　　Perl指令：keys

　　語法：keys(%array)

　　說明：取出關(guān)聯(lián)數(shù)組%ARRAY中全部的key。

　　示例：%NAME=(1,"mike",2,"michael");@readkey=keys(%NAMES);#這時(shí)@readkey=(1,2);

　　--------------------------------------------------------------------------------

　　Perl指令：values

　　語法：values(%array)

　　說明：取出關(guān)聯(lián)數(shù)組%ARRAY中全部的value。

　　示例：%NAMES=(1,"mike",2,"michael");@readval=values(%NAMES);#這時(shí)@readval=("mike","michael");

　　--------------------------------------------------------------------------------

　　Perl指令：reverse

　　語法：reverse(@array)

　　說明：將數(shù)組@array中的元素由后到前重新排列。

　　示例：@back=("A","B","C","D","E");@back=reverse(@back);#這時(shí)@back=("E","D","C","B","A");

　　--------------------------------------------------------------------------------

　　Perl指令：sort

　　語法：sort(@array)

　　說明：將數(shù)組中的元素由小到大排序，如果要由大到小排序的話，要加上reverse這個(gè)函數(shù)。

　　示例：

　　@abc=("d","b","c","a");@abc=sort(@abc);#這時(shí)@abc=("a","b","c","d");

@abc=(reversesort@abc);#這時(shí)@abc=("d","c","b","a");這個(gè)語法也可以寫成@abc=(reversesort(@abc));

　　@number=(5,2,10);@number=sort(@number);上面示例用sort函數(shù)來排序數(shù)值的時(shí)，會出差錯(cuò)，因此要用下面到下面這一句。@number=(sort{$a<=>$b}@number);#這時(shí)@number=(2,5,10);

　　--------------------------------------------------------------------------------

　　Perl指令：length

　　語法：length($string)

　　說明：求出字符串$string的字節(jié)(bytes)值。

　　示例：$string="Perl5";$size=length($string);#這時(shí)$size=5;

　　--------------------------------------------------------------------------------

　　Perl指令：substr

　　語法：substr($string,offset,length)offset代表起始字符的位置,length代表引用的字符串長度，如果省略length則代表從起始值到字符串的***一個(gè)字符長度。而offset如果是負(fù)值的話，就會從字符串右邊開始指定字符。

　　示例：

　　$s=substr("perl5",2,2);#這時(shí)$s="rl";

　　$s=substr("perl5",2);#這時(shí)$s="rl5";

　　$s=substr("perl5",-2,2);#這時(shí)$s="er";

　　--------------------------------------------------------------------------------#p#

　　Perl指令：index

　　語法：index($string,$substring,position)$substring是要尋找的字符；position代表從哪一個(gè)位置開始尋找，假如省略position就從頭開始找起。

　　說明：返回所要找尋的字符在一字符串$string中的位置，如果在字符串中找不到字符的話，則會返回-1這個(gè)值。

示例：

　　$s=index("perl5","p");#這時(shí)$s=0

　　$s=index("perl5","l",2);#這時(shí)$s=3

　　$s=index("perl5","perl");#這時(shí)$s=-1

　　--------------------------------------------------------------------------------

　　Perl指令：push

　　語法：push(@array,$string)

　　說明：在數(shù)組@array的***附加新的元素($string)到數(shù)組@array中。

　　示例：@array=("one","two");push(@array,"three");#這時(shí)$@array=("one","two","three")

　　--------------------------------------------------------------------------------

　　Perl指令：pop

　　語法：pop(@array)

　　說明：將數(shù)組(@array)的***一個(gè)元素刪除，并將刪除的元素返回。

　　示例：@array=("one","two");$rm=pop(@array);#這時(shí)@array=("one");而$rm="two";

　　--------------------------------------------------------------------------------

　　Perl指令：unshift

　　語法：unshift(@array,$string)說明：在數(shù)組@array的***個(gè)元素前附加新的元素$string到數(shù)組@array中。示例：@array=("one","two");unshift(@array,"three");#這時(shí)@array=("three","one","two")

　　--------------------------------------------------------------------------------

　　Perl指令：shift

　　語法：shift(@array)

　　說明：將數(shù)組@array的***個(gè)元素刪除，并將刪除的元素返回。

　示例：@array=("one","two");@rm=shift(@array);#這時(shí)@array=("two");而$rm="one";

　　--------------------------------------------------------------------------------

　　Perl指令：join

　　語法：join($string,@array)

　　說明：在一數(shù)組@array的元素之間加上一指定的字符$string,并將結(jié)果返回。

　　示例：

　　@array=("one","two","three");

　　$total=join("：",@array);這時(shí)$total="one：two：three";

　　--------------------------------------------------------------------------------#p#

　　Perl指令：grep

　　語法：grep(/pattern/,@array)

　　說明：將合文字處理模式(regularexpression)的數(shù)組元素找出來。

　　示例：

　　@array=("one","on","in");

　　$count=grep(/on/,@array);#這時(shí)$count=2

　　@result=grep(/on/,@array);#這時(shí)@result=("one","on");

　　--------------------------------------------------------------------------------

　　Perl指令：hex

　　語法：hex($string)

　　說明：將十六進(jìn)制的數(shù)值轉(zhuǎn)成十進(jìn)制。

　　示例：$decimal=hex("ff");這時(shí)$decimal=255;

　　--------------------------------------------------------------------------------

　　Perl指令：rand

　　語法：rand($interger)

　　說明：常和函數(shù)srand搭配來取得一隨機(jī)數(shù)，如果沒有先宣告stand函數(shù)的話，則取出的常數(shù)值是一個(gè)固定值。這個(gè)語法會返回一個(gè)介于0和$interger之間的數(shù)值，如果$interger省略的話，則會返回一個(gè)介于0和1的數(shù)值。

示例：

　　srand;#要先宣告srand函數(shù)，才能產(chǎn)生隨機(jī)數(shù)的效果

　　$int=rand(10);#$int的值會大于0而且小于10如果希望產(chǎn)生的亂數(shù)是整數(shù)的話，就要再加上int#這個(gè)函數(shù)

　　$int=int(rand(10));#$int的值是一個(gè)整數(shù)，且值在0和9之間

　　--------------------------------------------------------------------------------

　　Perl指令：localtime

　　語法：localtime(time)

　　說明：可返回九個(gè)有關(guān)時(shí)間的元素，在寫CGI應(yīng)用程序的時(shí)候常會用到系統(tǒng)的時(shí)間，所以在此會詳細(xì)介紹這個(gè)函數(shù)的用法。

　　示例：

　　($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst)=localtime(time);

　　其中：$sec代表秒數(shù)[0,59]$min代表分?jǐn)?shù)[0,59]$hour代表小時(shí)數(shù)[0,23]$mday代表是在這個(gè)月的第幾天[1,31]$mon代表月數(shù)[0,11],要將$mon加1之后，才能符合實(shí)際情況。$year從1990年算起的年數(shù)$wday從星期六算起，代表是在這周中的第幾天[0-6]$yday從一月一日算起，代表是在這年中的第幾天[0,365]$isdst只是一個(gè)flag知道這些變量之后，就可以在CGI應(yīng)用程序中拿來應(yīng)用了。此外，也可以用下面這一行指令在UNIX系統(tǒng)下取得系統(tǒng)的時(shí)間。為了避免錯(cuò)誤發(fā)生，***用絕對路徑的方法來取得系統(tǒng)時(shí)間，如果絕對路徑不清楚的話可以用"whichdata"這個(gè)指令來得知。***要提字符的話，就不能正確執(zhí)行系統(tǒng)的程序了。$data='/usr/bin/data';而在perl5版本中，也可以用下面這一行指令來取得系統(tǒng)時(shí)間。$data=localtime(time);

　　--------------------------------------------------------------------------------

　　Perl指令：die

　　語法：dieLIST

　　說明：會把LIST字符串顯示出來，并退出程序。常常和$!這個(gè)代表錯(cuò)誤信息變量一起使用。

　　示例：open(FILE,"$filename")||die"不能打開文件$!;如果打開文件失敗的話，就會顯示出錯(cuò)誤的信息，之后再退出程序。

【編輯推薦】

 

1. Perl語言的文字處理模式
2. Perl語言中的五大變量類型
3. 解析四大Perl操作符用法
4. 用Perl語言進(jìn)行Socket編程
5. 學(xué)習(xí)筆記 Perl數(shù)字與字符串間的自動轉(zhuǎn)換