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>