Quería implementar rápidamente algún tipo de bloqueo en el programa perl en Linux, que sería compartible entre diferentes procesos.

Así que usémkdir como una operación atómica, que devuelve1 si el directorio no existe y0 si lo hace. Elimino el directorio justo después de la sección crítica.

Ahora, me señalaron que no es una buena práctica en general (independientemente del idioma). Creo que está bastante bien, pero me gustaría pedirle su opinión.

edit: para mostrar un ejemplo, mi código se parecía a esto:

while (!mkdir "lock_dir") {wait some time}
critical section
rmdir "lock_dir"