建站
咨詢
售后
建站咨詢
新聞中心
本文和大家重點(diǎn)討論一下Perl的經(jīng)典用法：用Open()函數(shù)打開Perl文件，open()函數(shù)通常帶有兩個(gè)參數(shù)，***個(gè)為Perl文件句柄，用于指向打開的Perl文件，第二個(gè)參數(shù)是Perl文件名及模式(Perl文件的打開模式)的混雜體。
創(chuàng)新互聯(lián)主要從事網(wǎng)站建設(shè)、網(wǎng)站制作、網(wǎng)頁(yè)設(shè)計(jì)、企業(yè)做網(wǎng)站、公司建網(wǎng)站等業(yè)務(wù)。立足成都服務(wù)嶺東,10多年網(wǎng)站建設(shè)經(jīng)驗(yàn),價(jià)格優(yōu)惠、服務(wù)專業(yè),歡迎來(lái)電咨詢建站服務(wù):18982081108
Perl的經(jīng)典用法：用Open()函數(shù)打開Perl文件
打開Perl文件的常用法子是:
open(FH,"<$filename")
ordie"Couldn'topen$filenameforreading:$!";
◆open()函數(shù)通常帶有兩個(gè)參數(shù)，***個(gè)為Perl文件句柄，用于指向打開的Perl文件，第二個(gè)參數(shù)是Perl文件名及模式(Perl文件的打開模式)的混雜體，如果Perl文件被成功打開，open()函數(shù)返回true，否則為false。我們用“or”來(lái)該條件。
上述代碼中的模式由小于字符(<)來(lái)表現(xiàn)。如果Perl文件不存在，open()將返回false。此時(shí)，你可以讀Perl文件句柄，但不可以寫。
大于字符表現(xiàn)寫。如果Perl文件不存在，就會(huì)被創(chuàng)立。如果Perl文件存在，Perl文件被消除，以前的數(shù)據(jù)將會(huì)喪失。你可以寫入Perl文件句柄，但不可以讀入。
如果Perl文件不存在，就創(chuàng)立它
open(FH,">$filename")
ordie"Couldn'topen$filenameforwriting:$!";
如果Perl文件不存在，添加模式(用兩個(gè)大于符號(hào)表現(xiàn))可以用來(lái)創(chuàng)立新Perl文件，如果Perl文件存在，該模式并不會(huì)消除原本的數(shù)據(jù)。
同“<”或“讀”模式一樣，你只能對(duì)Perl文件句柄進(jìn)行寫操作。(所以的寫入內(nèi)容都添加到Perl文件尾)。打算進(jìn)行讀操作，會(huì)產(chǎn)生運(yùn)行差錯(cuò)。
open(FH,">>$filename")
ordie"Couldn'topen$filenameforappending:$!";
◆通過(guò)“+<”模式，你可以既可以讀Perl文件，又可以寫Perl文件。你可以通過(guò)tell()函數(shù)在Perl文件內(nèi)部移動(dòng)，通過(guò)seek()函數(shù)進(jìn)行定位。如果Perl文件不存在，就會(huì)被創(chuàng)立。如果Perl文件已經(jīng)存在，原本的數(shù)據(jù)不會(huì)被消除。
如果你籌劃消除原本的Perl文件內(nèi)容，或者自己調(diào)用truncate()函數(shù)，或者使用“+>”模式。
open()函數(shù)通常帶有兩個(gè)參數(shù)，***個(gè)為Perl文件句柄，用于指向打開的Perl文件，第二個(gè)參數(shù)是Perl文件名及模式(Perl文件的打開模式)的混雜體，注意“+<”和“+>”的差別，兩者都可以可讀可寫。前者為非毀壞性寫，后者為毀壞性寫。
差錯(cuò)
差錯(cuò)是如何出現(xiàn)的？很多處所都會(huì)出現(xiàn)差錯(cuò)：如目錄不存在，Perl文件不可寫入，你的程序喪失了Perl文件句柄等等。
你該當(dāng)反省系統(tǒng)調(diào)用的效果(如open()和sysopen())，看看是否調(diào)用成功。
為了贊助用戶查錯(cuò)，通常應(yīng)用“ordie()”，你應(yīng)記住這些用法。首先，應(yīng)寫出系統(tǒng)調(diào)用失敗(“open”)的信息。其次，應(yīng)寫出Perl文件名的信息，以便修正錯(cuò)誤時(shí)更容易地定位。第三，要寫出打開Perl文件的法子，(“forwriting,”“forappending”)。第四，輸出操作系統(tǒng)的出錯(cuò)信息(包孕在$!中)。這樣，一旦出現(xiàn)Perl文件不能打開的問(wèn)題，應(yīng)用你的程序的用戶會(huì)大體上知道為什么不能打開。有時(shí)，我們把***個(gè)和第三個(gè)合并在一起：
ordie"unabletoappendto$filename:$!";
如果在open()和出錯(cuò)信息中都寫了Perl文件的全名，你會(huì)冒轉(zhuǎn)變了open()的風(fēng)險(xiǎn)，使得出錯(cuò)信息不合時(shí)宜或不正確。
◆下面會(huì)出現(xiàn)虛偽的出錯(cuò)信息
open(FH,"
ordie"Can'topen/var/log/file.podforwriting:$!";
網(wǎng)站題目：Perl經(jīng)典用法：用Open()函數(shù)打開Perl文件
轉(zhuǎn)載來(lái)源：http://www.dlmjj.cn/article/dpchiid.html
