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