当前位置: 技术问答>linux和unix
关于c和perl的文件锁问题
来源: 互联网 发布时间:2016-04-06
本文导语: 开始用c:我用lockf锁住了一个文件, int fd = open("/home/tbkk/bin/lockfile", O_WRONLY | O_CREAT, 0660); if (lockf(fd, F_TLOCK, 0) == -1) { if ((errno == EAGAIN) || (errno == EACCES)) return 1; return -1; } 然后我可以用lockf(fd...
开始用c:我用lockf锁住了一个文件,
int fd = open("/home/tbkk/bin/lockfile", O_WRONLY | O_CREAT, 0660);
if (lockf(fd, F_TLOCK, 0) == -1)
{
if ((errno == EAGAIN) || (errno == EACCES)) return 1;
return -1;
}
然后我可以用lockf(fd, F_TEST, 0)来看,这个文件有没有被锁掉,
现在我想用perl谢个测试文件锁是否存在的一个功能,该怎么弄啊~迷惘了。小弟刚学习perl。。
int fd = open("/home/tbkk/bin/lockfile", O_WRONLY | O_CREAT, 0660);
if (lockf(fd, F_TLOCK, 0) == -1)
{
if ((errno == EAGAIN) || (errno == EACCES)) return 1;
return -1;
}
然后我可以用lockf(fd, F_TEST, 0)来看,这个文件有没有被锁掉,
现在我想用perl谢个测试文件锁是否存在的一个功能,该怎么弄啊~迷惘了。小弟刚学习perl。。
|
不是吧,怎么有这样解的哪!
感觉不太可能,或许你还有别的什么办法,这中编码风格实在是太...
感觉不太可能,或许你还有别的什么办法,这中编码风格实在是太...
|
open (FILE, '>> test.dat'); # open the file
flock FILE, 2; # try to lock the file
# do something with the file here
flock FILE, 8; # unlock the file
close(FILE); # close the file
flock FILE, 2; # try to lock the file
# do something with the file here
flock FILE, 8; # unlock the file
close(FILE); # close the file