[Cascavel-pm] Controle de processo em perl

[Paulo]

kleber escreveu:
> Caro Sr(s) ,
>
> Estou precisando executar um script em perl e garantir que sua re-execução 
> só se realize após o encerramento da rotina em andamento ou seja a rotina 
> pode ser acionada pôr vários usuários porém deve ser executada de forma 
> individual ou única.
>
> Alguém sabe coma fazer isto ?????????????
>
> Agradeço a atenção dispensada ,
>
> kleber 
>
> _______________________________________________
> Cascavel-pm mailing list
> Cascavel-pm em pm.org
> http://mail.pm.org/mailman/listinfo/cascavel-pm
>
>
>
>   
Prezado Kleber uma maneira simples é utilizar o bloqueio consultivo de 
arquivos.
O arquivo ".lock" fica vazio e é utilizado apenas para ser bloqueado.
Funciona bem.

Obs: Não testei o código abaixo.

#!/usr/bin/perl -wT

use strict;
use warnings;
use Fcntl qw/:DEFAULT :flock/;
open(my $lock, ">", '.lock') or die;
flock($lock, LOCK_EX) or die;
#
# SEU CODIGO AQUI
#
close $lock or die;