perl – 当您再次使用open时,文件锁会保留吗?

假设:

my $fh;
open $fh,">>","file.txt";
flock($fh,LOCK_EX);
open $fh,"+<","file.txt";
close $fh;

文件锁会保留还是会被释放?如果它会被释放有没有办法让它留下来?
我没有找到相关信息.

解决方法

在已分配给打开文件描述符的文件句柄上调用open会对文件句柄执行隐式关闭.关闭一个锁定的文件句柄会释放锁定.

通过在两种不同的模式下使用相同的文件句柄打开相同的文件,我不清楚你要做什么.如果您使用第二个文件句柄怎么办?

open my $fh,LOCK_EX);
open my $fh2,"file.txt";
... rewrite 'file.txt' with $fh2 ...
close $fh2;   # done with rewrite
close $fh;    # done with lock

对于<中的文件,看起来像flock一样受到尊重模式(在Linux中工作,这可能不是可移植的),所以使用它和一些搜索语句,你只需要一个文件句柄.

# make sure file exists before you use '+<' mode
{ open my $touch,'>>','file.txt'; }

open my $fh,'+<','file.txt';
flock $fh,LOCK_EX;

seek $fh,2;
print $fh 'stuff for the end of the file';

seek $fh,0;
print $fh 'something for the start of the file';

close $fh;  # releases lock

相关文章

1. 如何去重 #!/usr/bin/perl use strict; my %hash; while(...
最近写了一个perl脚本,实现的功能是将表格中其中两列的数据...
表的数据字典格式如下:如果手动写MySQL建表语句,确认麻烦,...
巡检类工作经常会出具日报,最近在原有日报的基础上又新增了...
在实际生产环境中,常常需要从后台日志中截取报文,报文的形...
最近写的一个perl程序,通过关键词匹配统计其出现的频率,让...