| Proc :: safeexec. Utilitário conveniente para executar comandos externos de várias maneiras. |
Baixe Agora |
Proc :: safeexec. Classificação e resumo
- Licença:
- Perl Artistic License
- Nome do editor:
- Leif Pedersen
- Site do editor:
- http://search.cpan.org/~bilbo/
Proc :: safeexec. Tag
Proc :: safeexec. Descrição
Utilitário conveniente para executar comandos externos de várias maneiras. Proc :: SafeExec é um utilitário conveniente para executar comandos externos de várias maneiras.Synopsis usa proc :: safeexec; Meu $ Command = New PROC :: SAFEEXEC ({# Escolha apenas um desses. Exec => , # Exec () depois de bifurcação = garfo => 1, # retorno UNDEF na criança depois de bifurcação. # Especifique se deseja capturar cada um. Especifique um arquivo manipular para DUP um # existente. Especifique "novo" para criar um novo identificador de arquivo, "padrão" ou Redef. para manter o descritor do pai, ou "Fechar" para fechá-lo. Stdin => * input_pipe, stdout => * output_pipe, stderr => "novo", # opções diversas. Child_callback => Fef, # Especifique uma função para ligar para a criança após o garfo (), para Exemplo, para soltar privilégios. Debug => 1, # Emite algumas informações por avisos, como o comando de execução. No_autowait => 1, # Não chame automaticamente $ Command-> aguarde () quando $ comando é destruído. real_arg0 => "/ bin / ls", # Especifique o arquivo real a ser executado. Untint_args => 1, # indireto os argumentos antes de executar.}); Printf "PID da criança é% s ", $ Command-> Child_PID () Se $ Command-> Child_PID (); o método de espera aguarda que a criança saia ou verifique se já se saiu: $ Command-> aguardar ({# hash op options. No_close => 1, # Não feche os "novos" alças de arquivo. Nonblock => 1, # Não espere se a criança não ter saído (implica no_close).}; Para se comunicar com a criança: # Perl não entende <$ command-> STDOUT ()>. Meu $ Command_Stdout = $ Command-> stdout (); My $ Command_Stderr = $ Command-> stderr (); $ line = <$ comand_stdout>; $ line = <$ comand_sterrr>; Imprimir {$ Command-> stdin ()} "murmurar "; Para verificar se a criança se saía: Imprimir" Exit Status: ", $ Command-> Exit_Status ()" "Se $ Command-> aguardar ({nãoblock => 1}); para aguardar até que sai: $ Command-> aguarde (); Imprimir" Exit Status: ", $ Command-> Exit_status ()," "; Uma ferramenta rápida conveniente para uma alternativa para $ Output =` @ EXEC`: ($ Output, $?) = Proc :: safeexec :: backtick (@exec); requisitos: · Perl.
Proc :: safeexec. Software Relacionado