AUTOR PREGUNTA #1
Publicado 22 mayo 2014 - 20:31
¿Cómo puedo forzar el mod_perl a qué solo admita un proceso por conexión?
-
¿Tienes la misma pregunta? Yo también
PREGUNTAS SIMILARES
#2
Publicado 23 mayo 2014 - 03:51
Eso lo puedes hacer con lock file, te dejo un ejemplo:
use strict; use warnings; use Fcntl qw(:flock); local *FH; my $opened_file = open(FH,'>/tmp/archivo_ejemplo.lck'); if ($opened_file) { print "Lock file se abrio exitosamente\n"; if (flock(FH, &LOCK_EX | &LOCK_NB)) { &do_stuff(); } else { print "Fallo en obtener lock\n"; } } else { print "Fallo en leer lock: $!\n"; } close(FH); sub do_stuff { print "Locked!\n"; sleep 30; }