Determinar si un script de perl ya se encuentra en ejecución

[julioleo]

Me dieron otra solución que creo es un poco mas exacta ya que se basa en la busqueda del PID del proceso asignado al script.

@psgre = `pgrep script.pl`;
$j=0;
foreach (@psgre) {
$j++;
}

Se esta ejecutando el comando pgrep que me devolvera el listado de PID asignados a la ejecución del script script.pl, este listado queda en un arreglo @psgre, luego se recorre todo el arreglo haciendo una cuenta, si la cuenta es igual a uno, indicara que solamente este mismo script se esta ejecutando por lo que podemos hacer todo lo necesario, si es mayor a uno, indicaria que el script ya estaba en ejecucion antes de que se ejecutara este y no hacemos nada.


Si alguien encuentra una solución mas exacta, por favor publiquenla, no estaria mal mejorar el script.

Gracias y saludos.