perl学习之文件句柄filehandle perl 句柄_perl_脚本语言_编程语言

perl学习之文件句柄filehandle perl 句柄

2023-02-09 学习力0

核心提示：句柄handle 分为文件句柄和目录句柄，文件句柄实际上包含文件，进程和套接字的读写。文件句柄的操作步骤open(FD,"filename");@lines=FD;close(FD); open()由以下几个用法open(FD," filename") 写数据进文件open(FD," filename") 追加数据进文件open(FD,"fi

句柄handle 分为文件句柄和目录句柄，文件句柄实际上包含文件，进程和套接字的读写。

文件句柄的操作步骤

open(FD,"filename");

@lines=<FD>;

close(FD);

open()由以下几个用法

open(FD,"> filename") 写数据进文件

open(FD,">> filename") 追加数据进文件

open(FD,"filename") 读文件

open(FD,"process |") 读进程结果

open(FD,"| to process") 往进程中写数据，不过对WINDOWS系统写会有问题

$line=<FD> 获取起始行

如果要遍历整个文件

while (defined $line=<FD>) {}

@lines=<FD> 将整个文件放入lines数组中

可以使用FileHandle包，可以避免变量覆盖的现象。

use FileHandle;

$fileHandleName= new FileHandle("filename");

$line=<$fileHandleName>;

close() 关闭文件句柄

实际上，perl会在句柄超出范围或程序结束时，自动关闭。

写入操作

print (@arrayName) 或 print FILEHANDLENAME (@arrayName)

也可以用以下方式来写入

foreach $line(@arrayName)

{

print FILEHANDLENAME "$line\n";

}

使用$line的好处是，程序在运行时，会将$line的值立即放入文件中。而使用@arrayname的方式会先放入缓存中累积，如果出现进程中断，会倒是输出数据丢失。如果要避免这个问题出现可以把$|设置为1

对二进制文件的读写

使用binmode FILEHANDLE

具体实例

open(IN_FD,"test.gif");

open(OUT_FD," > copy.gif");

binmode(IN_FD);

binmode(OUT_FD);

while(read(IN_FD,$buffer,1024){

print OUT_FD,$buffer;

}

close(IN_FD);

close(OUT_FD);

select(FILEHANDLE) 用于设定输出的默认句柄

在select指定句柄后，随后输出在默认情况下，会输出到指定的句柄

open(FD,"> newfile");

select(FD);

print "test"; #将test添加到newfile中

select(STDOUT);

print "ok"; #将ok输出到屏幕

flock()文件加锁，只适用unix，其他系统或网络文件可能无效

1 创建共享锁 2 创建排他锁 4 创建非阻塞锁 8 排除当前锁

open(FD,">> inputfile");

flock(FD,2);

print FD "test string";

flock(FD,8);

close(FD);

seek()使用,可以让文件指针指向到指定位置

seek(FILEHANDLE,BYTEOFFSET,FILEPOSITION)

BYTEOFFSET 用于位移值，可以是正负值

FILEPOSITION 位置值，0表示到文件开头，1文件中的当前位置，2文件末尾位置

tell()返回文件中当前字节的位置

打开文件进行读写的操作

open(FD,"+<filename") 先读后写

open(FD,"+>filename") 先写后读

open(FD,"+>>filename") 先追加后读

免责声明：本文仅代表作者个人观点，与乐学笔记（本网）无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
本网站有部分内容均转载自其它媒体，转载目的在于传递更多信息，并不代表本网赞同其观点和对其真实性负责，若因作品内容、知识产权、版权和其他问题，请及时提供相关证明等材料并与我们留言联系，本网站将在规定时间内给予删除等相关处理.