[Cascavel-pm] Receber uma "resposta" de system("perl aplicacao.pl"); ?

[Luis Campos de Carvalho]

Sandro de Almeida Filho wrote:
> Monges, tem como eu receber uma resposta no processo pai ao executar:
> 
> <perl>
> system("perl aplicacao.pl");
> </perl>
> 
> Logo, imprimir...
> 
> <perl>
> print $resposta;
> </perl>
> 

   # Isso depende da resposta que você está procurando.
   # Assim:

     @args = ("command", "arg1", "arg2");
     system(@args) == 0
          or die "system @args failed: $?"

   # E assim:
     if ($? == -1) {
         print "failed to execute: $!\n";
     }
     elsif ($? & 127) {
         printf "child died with signal %d, %s coredump\n",
             ($? & 127),  ($? & 128) ? 'with' : 'without';
     }
     else {
         printf "child exited with value %d\n", $? >> 8;
     }

   # Oferecem as respostas que eu uso com mais freqüência.
   # Veja "perldoc -f system" para todos os detalhes.
   Putamplexos!
-- 
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
  Luis Campos de Carvalho is BSc in Comp Science,
  PerlMonk [SiteDocClan], Sao Paulo PM Leader,
  Unix Sys Admin && Certified Oracle DBA
  http://br.geocities.com/monsieur_champs/
=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=

	
	
		
_______________________________________________________ 
Yahoo! Acesso Grátis - Internet rápida e grátis. 
Instale o discador agora! http://br.acesso.yahoo.com/