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);???

原文出处(点击此处)