Zé, Se quiser usar o DataFlow[1] para isso, ele também serve. E a parte de CSV dele está (praticamente :-) pronta.
[]s, Alexei [1] http://search.cpan.org/dist/DataFlow/ 2011/5/10 Jose Roberto Aquino <[email protected]> > 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. > Dando início ao meu projeto de banco de dados do mercado financeiro, > preciso de uma ajuda para dar meus primeiros passos... > > Necessidades > 1. usar uma lista de 500 papeis(txt e csv), não apenas os papeis descritos > a seguir; > 2. após baixar quero salvá-los em formato CSV > Obs.: desde já esse projeto será OPEN SOURCE, meu objetivo é criar uma base > usando Yahoo e Google Finance. > > Tenho o seguinte código: > > #!/usr/bin/perl > use Finance::QuoteHist; > $q = Finance::QuoteHist->new > ( > symbols => [qw(MSFT IBM GOOG VALE PBR)], > start_date => '01/01/2010', > end_date => 'today', > ); > > print "Quotes:\n"; > foreach $row ($q->quotes()) { > ($date, $open, $high, $low, $close) = @$row; > print "$date $open $high $low $close\n"; > } > > Obrigado > Zé > > =begin disclaimer > Sao Paulo Perl Mongers: http://sao-paulo.pm.org/ > SaoPaulo-pm mailing list: [email protected] > L<http://mail.pm.org/mailman/listinfo/saopaulo-pm> > =end disclaimer > > -- Alexei "RUSSOZ" Znamensky [russoz_gmail_com] [russoz.wordpress.com] [www.flickr.com/photos/alexeiz] [ https://github.com/russoz] Only love / Can bring the rain / That makes you yearn to the sky
=begin disclaimer Sao Paulo Perl Mongers: http://sao-paulo.pm.org/ SaoPaulo-pm mailing list: [email protected] L<http://mail.pm.org/mailman/listinfo/saopaulo-pm> =end disclaimer
