Perl在CGI程序設計中常用的函數和指令

Perl在CGI程序設計中常用的函數

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

指令:#

說明:注解符號Remark宣告

范例:#本程序是一個示范注解說明

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

指令:print

語法一:print Filehandle LIST

說明:這個Filehandle可把它看作在I(Input)/O(Output)間的一個橋梁,可以利用Filehandle來做出數據讀入寫出的動作。stdin是代表從哪邊輸入數據,例如從電腦的鍵盤輸入,stdout是代表從哪邊輸出數據;例如從電腦的屏幕輸出;stderr是代表從哪邊輸出錯誤的數據,例如從電腦的屏幕輸出。而在Perl語言中有三個標準的Filehandle:

(一)STDIN(標準輸入):是代表stdin的Filehandle

(二)STDOUT(標準輸出):是代表stdout的Filehandle

(三)STDERR(標準錯誤輸出):是代表stderr的Filehandle

如果要使用其他Filehandle的時候,就要用open這個函數來打開一個Filehandle,我們可以用print這個函數把LIST的數據輸出給Filehandle。在為大家介紹print這個函數之前,先讓我們來看看print函數中特殊打印符號字符:

符號 內定含意

n 換行New Line

r 光標換行Return

t Tab鍵

f 換頁Form feed

b 退回一鍵Backspace

v 垂直Tab鍵

a 響鈴Bell

07 十進制ASCII碼

xff 十六進制碼

c[ 控制字符

范例:

print STDOUT"i love perln";

將“i love perl"再加上換行顯示于屏幕上。

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

語法二:Print LIST

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

范例:

$Str1ng="perl";

print"i love $stringn";

會將“i love perl”再加上換行顯示在屏幕上,而如果要讓雙引號內的變量失效的話,可以在變量前面加上這個符號。例如如果是print“i love $string”;的話,就會顯示出“i love $string”這個字符串。

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

語法三：print

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

范例:

$_="i love perln";

print;

就會將"i love perl"再加上換行顯示在屏幕上

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

指令:printf

語法一:printf Filehandle LIST

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

符號 內定含意

%c 字符

%s 字符串

%d 整數

%f 浮整數

%h 十六進制碼

%o 八進制碼

范例:

printf〈"chmod%d%s＼n","7l1","cgi");

會將“chmod 7ll cgi”再加上換行顯示于屏幕上。

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

指令:chop

語法：chop($string)

說明：把最后一個字符刪除掉,常常用這個函數把換行的字符(n)刪除掉。

范例：

$string="hello!n";

chop($string); #此時$string="hello!";

而這兩行也可以寫成chop($string="hello!＼n");

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

指令:split

語法:split(/pattern/,$string,limit)

其中/pattern是文字處理的模式,在下一小節中會有詳細的語法介紹。而limit是代表要分割的個數,可以省略。

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

范例:

$string="i;am;cute";

@list=split(/:/,$string); #此時@list=〈"i","am","cute");

($a,$b,$c)=split(/:/,$string); #此時$a="i",$b="am",$c="cute";

@list=split(/:/,$string,2); #此時@list=("i","love");

在傳送CGI應用程序數據的時候會先將數據編碼,其中會將FORM中每個數據字段的數據內容用&這個符號隔開,所以在解碼的時候就要以&這個符號為分割的字符,將每個數據字段分割出。例如:

$string="who=A&email=B";

@list=split(/&/,$string), #此時@list=〈"who=A","email=B");

而數據字段的名稱和這個數據字段的值是用=這個符號來隔開,如果想取得數據字段的名稱和所對應的值的話,就用要=這個符號來分割數據字段,例如:

$list="who=A";

(0$name,$value)=sp1it(/=/,$list); #此時$name="who";$value="A";

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

指令:keys

語法:keys(%ARRAY)

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

范例:

%NAMES=(1,"one",2,"two");

@list=keys(%NAMES), #此時@list=(l,2);

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

指令:values

語法:values(%ARRAY)

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

范例:

%NAMES=(1,"one",2,"two");

@list=values(%NAMES); #此時@list=("one","two");

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

指令:reverse

語法:reverse(@array)

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

范例:

@list=("A","B","C","D");

@1ist=reverse(@list); #此時@list=("D","C","B","A")

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

指令:sort

語法:sort(@array)

說明:將數組@array中的元素由小到大排序,如果要由大到小排序的話,就要再加上reverse這個函數。

范例:

@array=("b","c","a");

@array=sort(@array); #此時@array=("a",b","c");

@array=(reverse sort@array); #此時@array=("c","b","a");

這個語法也可以寫成@array=(reverse sort(@array));

@number=(l0,3.20);

@number=sort(@number); #此時@number=(l0,20,3);

由上個范例可以知道如果要sort函數來排 序數值的時候,就會出差錯,因此要用下面這個方法才能正確地使用sort函數來排序。

@number=(sort{$a<=>$b}@number); #此時@number=(3,10,20);

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

指令:length

語法:length($string)

說明:求出一字符串$string的bytes值。

范例:

$string="Perl";

@size=length($string); #此時$size=4;

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

指令:substr

語法:substr($string,offset,length)

其中offset代表起始字符的位置,length代表引用的字符串長度,如省略length的話代表從起始值到字符串的最后一個字符長度。而offset如果是負值的話,就會從字符串右邊開始取出指定的字符串。

說明:在一字符串$string中取出想要的字符串。

范例:

$x=substr("testing",2,2); #此時$x="st";

$x=substr("testing",2); #此時$x="sting";

$x=substr("testing",-2,2); #此時$x="in";

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

指令:index

語法:index($string,$substring,position)

