Perl文件读写方法详解

开发 架构
Perl语言有很多值得学习的地方,你对Perl文件读写的概念是否了解呢,这里就向大家简单介绍一下,希望本文的介绍你对你有所帮助。

本文和大家重点讨论一下Perl文件读写的概念,打开Perl文件时必须决定访问模式,在PERL中有三种访问模式:读、写和添加。后两种模式的区别在于写模式将原Perl文件覆盖,原有内容丢失,形式为:open(outfile,">outfile")。

Perl文件读写

一、打开、关闭Perl文件

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

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

当Perl文件打开失败时结束程序:
unless(open(MYFILE,"file1")){
die("cannotopeninputfilefile1\n");
}

亦可用逻辑或操作符表示如下:
open(MYFILE,"file1")||die("Couldnotopenfile");
当Perl文件操作完毕后,用close(MYFILE);关闭Perl文件。

二、读Perl文件

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

三、写Perl文件

形式为:
open(OUTFILE,">outfile");
printOUTFILE("Hereisanoutputline.\n");
注:STDOUT、STDERR为标准输出和标准错误Perl文件,通常为屏幕,且不需要打开。

四、判断Perl文件状态

1、Perl文件测试操作符
语法为:-opexpr,如:
if(-e"/path/file1"){
printSTDERR("Filefile1exists.\n");
}

本文来自:虫虫实验室在线(www.ix88.com)原文链接:http://www.ix88.com/biancheng/cgi/20507.html

【编辑推荐】

 

  1. 解析读写Perl文件的简明步骤
  2. Perl文件句柄概念详解
  3. Perl文件句柄概念详解
  4. 术语汇编 全面认识Perl文件句柄
  5. 学习笔记 Perl数字与字符串间的自动转换
责任编辑:佚名 来源: ix88.com)
相关推荐

2010-07-20 15:26:26

Perl文件

2010-07-21 13:17:52

Perl文件读写

2010-07-14 17:11:57

Perl文件

2010-07-14 17:20:33

读写Perl文件

2010-07-14 15:23:19

Perl文件句柄

2010-07-26 15:06:29

Perl解析XML文件

2010-07-20 16:05:07

Perl包

2009-08-13 09:34:55

C#读写ini文件

2011-08-22 12:01:38

iPhone开发文件

2011-08-10 11:12:33

iPhone文件

2010-07-13 09:50:55

Perl数组

2010-07-19 13:42:04

Perl函数

2010-07-15 11:29:25

Perl格式化输出

2010-07-20 15:36:58

Perl语法

2010-07-23 13:53:33

Perl grep函数

2010-07-15 17:58:31

Perl模式

2023-04-07 08:32:31

模块Python

2010-07-16 09:50:23

Perl控制结构

2010-07-16 16:40:48

Perl引用

2010-07-20 13:44:02

Perl方法
点赞
收藏

51CTO技术栈公众号