Perl指令有哪些

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

Perl指令大全

　　Perl指令：print

語法：printFilehandleLIST

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

2.STDOUT(標準輸出)：是代表STDOUT的FILEHANDLE

3.STDERR(標準錯誤輸出)：是代表STDERR的FILEHANDLE如果要使用其他FILEHANDLE的時候,就要用OPEN這個函數來打開一個FILEHANDLE,我們可以用PRINT這個函數LIST的數據輸出給FILEHANDLE.

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

Perl指令：#

說明：注釋符號Remark宣告

示例：#這是一個注釋說明

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

Perl指令：print

語法：printFilehandleLIST

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

2.STDOUT(標準輸出)：是代表STDOUT的FILEHANDLE

3.STDERR(標準錯誤輸出)：是代表STDERR的FILEHANDLE如果要使用其他FILEHANDLE的時候,就要用OPEN這個函數來打開一個FILEHANDLE,我們可以用PRINT這個函數LIST的數據輸出給FILEHANDLE.

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

符號其作用

換行newline

光標換行return

tab鍵

f換頁formfeed

退回一格

v垂直tab鍵

a響鈴Bell

eescape鍵

07十進制ASCII碼

xff十六進制碼

c[控制字符

示例：printSTDOUT"網上學園";將"網上學園"加上換行顯示在屏幕上.

語法：printLIST

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

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

print"網上學園$url";

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

語法：print

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

示例：$_="網上學園";print;就會將"網上學園"加上換行顯示在屏幕上

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

　　Perl指令：printf

語法：printfFilehandleLIST

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

符號其作用

%c字符

%s字符串

%d整數

%f浮整數

%h十六進制碼

%o八進制碼

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

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

Perl指令：chop

       語法：chop($url)

說明：把***一個字符刪除。

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

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

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

Perl指令：split

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

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

示例：

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

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

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

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

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

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

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

Perl指令：keys

語法：keys(%array)

說明：取出關聯數組%ARRAY中全部的key。

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

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

　　Perl指令：values

語法：values(%array)

說明：取出關聯數組%ARRAY中全部的value。

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

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

Perl指令：reverse

語法：reverse(@array)

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

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

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

　　Perl指令：sort

語法：sort(@array)

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

示例：

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

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

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

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

　　Perl指令：length

語法：length($string)

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

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

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

Perl指令：substr

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

示例：

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

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

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

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

Perl指令：index

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

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

示例：

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

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

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

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

　　Perl指令：push

語法：push(@array,$string)

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

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

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

Perl指令：pop

語法：pop(@array)

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

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

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

Perl指令：unshift

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

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

Perl指令：shift

語法：shift(@array)

說明：將數組@array的***個元素刪除，并將刪除的元素返回。

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

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

Perl指令：join

語法：join($string,@array)

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

示例：

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

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

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

Perl指令：grep

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

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

示例：

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

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

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

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

Perl指令：hex

語法：hex($string)

說明：將十六進制的數值轉成十進制。

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

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

　　Perl指令：rand

語法：rand($interger)

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

示例：

srand;#要先宣告srand函數，才能產生隨機數的效果

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

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

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

　　Perl指令：localtime

語法：localtime(time)

說明：可返回九個有關時間的元素，在寫CGI應用程序的時候常會用到系統的時間，所以在此會詳細介紹這個函數的用法。

示例：

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

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

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

Perl指令：die

語法：dieLIST

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

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

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