第五章 文件讀寫(xiě)
文件測(cè)試操作符
| 操作符 | 描述 |
| -b | 是否為塊設(shè)備 |
| -c | 是否為字符設(shè)備 |
| -d | 是否為目錄 |
| -e | 是否存在 |
| -f | 是否為普通文件 |
| -g | 是否設(shè)置了setgid位 |
| -k | 是否設(shè)置了sticky位 |
| -l | 是否為符號(hào)鏈接 |
| -o | 是否擁有該文件 |
| -p | 是否為管道 |
| -r | 是否可讀 |
| -s | 是否非空 |
| -t | 是否表示終端 |
| -u | 是否設(shè)置了setuid位 |
| -w | 是否可寫(xiě) |
| -x | 是否可執(zhí)行 |
| -z | 是否為空文件 |
| -A | 距上次訪問(wèn)多長(zhǎng)時(shí)間 |
| -B | 是否為二進(jìn)制文件 |
| -C | 距上次訪問(wèn)文件的inode多長(zhǎng)時(shí)間 |
| -M | 距上次修改多長(zhǎng)時(shí)間 |
| -O | 是否只為“真正的用戶(hù)”所擁有 |
| -R | 是否只有“真正的用戶(hù)”可讀 |
| -S | 是否為socket |
| -T | 是否為文本文件 |
| -W | 是否只有"真正的用戶(hù)"可寫(xiě) |
| -X | 是否只有"真正的用戶(hù)"可執(zhí)行 |
| 注：“真正的用戶(hù)”指登錄時(shí)指定的userid，與當(dāng)前進(jìn)程用戶(hù)ID相對(duì)，命令suid可以改變有效用戶(hù)ID。 | |
例：
unless (open(INFILE, "infile"))
{
die ("Input file infile cannot be
opened.\n");
}
if (-e "outfile") {
die ("Output file outfile already
exists.\n");
}
unless (open(OUTFILE,
">outfile")) {
die ("Output file outfile cannot be
opened.\n");
}
等價(jià)于
open(INFILE, "infile")
&& !(-e "outfile") &&
open(OUTFILE, ">outfile") ||
die("Cannot open files\n");
五、命令行參數(shù)
象C一樣，PERL也有存儲(chǔ)命令行參數(shù)的數(shù)組@ARGV，可以用來(lái)分別處理各個(gè)命令行參數(shù)；與C不同的是，$ARGV[0]是第一個(gè)參數(shù)，而不是程序名本身。
$var = $ARGV[0]; # 第一個(gè)參數(shù)
$numargs = @ARGV; # 參數(shù)的個(gè)數(shù)
PERL中，<>操作符實(shí)際上是對(duì)數(shù)組@ARGV的隱含的引用，其工作原理為：
1、當(dāng)PERL解釋器第一次看到<>時(shí)，打開(kāi)以$ARGV[0]為文件名的文件；
2、執(zhí)行動(dòng)作shift(@ARGV); 即把數(shù)組@ARGV的元素向前移動(dòng)一個(gè)，其元素?cái)?shù)量即減少了一個(gè)。
3、<>操作符讀取在第一步打開(kāi)的文件中的所有行。
4、讀完后，解釋器回到第一步重復(fù)。
例：
@ARGV = ("myfile1",
"myfile2"); #實(shí)際上由命令行參數(shù)賦值
while ($line = <>) {
print ($line);
}
將把文件myfile1和myfile2的內(nèi)容打印出來(lái)。
六、打開(kāi)管道
用程序的形式也可以象命令行一樣打開(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ā)送郵件如下：
open (MESSAGE, "| mail dave");
print MESSAGE ("Hi, Dave! Your Perl
program sent this!\n");
close (MESSAGE);