Perl指令有哪些

這篇文章主要為大家展示了“Perl指令有哪些”，內(nèi)容簡(jiǎn)而易懂，條理清晰，希望能夠幫助大家解決疑惑，下面讓小編帶領(lǐng)大家一起研究并學(xué)習(xí)一下“Perl指令有哪些”這篇文章吧。

Perl指令大全

　　Perl指令：print

語(yǔ)法：printFilehandleLIST

說(shuō)明：這個(gè)Filehandle可以看作在I(INPUT)/O(OUTPUT)之間的一個(gè)橋梁,可以利用FILEHANDLE來(lái)做出數(shù)據(jù)讀入寫出的動(dòng)作.STDIN是代表從哪連輸入數(shù)據(jù),例如從電腦的鍵盤輸入;STDOUT是代表從哪連輸出數(shù)據(jù);例如從電腦的屏幕輸出;STDERR是代表從哪連輸出錯(cuò)誤的數(shù)據(jù),例如從電腦的屏幕輸出.而在Perl語(yǔ)言中有三個(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ù)來(lái)打開一個(gè)FILEHANDLE,我們可以用PRINT這個(gè)函數(shù)LIST的數(shù)據(jù)輸出給FILEHANDLE.

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

Perl指令：#

說(shuō)明：注釋符號(hào)Remark宣告

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

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

Perl指令：print

語(yǔ)法：printFilehandleLIST

說(shuō)明：這個(gè)Filehandle可以看作在I(INPUT)/O(OUTPUT)之間的一個(gè)橋梁,可以利用FILEHANDLE來(lái)做出數(shù)據(jù)讀入寫出的動(dòng)作.STDIN是代表從哪連輸入數(shù)據(jù),例如從電腦的鍵盤輸入;STDOUT是代表從哪連輸出數(shù)據(jù);例如從電腦的屏幕輸出;STDERR是代表從哪連輸出錯(cuò)誤的數(shù)據(jù),例如從電腦的屏幕輸出.而在PERL語(yǔ)言中有三個(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ù)來(lái)打開一個(gè)FILEHANDLE,我們可以用PRINT這個(gè)函數(shù)LIST的數(shù)據(jù)輸出給FILEHANDLE.

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

符號(hào)其作用

換行newline

光標(biāo)換行return

tab鍵

f換頁(yè)formfeed

退回一格

v垂直tab鍵

a響鈴Bell

eescape鍵

07十進(jìn)制ASCII碼

xff十六進(jìn)制碼

c[控制字符

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

語(yǔ)法：printLIST

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

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

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

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

語(yǔ)法：print

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

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

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

　　Perl指令：printf

語(yǔ)法：printfFilehandleLIST

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

符號(hào)其作用

%c字符

%s字符串

%d整數(shù)

%f浮整數(shù)

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

%o八進(jìn)制碼

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

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

Perl指令：chop

       語(yǔ)法：chop($url)

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

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

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

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

Perl指令：split

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

說(shuō)明：用一個(gè)指定的文字處理模式來(lái)分割$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í)候會(huì)先將數(shù)據(jù)編碼，其中會(huì)將FORM中第個(gè)數(shù)據(jù)字段的數(shù)據(jù)內(nèi)容用&這個(gè)符號(hào)隔開，所以在解碼的時(shí)候就要以&這個(gè)符號(hào)為分割的字符，將每個(gè)數(shù)據(jù)字段分割出。例如：$text="Mike=A&Michael=B";

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

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

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

Perl指令：keys

語(yǔ)法：keys(%array)

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

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

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

　　Perl指令：values

語(yǔ)法：values(%array)

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

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

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

Perl指令：reverse

語(yǔ)法：reverse(@array)

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

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

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

　　Perl指令：sort

語(yǔ)法：sort(@array)

說(shuō)明：將數(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è)語(yǔ)法也可以寫成@abc=(reversesort(@abc));

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

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

　　Perl指令：length

語(yǔ)法：length($string)

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

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

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

Perl指令：substr

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

示例：

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

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

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

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

Perl指令：index

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

說(shuō)明：返回所要找尋的字符在一字符串$string中的位置，如果在字符串中找不到字符的話，則會(huì)返回-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

語(yǔ)法：push(@array,$string)

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

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

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

Perl指令：pop

語(yǔ)法：pop(@array)

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

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

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

Perl指令：unshift

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

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

Perl指令：shift

語(yǔ)法：shift(@array)

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

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

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

Perl指令：join

語(yǔ)法：join($string,@array)

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

示例：

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

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

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

Perl指令：grep

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

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

示例：

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

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

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

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

Perl指令：hex

語(yǔ)法：hex($string)

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

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

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

　　Perl指令：rand

語(yǔ)法：rand($interger)

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

示例：

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

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

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

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

　　Perl指令：localtime

語(yǔ)法：localtime(time)

說(shuō)明：可返回九個(gè)有關(guān)時(shí)間的元素，在寫CGI應(yīng)用程序的時(shí)候常會(huì)用到系統(tǒng)的時(shí)間，所以在此會(huì)詳細(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)用程序中拿來(lái)應(yīng)用了。此外，也可以用下面這一行指令在UNIX系統(tǒng)下取得系統(tǒng)的時(shí)間。為了避免錯(cuò)誤發(fā)生，***用絕對(duì)路徑的方法來(lái)取得系統(tǒng)時(shí)間，如果絕對(duì)路徑不清楚的話可以用"whichdata"這個(gè)指令來(lái)得知。***要提字符的話，就不能正確執(zhí)行系統(tǒng)的程序了。$data='/usr/bin/data';而在perl5版本中，也可以用下面這一行指令來(lái)取得系統(tǒng)時(shí)間。$data=localtime(time);

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

Perl指令：die

語(yǔ)法：dieLIST

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

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

以上是“Perl指令有哪些”這篇文章的所有內(nèi)容，感謝各位的閱讀！相信大家都有了一定的了解，希望分享的內(nèi)容對(duì)大家有所幫助，如果還想學(xué)習(xí)更多知識(shí)，歡迎關(guān)注億速云行業(yè)資訊頻道！