perl简单读写文件

perl的读写文件非常简单，闲话不多说，直接上代码就能体会到了。

?

#!/usr/bin/perl -w use strict; unless (open (MYFILE,"<file1")) { die ("cannot open input file file1/n"); }else{ while(<MYFILE>) {print $_;} #print MYFILE ("wahaha./n"); }

在上面这段代码里，有几点需要说明一下：

#是注释。

第一行的 -w 是需要打印警告信息。

use strict 是严格遵守代码规范的一个代码审查，比如一般变量如果不加 my 啊，都会报警告的。

unless 是 和if(!)是一样的。

die 是输出错误。一般默认会输出至console上。

打开文件是的第一个参数MYFILE是需要打开文件file1的文件句柄，file1前的“<”符号，是声明了读模式，相应的写模式是“>”，而追加模式是“>>”。

在读每文件时，如果不特别指明需要接收的字符串变量来接收文件的每一行时，perl会将每一行输出给$_这样一个内置变量里。然后我只需要print 每一个$_即可。

?

那如果需要写文件呢，则需要改变以上代码的几个地方就可以了。首先在打开文件时就需要指明相应的读写模式。以下是修改的追加模式的代码：

#!/usr/bin/perl -w use strict; unless (open (MYFILE,">>file1")) { die ("cannot open input file file1/n"); }else{ # while(<MYFILE>) # {print $_;} print MYFILE ("wahaha./n"); }

?

如果是写模式时，就会将原文件的文件内容删除掉，请注意。