PERL文件操作

在Perl中可以用open或者sysopen函数来打开文件进行操作，这两个函数都需要通过一个文件句柄（即文件指针）来对文件进行读写定位等操作。

open函数为例:

一、打开、关闭文件?

?? ?open的返回值用来确定打开文件的操作是否成功，当其成功时返回非零值，失败时返回零，因此可以如下判断：

?? ?if (open(MYFILE,"myfile"))?

?? ?{

?? ? ? ?# here is what to do if the file opened successfully

?? ?}

?

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

?

?? ?读：open(文件句柄，"<文件名") ?open(文件句柄，"文件名") ? 前提文件必须已经存在，否则会返回0，出错信息在$!中

?? ?写：open(文件句柄，">文件名")，文件如果不存在，那么创建之，如果存在，内容被清空，长度截为0，$!中有出错信息。

?? ?追加：open(文件句柄,">>文件名")，基本同写，但有一点，文件中的内容不会被清空，新的内容会追加到原文后面。

?? ?读写：open(文件句柄,"+<文件名")，通过“+<”模式，你可以既可以读文件，又可以写文件。你可以通过tell() 函数在文件内部移动，通过seek()函数进行定位。如果文件不存在，就会被创建。如果文件已经存在，原来的数据不会被清除。

?

二、读文件 ? ? ? ? ? ? ?

?? ?语句$line = <MYFILE>;从文件中读取一行数据存储到简单变量$line中并把文件指针向后移动一行。

?? ?语句@array = <MYFILE>;把文件的全部内容读入数组@array，文件的每一行(含回车符)为@array的一个元素。

?

三、写文件?

print MYFILE ("Here is an output line./n");?

syswrite(FILE,"This is my write file /n");

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

?

四、判断文件状态

if (-e "/path/file1") ? ? ? ? ? ? ? # -e 是否存在

{

?? ?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 距上次修改多长时间

-O 是否只为“真正的用户”所拥有

-R 是否只有“真正的用户”可读

-S 是否为socket

-T 是否为文本文件

-W 是否只有"真正的用户"可写

-X 是否只有"真正的用户"可执行

注：“真正的用户”指登录时指定的userid，与当前进程用户ID相对，命令suid可以改变有效用户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");

?? ?}

??等价于

?? ?open(INFILE,"infile") && !(-e "outfile") &&

?? ?open(OUTFILE,">outfile") || die("Cannot open files/n");

?

五、命令行参数?

??象C一样，PERL也有存储命令行参数的数组@ARGV，可以用来分别处理各个命令行参数；与C不同的是，$ARGV[0]是第一个参数，而不是程序名本身。

?? ?$var = $ARGV[0]; # 第一个参数

?? ?$numargs = @ARGV; # 参数的个数

??PERL中，<>操作符实际上是对数组@ARGV的隐含的引用，其工作原理为：

1、当PERL解释器第一次看到<>时，打开以$ARGV[0]为文件名的文件；

2、执行动作shift(@ARGV); 即把数组@ARGV的元素向前移动一个，其元素数量即减少了一个。

3、<>操作符读取在第一步打开的文件中的所有行。

4、读完后，解释器回到第一步重复。

??例：

?? ?@ARGV = ("myfile1","myfile2"); #实际上由命令行参数赋值

?? ?while ($line = <>) {

?? ?print ($line);

?? ?}?

??将把文件myfile1和myfile2的内容打印出来。

?

六、打开管道?

??用程序的形式也可以象命令行一样打开和使用管道(ex:ls > tempfile)。如语句open (MYPIPE,"| cat >hello"); 打开一个管道，发送到MYPIPE的输出成为命令"cat >hello"的输入。由于cat命令将显示输入文件的内容，故该语句等价于open(MYPIPE,">hello"); 用管道发送邮件如下：

?? ?open (MESSAGE,"| mail dave");

?? ?print MESSAGE ("Hi,Dave! Your Perl program sent this!/n");

?? ?close (MESSAGE); ? ?