?? perl5.htm
字號:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb_2312-80">
<title>Perl教程之 文件讀寫</title>
</head>
<body>
<br>
<p align="center">第五章 文件讀寫 <br></p>
<a href="#一、打開、關閉文件">一、打開、關閉文件</a><br>
<a href="#二、讀文件"> 二、讀文件</a><br>
<a href="#三、寫文件"> 三、寫文件</a><br>
<a href="#四、判斷文件狀態"> 四、判斷文件狀態</a><br>
<a href="#五、命令行參數"> 五、命令行參數</a><br>
<a href="#六、打開管道"> 六、打開管道</a>
<br><br>
<a name="一、打開、關閉文件">
一、打開、關閉文件</a>
<br>
語法為open (filevar, filename)，其中filevar為文件句柄，或者說是程序中用來代表某文件的代號，filename為文件名，其路徑可為相對路徑，亦可為絕對路徑。<br>
open(FILE1,"file1");<br>
open(FILE1,
"/u/jqpublic/file1");<br>
打開文件時必須決定訪問模式，在PERL中有三種訪問模式：讀、寫和添加。后兩種模式的區別在于寫模式將原文件覆蓋，原有內容丟失，形式為：open(outfile,">outfile");而添加模式則在原文件的末尾處繼續添加內容，形式為：open(appendfile,
">>appendfile")。要注意的是，不能對文件同時進行讀和寫/添加操作。<br>
open的返回值用來確定打開文件的操作是否成功，當其成功時返回非零值，失敗時返回零，因此可以如下判斷：<br>
if (open(MYFILE, "myfile")) {<br>
# here's what to do if the file opened
successfully<br>
}<br>
當文件打開失敗時結束程序：<br>
unless (open (MYFILE, "file1"))
{<br>
die ("cannot open input file
file1\n");<br>
}<br>
亦可用邏輯或操作符表示如下：<br>
open (MYFILE, "file1") || die
("Could not open file"); <br>
當文件操作完畢后，用close(MYFILE);
關閉文件。<br>
<a name="二、讀文件"> 二、讀文件
</a> <br>
語句$line = <MYFILE>;從文件中讀取一行數據存儲到簡單變量$line中并把文件指針向后移動一行。<STDIN>為標準輸入文件，通常為鍵盤輸入，不需要打開。<br>
語句@array = <MYFILE>;把文件的全部內容讀入數組@array，文件的每一行(含回車符)為@array的一個元素。<br>
<a name="三、寫文件"> 三、寫文件</a>
<br>
形式為：<br>
open(OUTFILE, ">outfile");<br>
print OUTFILE ("Here is an output
line.\n");<br>
注：STDOUT、STDERR為標準輸出和標準錯誤文件，通常為屏幕，且不需要打開。<br>
<a name="四、判斷文件狀態"> 四、判斷文件狀態</a>
<br>
1、文件測試操作符<br>
語法為：-op expr，如：<br>
if (-e "/path/file1") {<br>
print STDERR ("File file1
exists.\n");<br>
}<br>
</p>
<p align="center"> 文件測試操作符 </p>
<div align="center"><center>
<table border="1" width="70%">
<tr>
<td valign="top" width="192"> <i>操作符</i></td>
<td valign="top" width="384"> <i>描述</i></td>
</tr>
<tr>
<td valign="top" width="192"> -b</td>
<td valign="top" width="384"> 是否為塊設備</td>
</tr>
<tr>
<td valign="top" width="192"> -c </td>
<td valign="top" width="384"> 是否為字符設備
</td>
</tr>
<tr>
<td valign="top" width="192"> -d </td>
<td valign="top" width="384"> 是否為目錄
</td>
</tr>
<tr>
<td valign="top" width="192"> -e </td>
<td valign="top" width="384"> 是否存在
</td>
</tr>
<tr>
<td valign="top" width="192"> -f </td>
<td valign="top" width="384"> 是否為普通文件
</td>
</tr>
<tr>
<td valign="top" width="192"> -g </td>
<td valign="top" width="384"> 是否設置了setgid位
</td>
</tr>
<tr>
<td valign="top" width="192"> -k </td>
<td valign="top" width="384"> 是否設置了sticky位
</td>
</tr>
<tr>
<td valign="top" width="192"> -l </td>
<td valign="top" width="384"> 是否為符號鏈接
</td>
</tr>
<tr>
<td valign="top" width="192"> -o </td>
<td valign="top" width="384"> 是否擁有該文件
</td>
</tr>
<tr>
<td valign="top" width="192"> -p </td>
<td valign="top" width="384"> 是否為管道
</td>
</tr>
<tr>
<td valign="top" width="192"> -r </td>
<td valign="top" width="384"> 是否可讀
</td>
</tr>
<tr>
<td valign="top" width="192"> -s </td>
<td valign="top" width="384"> 是否非空
</td>
</tr>
<tr>
<td valign="top" width="192"> -t </td>
<td valign="top" width="384"> 是否表示終端
</td>
</tr>
<tr>
<td valign="top" width="192"> -u </td>
<td valign="top" width="384"> 是否設置了setuid位
</td>
</tr>
<tr>
<td valign="top" width="192"> -w </td>
<td valign="top" width="384"> 是否可寫
</td>
</tr>
<tr>
<td valign="top" width="192"> -x </td>
<td valign="top" width="384"> 是否可執行
</td>
</tr>
<tr>
<td valign="top" width="192"> -z </td>
<td valign="top" width="384"> 是否為空文件
</td>
</tr>
<tr>
<td valign="top" width="192"> -A </td>
<td valign="top" width="384"> 距上次訪問多長時間
</td>
</tr>
<tr>
<td valign="top" width="192"> -B </td>
<td valign="top" width="384"> 是否為二進制文件
</td>
</tr>
<tr>
<td valign="top" width="192"> -C </td>
<td valign="top" width="384"> 距上次訪問文件的inode多長時間
</td>
</tr>
<tr>
<td valign="top" width="192"> -M </td>
<td valign="top" width="384"> 距上次修改多長時間
</td>
</tr>
<tr>
<td valign="top" width="192"> -O </td>
<td valign="top" width="384"> 是否只為“真正的用戶”所擁有
</td>
</tr>
<tr>
<td valign="top" width="192"> -R </td>
<td valign="top" width="384"> 是否只有“真正的用戶”可讀
</td>
</tr>
<tr>
<td valign="top" width="192"> -S </td>
<td valign="top" width="384"> 是否為socket
</td>
</tr>
<tr>
<td valign="top" width="192"> -T </td>
<td valign="top" width="384"> 是否為文本文件
</td>
</tr>
<tr>
<td valign="top" width="192"> -W </td>
<td valign="top" width="384"> 是否只有"真正的用戶"可寫
</td>
</tr>
<tr>
<td valign="top" width="192"> -X </td>
<td valign="top" width="384"> 是否只有"真正的用戶"可執行
</td>
</tr>
<tr>
<td colspan="2"> 注：“真正的用戶”指登錄時指定的userid，與當前進程用戶ID相對，命令suid可以改變有效用戶ID。</td>
</tr>
</table>
</center></div>
<p> 例：<br>
unless (open(INFILE, "infile"))
{<br>
die ("Input file infile cannot be
opened.\n");<br>
}<br>
if (-e "outfile") {<br>
die ("Output file outfile already
exists.\n");<br>
}<br>
unless (open(OUTFILE,
">outfile")) {<br>
die ("Output file outfile cannot be
opened.\n");<br>
}<br>
等價于<br>
open(INFILE, "infile")
&& !(-e "outfile") &&<br>
open(OUTFILE, ">outfile") ||
die("Cannot open files\n");<br>
<a name="五、命令行參數"> 五、命令行參數</a>
<br>
象C一樣，PERL也有存儲命令行參數的數組@ARGV，可以用來分別處理各個命令行參數；與C不同的是，$ARGV[0]是第一個參數，而不是程序名本身。<br>
$var = $ARGV[0]; # 第一個參數<br>
$numargs = @ARGV; # 參數的個數<br>
PERL中，<>操作符實際上是對數組@ARGV的隱含的引用，其工作原理為：<br>
1、當PERL解釋器第一次看到<>時，打開以$ARGV[0]為文件名的文件；<br>
2、執行動作shift(@ARGV); 即把數組@ARGV的元素向前移動一個，其元素數量即減少了一個。<br>
3、<>操作符讀取在第一步打開的文件中的所有行。<br>
4、讀完后，解釋器回到第一步重復。<br>
例：<br>
@ARGV = ("myfile1",
"myfile2"); #實際上由命令行參數賦值<br>
while ($line = <>) {<br>
print ($line);<br>
} <br>
將把文件myfile1和myfile2的內容打印出來。<br>
<a name="六、打開管道"> 六、打開管道</a>
<br>
用程序的形式也可以象命令行一樣打開和使用管道(ex:ls
> tempfile)。如語句open (MYPIPE, "| cat >hello");
打開一個管道，發送到MYPIPE的輸出成為命令"cat
>hello"的輸入。由于cat命令將顯示輸入文件的內容，故該語句等價于open(MYPIPE,
">hello"); 用管道發送郵件如下：<br>
open (MESSAGE, "| mail dave");<br>
print MESSAGE ("Hi, Dave! Your Perl
program sent this!\n");<br>
close (MESSAGE);<br>
</p>
<p align="center"><a href="perl4.htm">上一章</a> <a href="perl6.htm">下一章</a> <a href="index.htm">目錄</a></p>
<br>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -