[Cascavel-pm] NFS x flock
Ednardo Lobo
ednardo em lobo.eti.br
Quinta Fevereiro 9 06:00:09 PST 2006
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
Mais detalhes sobre a lista de discussão Cascavel-pm