perl 常用系統函數列表

來源:互聯網
上載者:User

常用系統函數列表

指令:print
文法:print Filehandle LIST
說明:這個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函數中特殊列印字元:

指令:#
說明:注釋符號Remark宣告
樣本:#這是一個注釋說明

指令:print
文法:print Filehandle LIST
說明:這個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 換行 new line
\r 游標換行 return
\t tab鍵
\f 換頁 form feed
\b 退回一格
\v 垂直tab鍵
\a 響鈴Bell
\e escape鍵
\007 十進位ASC II碼
\xff 十六進位碼
\c[ 控制字元
樣本: print STDOUT "網上學園\n"; 將"網上學園"加上換行顯示在螢幕上.

文法: print LIST
說明:如果省略Filehandle的話,就會把Filehandle內定為STDOUT.也就是會將LIST的資料內容顯示在螢幕上.
樣本: $url="www.netease.net/~zmd";
print "網上學園$url\n";
在螢幕上將會出現"網上學園www.netease.net/~zmd",如果想要讓雙引號內的變數失效,可以在變數的前面加上"\"符號.例如: print"網上學園\$url"; 這樣它就顯示:"網上學園$url"

文法: print
說明:同省略Filehandle和LIST的話,就會以STDOUT為Filehandle,並會輸出$_這個內定輸出變數的資料內容. 如果$_變數是一個Null 字元串的話,就會顯示出一個Null 字元串.
樣本: $_="網上學園\n"; print; 就會將"網上學園"加上換行顯示在螢幕上

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

符號 其作用
%c 字元
%s 字串
%d 整數
%f 浮整數
%h 十六進位碼
%o 八進位碼
樣本:printf("chomod%d%s\n","711""cgi"); 會將chmod 711 cgi加上換行顯示於螢幕上。

指令: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=(reverse sort@abc); #這時@abc=("d","c","b","a"); 這個文法也可以寫成@abc=(reverse sort(@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)
說明:將合文文書處理模式(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加1之後,才能符合實際情況。$year從1990年算起的年數 $wday從星期六算起,代表是在這周中的第幾天[0-6] $yday從一月一日算起,代表是在這年中的第幾天[0,365] $isdst只是一個flag 知道這些變數之後,就可以在CGI應用程式中拿來應用了。此外,也可以用下面這一行指令在UNIX系統下取得系統的時間。為了避免錯誤發生,最好用絕對路徑的方法來取得系統時間,如果絕對路徑不清楚的話可以用"which data"這個指令來得知。最後要提字元的話,就不能正確執行系統的程式了。 $data='/usr/bin/data'; 而在perl5版本中,也可以用下面這一行指令來取得系統時間。 $data=localtime(time);

指令:die
文法:die LIST
說明:會把LIST字串顯示出來,並退出程式。常常和$!這個代表錯誤資訊變數一起使用。
樣本:open(FILE,"$filename")||die "不能開啟檔案$!\n; 如果開啟檔案失敗的話,就會顯示出錯誤的資訊,之後再退出程式。

指令:open
文法1:open(filehandle,"$filename") 其中$filename是一個指定開啟的檔案名稱。
說明:這是一個很常用的函數,可用於檔案的開啟(read only)。在CGI程式設計中常常會開啟一個檔案來讀取資料,所以筆者會詳加說明這一個函數相關用法。這個filehandle可把它看作在 I(INPUT)/O(OUTPUT)之間的一個橋樑,可以利用FILEHANDLE來作出資料讀入寫出的動作。開始可用OPEN這個函數來開啟一個指定的檔案,接下來可以用&ltfilehandle>來讀取所開啟檔案的資料內容,最後一定要用close這個函數來關閉這個之前開啟的filehandle。要注意的是在CGI程式定作中,當用OPEN這個函數來開啟一個檔案時,一定要在開啟檔案前加上檔案所在的絕對路徑名稱。
樣本
$filename="usr/abc.txt";
open(FILE,"$filename")||die"不能開啟檔案$filename\n; #將&ltfile>資料指定給純變數$line(一行一行地)
while($line=&ltfile>)
{
print"$line";
}
close(file); 就會把abc.txt這個檔案的內容顯示出來。

文法2:open(filehandle,"<$filename")
說明:這個文法也可以開啟一個存在的檔案(read only)。
樣本
$filesname="usr/abc.txt";
open(file,"<$filename")||die"不能開啟檔案$filename\n";
@array=&ltfile> #將&ltfile>全部的資料內容都指定給數組@array close(file);
print "@array"; 也會把abc.TXT這個檔案的內容顯示出來。

文法3:open(filehandle,">$filename")
說明:建立一個新的檔案(write only),如果已經存在這個檔案了,就會把舊檔案名稱覆蓋掉。並可用print filehandle的方式將資料到所開啟的檔案中。
樣本
$filename="/usr/abc.txt";
open(file,">$filename")||die"不能開啟檔案$filename\n;
print file "this is a new line1\n; #\n是換行字元
print file "this is a new line2\n;
close(file); 會打資料存在一個新檔案中。

文法4:open(filehandle,">>$filename")
說明:資料用附加的方式定入一檔案(write only),如果指定的檔案名稱不存在的話就會建立一個新的檔案。
樣本
$filename="/path/abc.txt";
open(file,">>$filename")||die"不能開啟檔案$filename\n";
print file "this is a new line1\n";
print file "this is a new line2\n";
close(file);
會打資料附加(append)到一個檔案(abc.txt)中。

文法5:open(filehandle,"|unix command")
說明:就會把在filehandle的資料輸入給unix的指令來作處理。
樣本
$mailprog="/usr/ucb/mail"; #unix系統上的寄信程式(一定要加絕對路徑)
$who="mqingyi@126.com";
$open(file,"|$mailprog$who")||die"開啟失敗\n";
print file "I love you!\n";
print file "I want to see you.\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"i love cgi\n"; exit; 顯示完"i love cgi"以後,將退出這個程式。

相關文章

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

  • Sales Support

    1 on 1 presale consultation

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.