perl文件操作

一、打开文件

$OpenFileFlag  =  open(FILEHANDLE,"模式标识符 FileName");

如果打开成功,则返回真值(非空值);如果打开失败,则返回假值(空值);文件认访问模式是只读;

1、使用open函数进行文件重定向

$OpenFlag  =  open(HFCAT,"cat file* |");

则open函数先把cat命令的输出构造成一个文件,然后与文件句柄变量HFCAT关联起来;

$OpenFlag1  =  open(FH1,"> FileName");

$OpenFlag2  =  open(FH2,">&  FH1");

这两行语句的功能是把文件句柄FH1和HF2都关联到文件FileName上,两个文件句柄都向同一个文件中写入数据;

其中第二条语句中的参数">& FH1"告诉Perl解释器使用已经打开的并与文件句柄FH1关联的文件,即:文件句柄FH1和FH2都指向与FH1相关联的文件

二、关闭文件

关闭文件使用函数close();如果关闭文件是管道文件,即重定向的命令时,程序会等待重定向命令执行结束;

close(FILEHANDLE);

三、print、printf和write函数

这三个函数都是输出函数;其中print是最简单的函数

1、print   ("Hello,Perl World/n"); 

     输出到当前认的文件中(由select()函数选择),没有调用select()时,认的输出文件是标准输出STDOUT;

2、print   OUTFILE  ("Hello,Perl World/n") ;

     把数据输出到指定文件句柄OUTFILE所指向的文件中;

3、printf  ($FORMATSTRING,arg1,arg2,...,argN);

     先格式化数据,然后把格式化后的数据写到文件中(由select()函数选择),没有调用select()时,认的输出

     文件是标准输出STDOUT;

4、printf  OUTFILE  ($FORMATSTRING,arg1,arg2,...,argN);

     先格式化数据,然后把数据输出到指定文件句柄OUTFILE所指向的文件中;

5、write  ($FORMATSTRING,arg1,arg2,...,argN);

6、write  OUTFILE  ($FORMATSTRING,arg1,arg2,...,argN);

7、select()函数

      select(FILEHANDLE);

      这个函数把参数FILEHANDLE所指定的文件句柄设置为当前新的文件;当对print、printf和write函数调用

      未指定文件时,认就写入到文件句柄FILEHANDLE所指向的文件中;

8、eof()函数

      eof函数判断最后一次读文件操作是否是文件的最后一个记录(检查文件读写位置指针是否已经到达文件尾部),

      如果是,则返回非零值(真),如果不是,否则返回零值(假);也就是说,最后一次读取文件时,如果文件读写位

      置指针已经到达文件尾部,则eof函数返回非零值(真),如果没有到达文件尾部,则返回零值(假);
      一般情况下,带圆括号的eof()函数调用与不带圆括号的eof函数调用效果是一样的;但是如果与文件输入运算

      符<>一起使用的话,效果就不一样了;当在命令行输入多个文件的时候,不带圆括号的eof函数调用在读完每一

      个文件的时候,都会认为读到这个文件尾部了,此时返回非零值(真),否则返回零值(假);而带圆括号的eof()函

      数调用则会认为只有当所有的文件都读取完了,才会认为是读取文件结束,也就是说只有当文件读写位置指针

      到达最后一个文件的尾部时,才会认为读取文件结束,此时eof()函数返回非零值(真),否则返回零值(假);只有

      所有文件都读过了,eof()函数才会返回真值,如果只是多个文件中的前面几个文件的结尾,则eof()函数仍然返

      回假值,因为还有需要读取的输入;

四、系统读写函数

1、read()函数

     Perl把该函数设计得与UNUX系统中的fread()函数等效,用于从指定文件中读取任意长度的字符(字节)数,并把读

     到的数据存储到一个简单变量或数组元素中;调用语法如下:

     $BytesToRead  =  read(FileVariable,Buffer,Length,BytesTpSkip);

     FileVariable:用于存储文件句柄的简单变量;

     Buffer:用于存储read读到的数据的简单变量(或数组元素);

     Length:最多需要读取的字节数;

     BytesToSkip:可选项,用于指定读取文件之前需要跳过的字节数;

     返回值:返回值为实际读取到的字节数;如果文件读写位置指针已经到达文件的尾部,则read()返回零;如果出

      错,则read()返回空值;

2、sysread()函数

     该函数用于更快地读取数据,其实现与UNIX系统中的read()函数等效,与Perl中的read()函数相同;调用语法:

     $BytesToRead  =  sysread(FileVariable,Buffer,Length,BytesToSkip);

     Buffer:用于存储读取到的数据的简单变量(或数组元素);

     BytesToSkip:可选项,用于指定在读取文件之前需要跳过的字节数;

     返回值:返回值为实际读取到的字节数;如果文件读写位置指针已经到达文件尾部,则sysread()返回零;如果

     出错,则sysread()返回空值;

3、syswrite()函数

      该函数用于更快地写入数据,其实现与UNIX中的write()函数等效;有4个参数:

      $BytesToWrite  =  syswrite(FileVariable,DataBuffer,Length,BytesToSkip);

      FileVariable:用于存储文件句柄的简单变量;

      DataBuffer:用于存放将要写入的数据的缓冲区;

      Length:需要写入的字节数;

      BytesToSkip:在写文件之前需要跳过的字节数;

      返回值:返回实际写入的字节数;如果出错,则syswrite()返回空值;

4、getc()函数

      该函数用于从指定文件中读取一个字符(字节);其实现与UNIX C语言中的getc()函数等效;调用语法:

      $Char  =  getc(FileVariable);

      FileVariable:用于存放文件句柄的简单变量;

      返回值:返回读取到的字符;

5、binmode()函数

      该函数用于读取二进制文件;当所在的系统对文本文件和二进制文件有所区别时使用;必须在打开文件之后、

      读取文件之前调用调用语法:

      binmode(FileVariable) ;

      FileVariable:用于存放文件句柄的简单变量;

相关文章

1. 如何去重 #!/usr/bin/perl use strict; my %hash; while(...
最近写了一个perl脚本,实现的功能是将表格中其中两列的数据...
表的数据字典格式如下:如果手动写MySQL建表语句,确认麻烦,...
巡检类工作经常会出具日报,最近在原有日报的基础上又新增了...
在实际生产环境中,常常需要从后台日志中截取报文,报文的形...
最近写的一个perl程序,通过关键词匹配统计其出现的频率,让...