Help for this page

Select Code to Download

Select or download this

open(FH,"+<./file.dat") || die("Can't open ./file.dat for reading/writ
+ing: $!");
flock(FH,LOCK_EX);
seek(FH,0,0);
...
print FH join("\n",@dat);
flock(FH,LOCK_UN);
close(FH);