Alexei, com maior prazer usarei no meu projeto, obrigado, só vou precisar de ajuda...<div>Primeiro passo:</div><div>1. usar uma lista de 500 papeis(txt e csv), não apenas os papeis descritos a seguir; </div><div><br></div>

<div>Vamos em frente</div><div>Zé<br><br><div class="gmail_quote">2011/5/10 Alexei Znamensky <span dir="ltr"><<a href="mailto:russoz@gmail.com">russoz@gmail.com</a>></span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex;">

Zé,<div><br></div><div>Se quiser usar o DataFlow[1] para isso, ele também serve. E a parte de CSV dele está (praticamente :-) pronta.</div><div><br></div><div>[]s,</div><div>Alexei</div><div><br></div><div>[1] <a href="http://search.cpan.org/dist/DataFlow/" target="_blank">http://search.cpan.org/dist/DataFlow/</a><br>



<br><div class="gmail_quote"><div><div></div><div class="h5">2011/5/10 Jose Roberto Aquino <span dir="ltr"><<a href="mailto:josef.aquino@gmail.com" target="_blank">josef.aquino@gmail.com</a>></span><br></div></div>

<blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div><div></div><div class="h5">

Pessoal, aproveito para dar os parabéns pelo evento, foi show. O que falar do L. Wall e sua esposa, fantástica lição de vida. Não menos encantador foi a palestra do André da Estante Virtual. <div>Dando início ao meu projeto de banco de dados do mercado financeiro, preciso de uma ajuda para dar meus primeiros passos... </div>





<div><br></div><div>Necessidades</div><div>1. usar uma lista de 500 papeis(txt e csv), não apenas os papeis descritos a seguir; </div><div>2. após baixar quero salvá-los em formato CSV</div><div>Obs.: desde já esse projeto será OPEN SOURCE, meu objetivo é criar uma base usando Yahoo e Google Finance.<br>





</div><div><br></div><div>Tenho o seguinte código:</div><div><br></div><div><div>#!/usr/bin/perl</div><div>use Finance::QuoteHist;</div><div>   $q = Finance::QuoteHist->new</div><div>      (</div><div>       symbols    => [qw(MSFT IBM GOOG VALE PBR)],</div>





<div>       start_date => '01/01/2010',</div><div>       end_date   => 'today',</div><div>      );</div><div><br></div><div>   print "Quotes:\n";</div><div>   foreach $row ($q->quotes()) {</div>





<div>       ($date, $open, $high, $low, $close) = @$row;</div><div>       print "$date $open $high $low $close\n";</div><div>   } </div></div><div><br></div><div>Obrigado</div><div>Zé</div>
<br></div></div>=begin disclaimer<br>
   Sao Paulo Perl Mongers: <a href="http://sao-paulo.pm.org/" target="_blank">http://sao-paulo.pm.org/</a><br>
 SaoPaulo-pm mailing list: <a href="mailto:SaoPaulo-pm@pm.org" target="_blank">SaoPaulo-pm@pm.org</a><br>
 L<<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a>><br>
=end disclaimer<br>
<br></blockquote></div><br><br clear="all"><br>-- <br><font face="georgia, serif">Alexei "RUSSOZ" Znamensky </font><div><font face="georgia, serif">[russoz_gmail_com] [<a href="http://russoz.wordpress.com" target="_blank">russoz.wordpress.com</a>] [<a href="http://www.flickr.com/photos/alexeiz" target="_blank">www.flickr.com/photos/alexeiz</a>] [<a href="https://github.com/russoz" target="_blank">https://github.com/russoz</a>]<br>



<span style="border-collapse:collapse"><div>Only love / Can bring the rain / That makes you yearn to the sky</div></span></font></div><br>
</div>
<br>=begin disclaimer<br>
   Sao Paulo Perl Mongers: <a href="http://sao-paulo.pm.org/" target="_blank">http://sao-paulo.pm.org/</a><br>
 SaoPaulo-pm mailing list: <a href="mailto:SaoPaulo-pm@pm.org">SaoPaulo-pm@pm.org</a><br>
 L<<a href="http://mail.pm.org/mailman/listinfo/saopaulo-pm" target="_blank">http://mail.pm.org/mailman/listinfo/saopaulo-pm</a>><br>
=end disclaimer<br>
<br></blockquote></div><br></div>