日志

Perl 文件句柄

热度 10已有 746 次阅读| 2021-11-11 14:41 |个人分类:Perl|系统分类:芯片设计| 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 $_;
}