En Perl, ¿hay alguna manera de reiniciar el programa que se ejecuta desde sí mismo?

Question

Estoy ejecutando un programa en Perl que en un momento evalúa datos en una instrucción if llamada desde una subrutina, p.

sub check_good { 
    if (!good) { 
     # exit this subroutine 
     # restart program 
    } 
    else { 
     # keep going 
    } 
} # end sub 

El problema que tengo es salir y reiniciar. Sé que puedo usar exit 0; para salir directamente, pero obviamente esto no es correcto si quiero volver al principio. Traté de llamar a la subrutina que esencialmente inicia el programa, pero, por supuesto, una vez que se ha ejecutado volverá a este punto nuevamente. Pensé en ponerlo en un ciclo while, pero esto significaría poner el archivo completo en el bucle y sería muy poco práctico.

Realmente no sé si esto es posible, por lo que cualquier entrada sería genial.

Answer 1

Si no ha cambiado @ARGV, o tiene una copia, posiblemente podría hacer algo como exec($^X, $0, @ARGV).

$^X and $0 (o $EXECUTABLE_NAME y $PROGRAM_NAME, consulte el comentario de Brian a continuación) son el intérprete perl actual y el guión perl actual, respectivamente.

Answer 2

No hay nada que lo impida llamar a sí mismo system. Algo así (claramente necesita una ordenada), donde paso un argumento de línea de comandos para evitar que el código se llame a sí mismo para siempre.

#!/usr/bin/perl 
use strict; 
use warnings; 

print "Starting...\n"; 
sleep 5; 

if (! @ARGV) { 
     print "Start myself again...\n"; 
     system("./sleep.pl secondgo"); 
     print "...and die now\n"; 
     exit; 
} elsif ((@ARGV) && $ARGV[0] eq "secondgo") { 
     print "Just going to die straightaway this time\n"; 
     exit; 
} 

Answer 3

Una alternativa sería tener siempre dos procesos: un supervisor y un trabajador.

Refactorice toda su lógica en una subrutina llamada run (o main o lo que sea). Cuando su lógica real detecta que necesita reiniciarse, debe salir con un código de salida predefinido distinto de cero (como 1, por ejemplo).

A continuación, el script principal y el supervisor se vería así:

if (my $worker = fork) { 
    # child process 
    run(@ARGV); 
    exit 0; 
} 
# supervisor process 
waitpid $worker; 
my $status = ($? >> 8); 

if ($status == 1) { ... restart .. } 

exit $status; # propagate exit code... 

En el sencillo escenario en el que sólo desea reiniciar una vez, esto podría ser un poco excesivo. Pero si en algún momento necesita ser capaz de manejar otros escenarios de error, este método podría ser preferible.

Por ejemplo, si el código de salida es 255, esto indica que el script principal se llamaba die(). En este caso, es posible que desee implementar algún procedimiento de decisión para reiniciar el script, ignorar el error o escalar el problema.

Existen bastantes módulos en CPAN que implementan dichos supervisores. Proc::Launcher es uno de ellos y la página del manual incluye una extensa discusión de trabajos relacionados. (Nunca he usado Proc :: Launcher, es principalmente debido a esta discusión que estoy vinculando a ella)