[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?

dik Rasto

$ perl -v:
This is perl, v5.6.0 built for i386-linux

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