Expect hein... vou olhar esse módulo sim. Obrigado!!!!<div><br></div><div><br><br><div class="gmail_quote">Em 8 de junho de 2010 21:22, <span dir="ltr"><<a href="mailto:thiagoglauco@ticursos.net">thiagoglauco@ticursos.net</a>></span> escreveu:<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">Existem muitas maneiras de fazer isto em perl...<br>
<br>
a basicona:<br>
<br>
@array = `comando -abc`;<br></blockquote><div><br></div><div>Sim, sim. Esse eu já conhecia </div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">
<br>
via pipe, como seu exemplo<br>
<br>
com a funçao system:<br>
<br>
@comando = qw(comando argumento1 argumento2)<br>
system(@comando);<br>
<br></blockquote><div>Esse eu estou familiarizado também, valeu!</div><div> </div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">
ou no windows:<br>
<br>
use strict;<br>
use Win32::Job;<br>
<br>
eval {<br>
my $j ob = Win32 ::Job->new( ) ;<br>
my $result = $obj->spawn( ?comando?) ;<br>
die ?Value is unde?ned. ?. $^E. ?\n? unless (de?ned $result) ;<br>
my $ok = $obj->run(60) ;<br>
}<br>
print $@. ?\n? if ($@) ;<br>
<br></blockquote><div>Muito interessante!!! Vou olhar esse também. Não uso Windows, mas é bom saber que existem esses 'brinquedinhos'...</div><div> </div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">
No Linux o módulo Expect.pm é muito bom para executar comandos.<br>
<br>
Já o Oracle não sei.<br>
<br>
Eu prefiro usar o readpipe para rodar um bloco de código meu que eu dei um fork por exemplo.<br>
<br>
Espero ter ajudado!!!<div><div></div><div class="h5"><br>
<br></div></div></blockquote><div><br></div><div>Ajudou muito! Valeu! </div><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;"><div><div class="h5">
<br>
Quoting Andre Carneiro <<a href="mailto:andregarciacarneiro@gmail.com" target="_blank">andregarciacarneiro@gmail.com</a>>:<br>
<br>
<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex">
Salve!<br>
<br>
<br>
Estava olhando o código do módulo: Oracle::Loader, e me deparei com uma<br>
abordagem para se executar comandos que eu não conhecia. Trata-se do<br>
seguinte segmento de código:<br>
<br>
<br>
<br>
<code><br>
.<br>
.<br>
.<br>
<br>
open CMD, "$cmd |" or croak "Could not run sqlplus: $!\n";<br>
my @a = <CMD>;<br>
close CMD;<br>
<br>
.<br>
.<br>
.<br>
<br>
</code><br>
<br>
<br>
Tenho duas perguntas:<br>
<br>
1 - Existe um comando chamado readpipe, que me retorna um array onde cada<br>
item do array corresponde a uma linha na saída do comando. Alguém sabe me<br>
dizer se é a mesma coisa e/ou é preferível usar readpipe do que um código<br>
igual a esse? ;<br>
<br>
2 - Alguém conhece outro módulo mais novo que esse para 'brincar' com o<br>
SQLLoader? Eu não encontrei no CPAN .<br>
<br>
<br>
<br>
Cheers!<br>
<br>
--<br>
André Garcia Carneiro<br>
Analista/Desenvolvedor Perl<br>
(11)82907780<br>
<br>
</blockquote>
<br>
<br>
<br></div></div>
_______________________________________________<br>
SaoPaulo-pm mailing list<br>
<a href="mailto:SaoPaulo-pm@pm.org" target="_blank">SaoPaulo-pm@pm.org</a><br>
<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a><br>
</blockquote></div><br><br clear="all"><br>-- <br>André Garcia Carneiro<br>Analista/Desenvolvedor Perl<br>(11)82907780<br>
</div>