指令：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如果
3.STDERR(標準錯誤輸出)：是代表STDERR的FILEHANDLE如果要使用其他FILEHANDLE的時候,就要用OPEN這個函數來打開一個FILEHANDLE,我們可以用PRINT這個函數LIST的數據輸出給FILEHANDLE.
在為大家介紹PRINT這個函數之前,先讓我們來看看PRINT函數中特殊列印字元：
指令：#
說明：註解符號Remark宣告
範例：#這是一個註解說明
-------------------- -------------------------------------------------- ----------
指令：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函數中特殊列印字元：
符號其作用
n換行newline
r光標換行return
ttab鍵
f換頁formfeed
b退回一格
v垂直tab鍵
f換頁formfeed
b退回一格
v垂直tab鈴Bell
eescape鍵
007十進位ASCII碼
xff十六進位碼
c〔控製字元
範例：printSTDOUT"網上學園n";將"網上學園"加上換行顯示在螢幕上.
語法：printLIST
說明：如果省略Filehandle的話,就會把Filehandle內定為STDOUT.也就是會將LIST的資料內容顯示在螢幕上.
範例：$url="www.netease.net/~zmd";
print "網上學園$urln";
在螢幕上將會出現"網上學園www.netease.net/~zmd",如果想要讓雙引號內的變數失效,可以在變數的前面加上""符號.例如：print"網上學園$url";這樣它就顯示："網上學園$url"
語法：print
說明：同省略Filehandle和LIST的話,就會以STDOUT為Filehandle,並會輸出$ _這個內定輸出變數的資料內容.如果$_變數是一個空字串的話,就會顯示出一個空字串.
範例：$_="網上花園n";print;就會將"網上學園"加上換行顯示在螢幕上
------------------------------------- -------------------------------------------
指令：printf
語法：printfFilehandleLIST
說明：在perl語言中也提代C語言中printf的語法,用法和C語言中的用法一模一樣.如果把Filehandle省略的話,也一樣會把STDOUT當成是內定的Filehandle.在為大家介紹printf函數之前,先讓我們來看看printf函數中變換符號的字元.
符號其作用
c字元
s字串
d整數
f浮整數
h十六進位碼
o八進位碼
f浮整數
h十六進位碼
o八進位碼
例範例：printf("chomoddsn","711""cgi");會將chmod711cgi加上換行顯示於螢幕上。
---------------------------------------------- ----------------------------------
指令：chop語法：chop($url)
說明：把最後一個字元刪除。
範例：$url="www.nease.net/~zmd/";
chop($url);這時$url="www.nease.net/~zmd"而這兩行也可以寫成chop($ url="www.nease.net/~zmd/");
------------------------------- -------------------------------------------------
指令：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";
----- -------------------------------------------------- -------------------------
指令：keys
語法：keys(array)
說明：取出關聯數組ARRAY中全部的key。
範例：NAME=(1,"mike",2,"michael");@readkey=keys(NAMES);#此時@readkey=(1,2);
------- -------------------------------------------------- -----------------------
指令：values
語法：values(array)
說明：取出關聯數組ARRAY中全部的value。
範例：NAMES=(1,"mike",2,"michael");@readval=values(NAMES);#這時@readval=("mike","michael");
--- -------------------------------------------------- ---------------------------
指令：reverse
語法：reverse(@array)
說明：將陣列@array中的元素從後到前重新排列。
範例：@back=("A","B","C","D","E");@back=reverse(@back);#這時@back=("E","D ","C","B","A");
------------------------------- -------------------------------------------------
指令：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);
-------------- -------------------------------------------------- ----------------
指令：length
語法：length($string)
說明：求字串$string的位元組(bytes)值。
範例：$string="Perl5";$size=length($string);#此時$size=5;
------------------- -------------------------------------------------- -----------
指令：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";
------------------- -------------------------------------------------- -----------
指令：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
------------------------ -------------------------------------------------- ------
指令：push
語法：push(@array,$string)
說明：在數組@array的最後附加新的元素($string)到數組@array中。
範例：@array=("one","two");push(@array,"three");#這時$@array=("one","two","three")
-------------------------------------------------- ------------------------------
指令：pop
語法：pop(@array)
說明：將陣列( @array)的最後一個元素刪除，並將刪除的元素傳回。
範例：@array=("one","two");$rm=pop(@array);#這時@array=("one");而$rm="two";
-------------------------------------------------- ------------------------------
指令：unshift
語法：unshift(@array,$string)說明：在數組@array的第一個元素前附加新的元素$string到數組@array中。例：@array=("one","two");unshift(@array,"three");#這時@array=("three","one","two")
-- -------------------------------------------------- ----------------------------
指令：shift
語法：shift(@array)
說明：將陣列@array的第一個元素刪除，並將刪除的元素傳回。
範例：@array=("one","two");@rm=shift(@array);#這時@array=("two");而$rm="one";
- -------------------------------------------------- -----------------------------
指令：join
語法：join($string,@array)
說明：在一數組@array的元素之間加上一指定的字元$string,並將結果傳回。
範例：
@array=("one","two","three");
$total=join("：",@array);這時$total="one：two：three";
------------------------------------------------ --------------------------------
指令：grep
語法：grep(/pattern/,@array)
說明：將合文字處理模式(regularexpression)的陣列元素找出來。
範例：
@array=("one","on","in");
$count=grep(/on/,@array);#此時$count=2
@result=grep(/on /,@array);#這時@result=("one","on");
------------------------ -------------------------------------------------- ------
指令：hex
語法：hex($string)
說明：將十六進位的數值轉成十進位。
範例：$decimal=hex("ff");這時$decimal=255;
-------------------------- -------------------------------------------------- ----
指令：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之間
---------- -------------------------------------------------- --------------------
指令：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);
-------------------------------------- ------------------------------------------
指令：die
語法：dieLIST
說明：會把LIST字串顯示出來，並退出程式。常常和$!這個代表錯誤訊息變數一起使用。
範例：open(FILE,"$filename")||die"不能開啟檔案$!n;如果開啟檔案失敗的話，就會顯示出錯誤的訊息，之後再退出程式。
---- -------------------------------------------------- --------------------------
指令：open
語法1：open(filehandle,"$filename")其中$filename是一個指定開啟的檔案名稱。說明：這是一個很常用的函數，可用來文件的開啟(readonly)。在CGI程式設計中常常會開啟一個檔案來讀取數據，所以筆者會詳加說明這一個函數相關用法。這個filehandle可把它看作在I(INPUT)/O(OUTPUT)之間的一個橋樑，可以利用FILEHANDLE來作出資料讀入寫出的動作。開始可用OPEN這個函數來開啟一個指定的文件，接下來可以用
$filename="usr/abc.txt";
open(FILE,"$filename")||die"無法開啟檔案$filenamen;#將
print"$line";
}
close(file);就會顯示abc.txt這個檔案的內容。 ,"＜$filename")
說明：這個語法也可以開啟一個存在的檔案(readonly)。 |die"不能開啟檔案$filenamen";
@array=
printfile"thisisanewline1n;#n是換行字元
printfile"thisisanewline2n;
close(file);會打資料存在一個新檔案中。
語法4：open(filehandle,"＞＞$filename")
說明：資料用附加的方式定入一檔案(writeonly)，如果指定的檔案名稱不存在的話就會建立一個新的檔案。
範例：
$filename="/path/abc.txt";
open(file,"＞＞$filename")||die"不能開啟檔案$filenamen";
printfile"thisisanewline1n";
printfile"thisisanewline2n" ;
close(file);
會打資料附加(append)到一個檔案(abc.txt)。
語法5：open(filehandle,"|unixcommand")
說明：就會把在filehandle的資料輸入給unix的指令來做處理。
範例：
$mailprog="/usr/ucb/mail";#unix系統上的寄信程式(一定要加絕對路徑)
$who="mqingyi@126.com";
$open(file," |$mailprog$who")||die"開啟失敗n";
printfile"Iloveyou!n";
printfile"Iwanttoseeyou.n";
close(file);
就會通過unix系統mail的程序，將FILE這個FILEHANDLE的資料內容寄給$who這個變數所指定的收信人。我們可以利用open這個函數來設計一個來信批評CGI應用程序，在本書的下一章會有詳細的介紹。
---------------------------------------------- ----------------------------------
指令：close
用法：close(filehandle)
說明：用open這個函數來開啟一個filehandle之後，一定要用close批次這個函數把所開啟的filehandle關閉。
範例：
open(filehandle,"$filename");
close(filehandle);
-------------------------- -------------------------------------------------- ----
指令：pack
語法：pack("指定的格式",list)
說明：pack這個函數會將一個list變成所指定的二進位資料格式。在CGI程式分割解碼過程中，會用到pack這個函數,所以筆者在此簡單介紹這個函數的用法。
範例：$string=pack("c",65);#這時$string="a";將65這個ascii碼轉換成一個unsigned字符，其中c就是指定要轉換成unsigned字符的意思。
---------------------------------------------- ----------------------------------
指令：read
語法：read(filehandle,$string, length)其中length是代表讀入字串的長度(bytes)。
說明：用read這個函數把filehandle中的資料依指定的字串長度讀入之後指派給$string這個變數。在cgi程式分割解碼過程中，如果FORM的傳送方式是設定為POST的話，就會將傳送的資料設定為標準輸入，所以會將資料內容指定給STDIN這個標準輸入的filehandle，而CGI環境變量$env{'content_length'}就是代表使用者發送資料內容的長度，因此我們要用read這個函數來取得使用者發送的資料內容。
例：read(stdin,$buffer,$env{'content_length'});就會將stdin這個標準輸入filehandle中的資料依指定的字串長度讀入，再指派給$buffer這個變數。
---------------------------------------------- ----------------------------------
指令：exit
語法：exit
說明：退出執行的程式.
範例：print"ilovecgin";exit;顯示完"ilovecgi"以後，將退出這個程式。
以上就是Perl常用系統函數的內容，更多相關文章請關注PHP中文網（www.php.cn）！
