建站
咨詢(xún)
售后
建站咨詢(xún)
新聞中心
本文和大家重點(diǎn)討論一下Perl指令的概念及使用，比如Print指令，它的語(yǔ)法是printFilehandleLIST，這個(gè)Filehandle可以看作在I(INPUT)/O(OUTPUT)之間的一個(gè)橋梁,可以利用FILEHANDLE來(lái)做出數(shù)據(jù)讀入寫(xiě)出的動(dòng)作。
創(chuàng)新互聯(lián)專(zhuān)注為客戶(hù)提供全方位的互聯(lián)網(wǎng)綜合服務(wù)，包含不限于成都網(wǎng)站建設(shè)、網(wǎng)站建設(shè)、東平網(wǎng)絡(luò)推廣、小程序制作、東平網(wǎng)絡(luò)營(yíng)銷(xiāo)、東平企業(yè)策劃、東平品牌公關(guān)、搜索引擎seo、人物專(zhuān)訪(fǎng)、企業(yè)宣傳片、企業(yè)代運(yùn)營(yíng)等，從售前售中售后，我們都將竭誠(chéng)為您服務(wù)，您的肯定，是我們最大的嘉獎(jiǎng)；創(chuàng)新互聯(lián)為所有大學(xué)生創(chuàng)業(yè)者提供東平建站搭建服務(wù)，24小時(shí)服務(wù)熱線(xiàn)：028-86922220，官方網(wǎng)址：www.cdcxhl.com
Perl指令大全
Perl指令：print
語(yǔ)法：printFilehandleLIST
說(shuō)明：這個(gè)Filehandle可以看作在I(INPUT)/O(OUTPUT)之間的一個(gè)橋梁,可以利用FILEHANDLE來(lái)做出數(shù)據(jù)讀入寫(xiě)出的動(dòng)作.STDIN是代表從哪連輸入數(shù)據(jù),例如從電腦的鍵盤(pán)輸入;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)打開(kā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ù)讀入寫(xiě)出的動(dòng)作.STDIN是代表從哪連輸入數(shù)據(jù),例如從電腦的鍵盤(pán)輸入;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)打開(kā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à),就會(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à),就會(huì)以STDOUT為Filehandle,并會(huì)輸出$_這個(gè)內(nèi)定輸出變量的數(shù)據(jù)內(nèi)容.如果$_變量是一個(gè)空字符串的話(huà),就會(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à),也一樣會(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加上換行顯示于屏幕上。#p#
--------------------------------------------------------------------------------
Perl指令：chop
語(yǔ)法：chop($url)
說(shuō)明：把***一個(gè)字符刪除。
示例：$url="www.nease.net/~zmd/";
chop($url);這時(shí)$url="www.nease.net/~zmd"而這兩行也可以寫(xiě)成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)隔開(kāi)，所以在解碼的時(shí)候就要以&這個(gè)符號(hào)為分割的字符，將每個(gè)數(shù)據(jù)字段分割出。例如：$text="Mike=A&Michael=B";
@name=split(/&/,$text);#這時(shí)@name=("Mike=A","Michael=B");而數(shù)據(jù)字段的名稱(chēng)和這個(gè)數(shù)據(jù)字段的值是用=這個(gè)符號(hào)來(lái)隔開(kāi)，如果想取得數(shù)據(jù)字段的名稱(chēng)和所對(duì)應(yīng)的值的話(huà)，就用要=這個(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ù)組中的元素由小到大排序，如果要由大到小排序的話(huà)，要加上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ǔ)法也可以寫(xiě)成@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à)，就會(huì)從字符串右邊開(kāi)始指定字符。
示例：
$s=substr("perl5",2,2);#這時(shí)$s="rl";
$s=substr("perl5",2);#這時(shí)$s="rl5";
$s=substr("perl5",-2,2);#這時(shí)$s="er";
--------------------------------------------------------------------------------#p#
Perl指令：index
語(yǔ)法：index($string,$substring,position)$substring是要尋找的字符；position代表從哪一個(gè)位置開(kāi)始尋找，假如省略position就從頭開(kāi)始找起。
說(shuō)明：返回所要找尋的字符在一字符串$string中的位置，如果在字符串中找不到字符的話(huà)，則會(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";
--------------------------------------------------------------------------------#p#
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ù)，如果沒(méi)有先宣告stand函數(shù)的話(huà)，則取出的常數(shù)值是一個(gè)固定值。這個(gè)語(yǔ)法會(huì)返回一個(gè)介于0和$interger之間的數(shù)值，如果$interger省略的話(huà)，則會(huì)返回一個(gè)介于0和1的數(shù)值。
示例：
srand;#要先宣告srand函數(shù)，才能產(chǎn)生隨機(jī)數(shù)的效果
$int=rand(10);#$int的值會(huì)大于0而且小于10如果希望產(chǎn)生的亂數(shù)是整數(shù)的話(huà)，就要再加上int#這個(gè)函數(shù)
$int=int(rand(10));#$int的值是一個(gè)整數(shù)，且值在0和9之間
--------------------------------------------------------------------------------
Perl指令：localtime
語(yǔ)法：localtime(time)
說(shuō)明：可返回九個(gè)有關(guān)時(shí)間的元素，在寫(xiě)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ì)路徑不清楚的話(huà)可以用"whichdata"這個(gè)指令來(lái)得知。***要提字符的話(huà)，就不能正確執(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"不能打開(kāi)文件$!;如果打開(kāi)文件失敗的話(huà)，就會(huì)顯示出錯(cuò)誤的信息，之后再退出程序。
【編輯推薦】
- Perl語(yǔ)言的文字處理模式
- Perl語(yǔ)言中的五大變量類(lèi)型
- 解析四大Perl操作符用法
- 用Perl語(yǔ)言進(jìn)行Socket編程
- 學(xué)習(xí)筆記 Perl數(shù)字與字符串間的自動(dòng)轉(zhuǎn)換
新聞標(biāo)題：學(xué)習(xí)筆記 Perl指令大全
當(dāng)前網(wǎng)址：http://www.5511xx.com/article/coposoh.html
