Una chiamata di sistema Perl() può mai morire?

Question

Una chiamata system() può mai die in Perl 5?

(in altre parole, al fine di 100% incidente a prova di un programma che fa una chiamata system(), Ha bisogno di essere avvolto in un eval blocco, o è che tutto completamente inutile?)

---

Non ho trovato una sola menzione a questa possibilità in perldoc system, ma non ho trovato la precisa "questa chiamata non muore mai".

NOTA: la domanda riguarda Basic CORE Perl qui, n. autodie o qualsiasi altro modulo personalizzato che avrebbe un effetto simile. Inoltre, non assumere il segnale ALRM o qualsiasi altro gestore di segnale personalizzato.

_{Suppongo che tutte le versioni di Perl 5. * si comportino allo stesso modo, ma in caso contrario, una risposta pertinente a 5.8 sarebbe apprezzata.}

Answer 1

a meno che la mia interpretazione della fonte non è corretta, questo appare come una possibilità:

fonte: Perl 5.16.2 (anche controllato 5.8.8), file: pp_sys.c, riga: 4224 all'interno del blocco di codice PP(pp_system):

if (n != sizeof(int)) 
    DIE(aTHX_ "panic: kid popen errno read, n=%u", n); 

DIE è Perl_die(pTHX_ const* pat, ...) dichiarato in util.c

Secondo la documentazione, "panico: kid popen errno leggere" significa "figlio biforcuta restituito un messaggio incomprensibile circa la sua errno".

Explanation of panic messages in Perl:

La convenzione è che quando l'interprete muore con un errore interno , il messaggio inizia "panico:".Storicamente, molti messaggi di panico erano stringhe terse fisse, il che significa che i valori fuori intervallo che hanno provocato il panico sono persi. Ora proviamo a riportare questi valori, in quanto tali messaggi potrebbero non essere ripetibili e il messaggio di errore originale potrebbe essere l'unica diagnostica che otteniamo quando proviamo a trovare la causa.

Answer 2

system restituisce lo stato di uscita del programma. Significa che se il programma si blocca, lo script Perl chiamante continua (vedere system).

Tuttavia, il programma stesso può ancora terminare lo script chiamante o addirittura causare il crash del computer. Per esempio, in Linux:

system 'killall', 'perl'; 
print "Alive\n"; 

Answer 3

È possibile chiamare system() con l'aspettativa che non sarà un'eccezione. Non è necessario avvolgerlo in un blocco eval.

Answer 4

Presumo che si stia parlando dell'implementazione della funzione system anziché di quella invocata tramite la chiamata. (Ovviamente, un processo figlio non può chiamare die nel contesto del genitore, e anche questo presuppone che la chiamata sia sul codice Perl.)

Una risposta definitiva richiederebbe la conoscenza degli interni, ma dato che il tentativo di invocare un non programma -existent non muore, non posso immaginare che qualsiasi altra cosa mai avrebbe fatto, o:

system('abcd');  # 'abcd' is not recognized... [Win32 message] 
say "I'm not dead."; # always prints