Proc :: safeexec.

Utilitário conveniente para executar comandos externos de várias maneiras.
Baixe Agora

Proc :: safeexec. Classificação e resumo

Propaganda

  • Rating:
  • Licença:
  • Perl Artistic License
  • Preço:
  • FREE
  • 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