Perl中的文件读写学习笔记

一、打开、关闭文件

语法为open (filevar, filename)，其中filevar为文件句柄，或者说是程序中用来代表某文件的代号，filename为文件名，其路径可为相对路径，亦可为绝对路径。
代码如下:
 open(FILE1,"file1");
 open(FILE1, "/u/jqpublic/file1");

打开文件时必须决定访问模式，在PERL中有三种访问模式：读、写和添加。后两种模式的区别在于写模式将原文件覆盖，原有内容丢失，形式为：open (outfile,">outfile")；而添加模式则在原文件的末尾处继续添加内容，形式为：open(appendfile, ">>appendfile")。要注意的是：不能对文件同时进行读和写/添加操作。
open的返回值用来确定打开文件的操作是否成功，当其成功时返回非零值，失败时返回零，因此可以如下判断：
代码如下:
if (open(MYFILE, "myfile")) {
# here's what to do if the file opened successfully
}

当文件打开失败时结束程序：
代码如下:
unless (open (MYFILE, "file1")) {
 die ("cannot open input file file1/n");
}

亦可用逻辑或操作符表示如下：
代码如下:
 open (MYFILE, "file1") || die ("Could not open file");

当文件操作完毕后，用close(MYFILE); 关闭文件。

二、读文件

语句$line =<> ;从文件中读取一行数据存储到简单变量$line中并把文件指针向后移动一行。为标准输入文件，通常为键盘输入，不需要打开。语句@array = <>;把文件的全部内容读入数组@array，文件的每一行(含回车符)为@array的一个元素。

三、写文件

形式为：
代码如下:
 open(OUTFILE, ">outfile");
 print OUTFILE ("Here is an output line./n");

注：STDOUT、STDERR为标准输出和标准错误文件，通常为屏幕，且不需要打开。

四、判断文件状态
1、文件测试操作符
 语法为：-op expr，如：
代码如下:
if (-e "/path/file1") {
 print STDERR ("File file1 exists./n");
}

文件测试操作符
操作符 描述
-b 是否为块设备
-c  是否为字符设备
-d  是否为目录
-e  是否存在
-f  是否为普通文件
-g  是否设置了setgid位
-k  是否设置了sticky位
-l  是否为符号链接
-o  是否拥有该文件
-p  是否为管道
-r  是否可读
-s  是否非空
-t  是否表示终端
-u  是否设置了setuid位
-w  是否可写
-x  是否可执行
-z  是否为空文件
-A  距上次访问多长时间
-B  是否为二进制文件
-C  距上次访问文件的inode多长时间
-M  距上次修改多长时间