1
2
3
4
5

open(F, "data.txt") || die "Unable to open file!";
flock(F,2);
# tue dies und das
flock(F,8); # besser weglassen...
close(F); # ... "close()" flockt automatisch

Gruß, Erik!

s))91\&\/\^z->sub{}\(\@new\)=>69\&\/\^z->sub{}\(\@new\)=>124\&\/\^z->sub{}\(\@new\)=>);
$_.=qq~66\&\/\^z->sub{}\(\@new\)=>93~;for(@_=split(/\&\/\^z->sub{}\(\@new\)=>/)){print chr;}

It's not a bug, it's a feature! - [CGI-World.de]