Cargando
Cursos Online Gratis con CERTIFICADO
TE INTERESA
Ver Más! Solvetic viene a cambiar el mundo de la Formación Digital. Se acabó el poder realizar Cursos de calidad solo pagando. Cambia tu futuro en Solvetic con Cursos y especializaciones demandadas a nivel laboral. ¿A que esperas?

Forzar mod_perl a proceso por conexión - perl




Pulsa corazón para recibir avisos de nuevas Respuestas

  AUTOR PREGUNTA

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
  • Volver arriba

 

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; }


   AUTOR PREGUNTA

Publicado 23 mayo 2014 - 04:22
Gracias


X