[linux] OT: flock v perli mi asi nefunguje

[Rasto Fuko]

> > Ahojte mam taky jednoduchy programcek, ktory by mal locknut subor
> > test.dat
> > ---------------------
> > #!/usr/bin/perl -U
> > 
> > $LOCK_EXCLUSIVE = 2;
> > $UNLOCK		= 8;
> > 
> > open (FILE, ">> test.dat") || die "problem opening test.dat\n";
> > flock FILE, $LOCK_EXCLUSIVE || die "problem locking test.dat\n";
> > sleep 20;
> > print FILE "test\n";
> > flock FILE, $UNLOCK;
> > close(FILE);
> > ---------------------
> > ako mozem zistit ci sa ten subor naozaj lockne? poces behu skriptu
> > mozem zapisovat aj mazat test.dat, funguje to spravne?
> 
> flock() nieje "zavazne zamykanie".
> 
Je v perli nejaka ina moznost uzamknut subor, tak aby
ten subor pocas prace nebol inemu skriptu alebo uzivatelovi
 pristupny?

dik
____________________________________
http://www.logofun.pobox.sk - urobte radost svojmu telefonu