PHP 锁定档案 可以用 flock 函式, 在 Perl 也差不多, 只要使用 Fcntl 模组就可以:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 |
#!/usr/bin/perl use strict; use warnings; use Fcntl qw(:flock); open(my $fh, "filename.dat") or die "Can't open filename.dat $!"; flock(DATA, LOCK_EX); ### lock file print $fh "new content\n"; ### write something flock(DATA, LOCK_UN); ### unlock file close $fh; |