[Cascavel-pm] NFS x flock

[Ednardo Lobo]

Há alguma maneira de fazê-los funcionar juntos? Testei aqui e não funcionou:

#!/usr/bin/perl
use strict;
use Fcntl ':flock';

open(FH, ">>lock.txt")  or die $!;

print "------\n";

dolock();

print FH "ok\n";

print "Press any: "; <STDIN>;

unlock();

close FH;

sub dolock {
     flock(FH,LOCK_EX);
     seek(FH, 0, 2);
}

sub unlock {
     flock(FH,LOCK_UN);
}

Alguma outra forma de implementar lock() sobre NFS com Perl? Necessito 
que apenas um único processo, de vários, rodandando em um conjunto de 
computadores clientes acessando arquivos num servidor NFS leiam 
determinado arquivo. Caso um processo tente ler um arquivo já em leitura 
por outro, ele deve abortar a operação e tentar ler outro.


Grato,

-- 
     Ednardo Lobo

     www.lobo.eti.br