<div><br><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;"><div>Oi Juliano<br><br><div></div><div><span class="q"><blockquote class="gmail_quote" style="border-left: 1px solid rgb(204, 204, 204); margin: 0pt 0pt 0pt 0.8ex; padding-left: 1ex;">
<div><div>Existe algum modulo Perl que chama um comando externo e consiga recuperar o retorno da execução?
</div></div></blockquote></span></div><div><div><br>Sim, backticks:<br><br>my $output = `/bin/ls`;<br>print $output;<br><br>Creio que para melhor legibilidade deva usar qx//:<br><br>my $output = qx(/bin/ls);<br>print $output;
<br></div></div></div></blockquote></div><br>Existe também a possibilidade de utilizar a função open() para isso, caso você queira ler a saída do programa linha a linha:<br><br>open my $cmd, "ls|" or die $!;<br>
while (<$cmd>) {<br> chomp;<br> print ">> $_\n";<br>}<br>close $cmd or warn $!;<br><br>Também existem os módulos IPC::Open2 e IPC::Open3. Deixo como exercício você consultar o CPAN à procura destes módulos.
<br><br>-- <br>Igor Sutton Lopes<br>t: +55 51 9627.0779<br>e: <a href="mailto:igor.sutton@gmail.com">igor.sutton@gmail.com</a>