Perl 文件句柄

文件访问：

open(DATA, "<file.txt") or die "file.txt File cannot be opened, $!";

<         只读方式打开，将文件指针指向文件头。

>         覆盖形式写入

>>      追加形式写入，末尾追加。

+<         读写方式打开，先读后写；添加数据可使用seek()函数定位到要添加数据的位置，然后再写入。

+>      读写，先写后读；先覆盖形式写入内容，然后再读；操作结果：文件中以前的数据被删除，现在文件中只保留目前写入的数据

对访问文件做了简单的练习，练习脚本见/user/lningbo/fh1.pl

 

 

open LOG1,">","/tmp/a.log";   # 以覆盖写入的方式打开文件/tmp/a.log

open LOG2,">>","/tmp/a.log";  # 以追加写入的方式打开文件/tmp/a.log

open LOG3,"<","/tmp/a.log";   # 打开/tmp/a.log文件，以提供输入源

open LOG4,"/tmp/a.log";       # 等价于上面的输入，默认的模式就是输入

 

eg：

#!/usr/bin/perl

use 5.010;

 

open LOG,"<","test.log" or die "open file wrong: $!"

while(<LOG>){

    chomp;

    print $_;

}