Meu problema nao eh pegar a saida... <br>minha duvida era.. se no caso da execucao do programa demorar, ele so vai pra outra tarefa quando terminar? ou ele executa os restante msm sem terminar :D<br><br><br><br><br><b><i>Thomas Britis <thomas@tcnet.com.br></i></b> escreveu:<blockquote class="replbq" style="border-left: 2px solid rgb(16, 16, 255); margin-left: 5px; padding-left: 5px;"> Na verdade o programa 'pro_teste.exe' será executado, porém, o que se <br>espera com seu comando é que o resultado da execução de `pro_teste.exe` <br>seja executado pelo system().<br><br> Acho que a melhor maneira de fazer o que você deseja é:<br> open (my $fh, "pro_teste.exe |") || die "Erro: $!";<br> open (my $out, '>', "$ssaida") || die "Erro: $!";<br> print $out while (<$fh>);<br><br> Isso vai fazer com que o retorno do comando 'pro_teste.exe' seja <br>guardado no filehandler $out (ou seja, no arquivo $ssaida).<br><br>André Garcia Carneiro wrote:<br>>>Ola
Pessoal..<br>>>Estou com uma duvida quanto a execucao de instrucoes em programas perl;;<br>>>ex:<br>>><br>>>tenho uma instrucao:<br>>><br>>>system(`./pro_teste.exe`); ->executa um programa que gera saidas...<br>> <br>> <br>> Primeira pergunta. Em que plataforma você está??? É que tá muito esquisito pra mim o seu './' num<br>> exe(executável do windows).<br>> <br>> 2. O seu comando não vai funcionar. Ou você usa system 'pro_teste.exe' OU SIMPLESMENTE print `pro_teste.exe` .<br>> O acento grave já diz ao compilador que você quer executar um comando do S.O.. E repare também que eu omiti os<br>> parênteses usando system. Nesse caso ainda não sei se é uma boa idéia, mas a princípio, eles não são necessários.<br>> <br>> <br>>>open(OUT,">$ssaida"); <br>> <br>> <br>> Hummmm... se não me engano, não vai conseguir pegar a saida do system assim. O system só executa, não retorna nada.<br>>
<br>> Tente assim: system 'pro_texte.exe >out';<br>> <br>> <br>>>minha duvida eh.. tudo que vem depois do system so sera executado quando ele terminar a sua execucao?? :D<br>> <br>> <br>> Você deve passar o parâmetro para o system em forma de string. Só cuidado para não fazer de conta que vai<br>> interpolar coisas usando aspas duplas ao invés de simples. Esse tipo de coisa já foi amplamente discutido. Se<br>> vc tiver alguma dúvida, pergunte!<br>> <br>> <br>> Cheers!<br>> <br>> <br>> --<br>> André Garcia Carneiro<br>> Developer(Perl/PHP)<br>> Member of "São Paulo Perl Mongers" - http://sao-paulo.pm.org<br>> <br>> _______________________________________________<br>> Cascavel-pm mailing list<br>> Cascavel-pm@pm.org<br>> http://mail.pm.org/mailman/listinfo/cascavel-pm<br>> <br>> <br><br>-- <br>Thomas Storino Britis<br>TCNet Informatica e Telecomunicacoes
LTDA<br>_______________________________________________<br>Cascavel-pm mailing list<br>Cascavel-pm@pm.org<br>http://mail.pm.org/mailman/listinfo/cascavel-pm<br></blockquote><br><p> __________________________________________________<br>Fale com seus amigos de graça com o novo Yahoo! Messenger <br>http://br.messenger.yahoo.com/