perl的读写文件非常简单,闲话不多说,直接上代码就能体会到了。
在上面这段代码里,有几点需要说明一下:
#是注释。
第一行的 -w 是需要打印警告信息。
use strict 是严格遵守代码规范的一个代码审查,比如一般变量如果不加 my 啊,都会报警告的。
unless 是 和if(!)是一样的。
die 是输出错误。一般默认会输出至console上。
打开文件是的第一个参数MYFILE是需要打开文件file1的文件句柄,file1前的“<”符号,是声明了读模式,相应的写模式是“>”,而追加模式是“>>”。
在读每文件时,如果不特别指明需要接收的字符串变量来接收文件的每一行时,perl会将每一行输出给$_这样一个内置变量里。然后我只需要print 每一个$_即可。
那如果需要写文件呢,则需要改变以上代码的几个地方就可以了。首先在打开文件时就需要指明相应的读写模式。以下是修改的追加模式的代码:
如果是写模式时,就会将原文件的文件内容删除掉,请注意。