Perl文件及目錄操作

2019-11-18 17:24:03

字體：大中小

供稿：網(wǎng)友

　　大多數(shù)程序都不是孤立的,它們與它們的環(huán)境相互作用。很多的程序也需要通過文件操作實(shí)現(xiàn)數(shù)據(jù)的存貯和交換。文件句柄(filehandle)是Perl程序中為程序和外部世界提供I/O連接的名稱。建議全部使用大寫字母以示與變量等的區(qū)別。特別地，也可以將STDIN/STDOUT/STDERR也認(rèn)為是Perl的文件句柄，分別代表標(biāo)準(zhǔn)輸入/標(biāo)準(zhǔn)輸出/標(biāo)準(zhǔn)錯誤輸出。

打開及關(guān)閉文件

　　Perl的文件操作與C語言極為相似。如：

open(FILENAME,"abc.txt");

　　該調(diào)用為讀文件打開，若為寫文件而打開，需在文件名前加上大于號：

open(FILENAME,">abc.txt");

　　若要追加至文件尾，可在文件名前加上兩個(gè)大于號：

open(FILENAME,">>abc.txt");

　　以上三種open()格式在成功時(shí)返回真，失敗時(shí)返回假。但程序中通常沒有提示，出錯時(shí)往往會被人們忽略。通常當(dāng)需要給出出錯提示時(shí)，可加入die()函數(shù)。例：

open(OUTFILE,">/tmp/outfile")||
die"出錯，不能建立/tmp/outfile/n";

　　當(dāng)只有open失敗時(shí)，才會執(zhí)行die給出出錯提示。

　　對文件句柄的操作完成后，可以用close操作符關(guān)閉文件。如：

close(OUTFILE);

-x文件測試

　　Perl的文件操作也可以先測試文件是否存在，是否可讀寫等。如：

$x="abc.txt";
if(-e$x){#abc.txt是否存在？
#存在操作
}else{