指令：die
語(yǔ)法：die LIST
說(shuō)明：會(huì )把LIST字符串顯示出來(lái)，并退出程序。常常和 $! 這個(gè)代表錯誤信息變量一起使用。
示例：
open(FILE,"$filename")||die "不能打開(kāi)文件$!\n; # 如果打開(kāi)文件失敗的話(huà)，就會(huì )顯示出錯誤的信息，之后再退出程序。
指令：open
語(yǔ)法1：open(filehandle,"$filename") 其中 $filename 是一個(gè)指定打開(kāi)的文件名。
說(shuō)明：這是一個(gè)很常用的函數，可用于文件的打開(kāi)(read only)。
示例：
$filename="usr/abc.txt";
open(FILE,"$filename")||die"不能打開(kāi)文件$filename\n; #將<file>數據指定給純變量$line(一行一行地)
while($line=
{
print"$line";
}
close(file); 就會(huì )把abc.txt這個(gè)文件的內容顯示出來(lái)。
語(yǔ)法2：open(filehandle,"<$filename")
說(shuō)明：這個(gè)語(yǔ)法也可以打開(kāi)一個(gè)存在的文件(read only)。
示例：
$filesname="usr/abc.txt";
open(file,"<$filename")||die"不能打開(kāi)文件$filename\n";
@array=<file> # 將
close(file);
print "@array"; # 也會(huì )把abc.TXT這個(gè)文件的內容顯示出來(lái)。
語(yǔ)法3：open(filehandle,">$filename")
說(shuō)明：建立一個(gè)新的文件(write only)；如果已經(jīng)存在這個(gè)文件了，就會(huì )把舊文件名覆蓋掉。并可用print filehandle的方式將數據存入打開(kāi)的文件中。
示例：
$filename="/usr/abc.txt";
open(file,">$filename")||die"不能打開(kāi)文件$filename\n;
print file "this is a new line1\n; # \n是換行字符
print file "this is a new line2\n;
close(file); # 會(huì )將數據存在一個(gè)新文件中。
語(yǔ)法4：open(filehandle,">>$filename")
說(shuō)明：數據用附加的方式定入一文件(write only)，如果指定的文件名不存在的話(huà)就會(huì )建立一個(gè)新的文件。
示例：
$filename="/path/abc.txt";
open(file,">>$filename")||die"不能打開(kāi)文件$filename\n";
print file "this is a new line1\n";
print file "this is a new line2\n";
close(file); # 會(huì )打數據附加(append)到一個(gè)文件(abc.txt)中。
語(yǔ)法5：open(filehandle,"|unix command")
說(shuō)明：就會(huì )把在filehandle的數據輸入給unix的指令來(lái)作處理。
示例：
$mailprog="/usr/ucb/mail"; # unix系統上的寄信程序(一定要加絕對路徑)
$who="mqingyi@126.com";
$open(file,"|$mailprog$who")||die"打開(kāi)失敗\n";
print file "I love you!\n";
print file "I want to see you.\n";
close(file);
該段代碼通過(guò) unix 系統的 mail 程序，將 FILE 這個(gè) FILEHANDLE 的數據內容寄給 $who 這個(gè)變量所指定的收信人。
指令：close
用法：close(filehandle)
說(shuō)明：用 open 這個(gè)函數來(lái)打開(kāi)一個(gè) filehandle 之后，一定要用 close 批這個(gè)函數把所打開(kāi)的 filehandle 關(guān)閉。
示例：
open(filehandle,"$filename");
close(filehandle);
指令：pack
語(yǔ)法：pack("指定的格式",list)
說(shuō)明：pack這個(gè)函數會(huì )將一個(gè) list 變成所指定的二進(jìn)制數據格式。在CGI程序分割解碼過(guò)程中，會(huì )用到 pack 這個(gè)函數。
示例：
$string=pack("c",65); #這時(shí) $string="a"; 將65這個(gè)ascii碼轉換成一個(gè)unsigned字符，其中c就是指定指轉換成 unsigned 字符的意思。
指令：read
語(yǔ)法：read(filehandle,$string,length) 其中 length 是代表讀入字符串的長(cháng)度(bytes)。
說(shuō)明：用 read 這個(gè)函數把 filehandle 中的數據依指定的字符串長(cháng)度讀入之后指派給 $string 這個(gè)變量。在cgi程序分割解碼過(guò)程中，如果 FORM 的傳送方式是設定為POST的話(huà)，就會(huì )將傳送的數據設定為標準輸入，所以會(huì )將數據內容指定給 STDIN 這個(gè)標準輸入的 filehandle ，而CGI環(huán)境變量 $env{‘content_length‘} 就是代表使用者送出數據內容的長(cháng)度，因此我們要用 read 這個(gè)函數來(lái)取得使用者送出的數據內容。
示例：
read(stdin,$buffer,$env{‘content_length‘}); # 就會(huì )將 stdin 這個(gè)標準輸入 filehandle 中的數據依指定的字符串長(cháng)度讀入，再指派給 $buffer 這個(gè)變量。
指令：exit
語(yǔ)法：exit
說(shuō)明：退出執行的程序。
示例：
print"i love cgi\n"; exit; # 表示顯示完 "i love cgi" 以后，將退出這個(gè)程序。
大多數 Perl 程序都不是孤立的，它們與環(huán)境相互作用。很多的程序也需要通過(guò)文件操作實(shí)現數據的存貯和交換。文件句柄(file handle)是 Perl 程序中為程序和外部世界提供 I/O 連接的名稱(chēng)。建議在 Perl 程序中文件句柄全部使用大寫(xiě)字母，以示與變量等字符串的區別。特別地，可以將 STDIN/STDOUT/STDERR 也認為是 Perl 的文件句柄，分別代表 標準輸入/標準輸出/標準錯誤輸出。
Perl的文件操作與C語(yǔ)言極為相似。如：
open(FILENAME,"abc.txt");
該調用為讀文件打開(kāi)，若為寫(xiě)文件而打開(kāi)，需在文件名前加上大于號：
open(FILENAME,">abc.txt");
若要追加至文件尾，可在文件名前加上兩個(gè)大于號：
open(FILENAME,">>abc.txt");
以上三種open()格式在成功時(shí)返回真，失敗時(shí)返回假。但程序中通常沒(méi)有提示，出錯時(shí)往往會(huì )被人們忽略。 通常當需要給出出錯提示時(shí)，可加入die()函數。例如：
open(OUTFILE,">/tmp/outfile")|| die "出錯，不能建立/tmp/outfile\n";
當 open 操作失敗時(shí)，就會(huì )執行 die 給出出錯提示。
對文件句柄的操作完成后，可以用 close 操作符關(guān)閉文件。如：
close(OUTFILE);
聯(lián)系客服