其中$substring是指要尋找的字符,position代表要從哪一個位置開始找起,如省略position的話就從頭開始找起。

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

范例:

$x=index("testing","t"); #此時$x=0;

$x=index("testing","t",2); #此時$x=3;

$x=index("testing","perl"); #此時$x=-l;

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

指令: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)

說明:將符合文字處理模式(regular expression)的數組元素找出來。

范例:

@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加l之后,才能 符合實際情況

$year 從l990年算起的年數

$wday 從星期六算起,代表是在這周中的第幾天 [0,6]

$yday 從一月一日算起,代表是在這年中的第幾 天[0,365]

$isdst 只是一個flag

知道這些變量之后,就可以在CGI應用程序中拿來應用了。此外,也可以用下面這一行指令在Unix系統下取得系統的時間。為了避免錯誤發生,最好用絕對路徑的方法來取得系統時間,如果絕對路徑不清楚的話可以用“which date”,這個指令來得知。最后要提醒讀者的是要用`這個符號才能執行Unix系統的外部程序,如果是用‘(單引號)這個字符號的話,就不能正確執行系統的程序了。

$date=`/usr/bin/date`;

而在perl5版本中,也可以用下面這一行指令來取得系統時間。

$date=localtime(time);

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

指令:die

語法:die LIST

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

范例:

Open(FILE'"$filename")||die"Cannotopenfile$!n";

如果打開文件失敗的話,就會顯示出錯誤的信息,之后再退出程序。

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

指令:open

語法:open(Filehandle'"$fiiename")

其中$filename是一個指定打開的文件名。

說明:這是一個很常用的函數,可用于文件的打開(Read0niy)。在CGI程序設計中常常會打開一個文件來讀取數據,所以筆者會詳加說明這一個函數的相關用法。這個Filehandle可把它看作在I(Inpnt)/O(Output)間的一個橋梁,可以利用Filehandle來作出數據讀入寫出的動作。開始可用open這個函數來打開一個指定的文件,接下來可以使用<Filehandle>來讀取所打開文件的數據內容,最后一定要用close這個函數來關閉這個之前打開的Filehandle。要注意的是在CGI程序寫作中,當用open這個函數來打開文件的時候,一定要在打開的文件前加上文件所在的絕對路徑名稱。

范例:

$filename=Vpath/cgi.txt";

open(FILE'"$filename")||die"Can not open $filename＼n";

#將數據指派給純量變量$line(一行一行地)

while($line=<FILE>){

　 print"$line";

}

close(FILE);

就會把cgi.txt這個文件的內容顯示出來。

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

語法二:open(Filehandle,"<$filename")

說明:這個語法也可以打開一個存在的文件(Read Only)。

范例:

$filename="/path/cgi.txt";

open(FILE,"<$filename")||die"Can not open $filenamen";

#將<FILE>全部的數據內容都指派給數組@array

@array=<FILE>;

close(FILE);

print"@array";

也會把cgi.txt這個文件的內容顯示出來。

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

語法三:open(Filehandle,">$filemme)

說明:建立一個新的文件(Write Only),如果已經存在這個文件了,就會把舊文件名覆蓋過去。并可用print Filehandle的方式將數據寫到所打開的文件中。

范例:

$filename="/path/cgi.txt";

open(FILE,">$filename")||die"Can not open $filenamen";

print FILE"this is a new line1n";#n是換行字符

print FILE"this is a new line2n";

close(FILE);

會把數據存在一個新文件中。

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

語法四:Open(Filehandle,">>$filename")

說明:數據用附加的方式寫入一文件(Write Only),如果指定的文件名不存在的話,就會建立一個新的文件。

范例:

$filename="/path/cgi.txt";

open(FILE,">>$filename")||die"Can not open $filenamen";

print FILE"this is a newline1n";

print FILE"this is a newline2n";

close(FILE);

會把數據附加(append)到一個文件(cgi.txt)中。

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

語法五:Open(Filehandle,"|Unix Command")

說明:就會把在Fiiehandle的數據輸出給Unix的指令來作處理。

范例:

$mailprog="/usr/ucb/mail";　#Unix系統上的寄信程序(要加絕對路徑哦!)

$who="jcjung@tem.nctu.edu.tw";

open(FILE,"|$mailprog$who")||die"CannotFail!n";

print FILE"想不想我呀?n";

print FILE"要快一點回信哦!n";

close(FILE);

就會通過Unix系統mail的程序,將FILE這個Filehandle的數據內容寄給$who這個變量所指定的收信人。我們可以利用open這個函數來設計一個來信批評指教的CGl應用程序,在本書中的下一章中會有詳細的介紹。

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

指令:close

用法:close(Filehandle)

說明:用open這個函數來打開一個filehandle之后,一定要用close這個函數把所打開的Filehandle關閉。

范例:

open(Fiiehandle,"$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這個函數把Filehand1e中的數據依指定的字符串長度讀入之后指派給$string這個變量。在CGI程序分割解碼過程中,如果FORM的傳送方式是設定為POST的話,就會將傳送的數據設定為標準輸入,所以會將數據內容指定給STDIN這個標準輸入的Filehandle,而CGI環境變量$ENV{'CONTENT_LENGTH'}就是代表使用者送出數據內容的長度,因此我們要用read這個函數來取得使用者送出的數據內容。

范例:

read(STDIN,$buffer,$ENV{'CONTENT_LENGTH'});

就會將STDIN這個標準輸入Filehandle中的數據依指定的字符串長度讀入,再指派給$buffer這個變量。

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

指令:exit

語法:exit

說明:退出執行的程序。

范例:

print"i love perl";

exit;

顯示出“i love perl"之后,就馬上退出這個程序。