Proc :: SafeExec. Utility conveniente per eseguire comandi esterni in vari modi.
Scarica ora

Proc :: SafeExec. Classifica e riepilogo

Proc :: SafeExec. Tag

modulo Perl comandi perl esterno Comandi esterni

Proc :: SafeExec. Descrizione

Utilità conveniente per eseguire comandi esterni in vari modi. Proc :: SafeExec è un'utilità conveniente per eseguire comandi esterni in vari modi.synopsis Utilizzare Proc :: SafeExec; My $ Command = Nuovo proc :: safeexec ({# Scegli solo uno di questi. EXEC => , # exec () dopo il biforcazione. Fork => 1, # ritorno undef nel bambino dopo il biforcando. # Specificare se catturare ciascuno. Specificare un handle di file Ref to Dup a # Esistente. Specificare "Nuovo" per creare un nuovo handle di file, "predefinito" o undef # per mantenere il descrittore del genitore, o "Chiudi" per chiuderlo. Stdin => * input_pipe, stdout => * output_pipe, stderr => "nuovo", opzioni varie. Child_callback => fref, # specificare una funzione per chiamare il bambino dopo la forcella (), per Esempio, per rilasciare i privilegi. Debug => 1, # emetti alcune informazioni tramite avvertenze, come il comando da eseguire. No_autowait => 1, # non chiamare automaticamente $ comando-> Attendere () quando $ comando è distrutto. Real_Arg0 => "/ BIN / LS", # specificare il file effettivo da eseguire. Untaint_args => 1, # Insieme gli argomenti prima dell'esecuzione.}); Printf "PID del bambino è% s ", $ Command-> Child_pid () se $ comando-> Child_pid (); il metodo di attesa attende che il figlio inizi o controlli se sia già uscito: $ comando-> attendere ({# hash opzionale di opzioni. No_Close => 1, # non chiudere "Nuove" maniglie dei file. NonBLOCK => 1, # Non attendere se il bambino non è uscito (implica No_Close).}); Per comunicare con il bambino: # Perl non capisce <$ command-> Stdout ()>. My $ command_stdout = $ $ command-> stdout (); my $ command_stderr = $ comando-> STDERR (); $ LINE = <$ command_stdout>; $ LINE = <$ command_stderr>; Stampa {$ Command-> Stdin ()} "Mumble "; Per verificare se il bambino è stato ancora uscito: Stampa" Esci Stato: ", $ Command-> exit_status ()" "Se $ comando-> Attendere ({nonBlock => 1}); attendere fino a quando non uscirà: $ Command-> Attendere (); Stampa" Esci Stato: ", $ Comando-> EXIT_STATUS ()" "; Un comodo strumento rapido per un'alternativa a $ output =` @ exec`: ($ output, $?) = Proc :: safeexec :: backtick (@exec); Requisiti: · Perl.

Proc :: SafeExec. Software correlato