Opened by x-man at 2006-04-17 19:11
User since
2003-08-04
12208 Artikel
Admin1
![[Homepage]](/battie/theme/default/homepage.gif)
2003-08-04
12208 Artikel
Admin1
besser:
ein flock $fh, 8 (also unlock) solltest du lassen, denn durch das close wird
ja automatisch der lock aufgehoben. das ist vermutlich auch die fehlerursache.
wenn der provider flock() verbietet, würde ich wechseln.\n\n
<!--EDIT|pq|1145291611-->
Code: (dl
)
1
2
3
4
5
6
7
8
9
10
# ungetestet
use Fcntl qw(:flock);
sub lock {
my ($fh, $mode) = @_;
flock $fh, $mode;
}
...
lock(\*FH, LOCK_EX); # exclusive
# lock(\*FH, LOCK_SH); # shared
ein flock $fh, 8 (also unlock) solltest du lassen, denn durch das close wird
ja automatisch der lock aufgehoben. das ist vermutlich auch die fehlerursache.
wenn der provider flock() verbietet, würde ich wechseln.\n\n
<!--EDIT|pq|1145291611-->
Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
lesen:
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
lesen:
Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem