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>