[SP-pm] Yahoo Finance

[Alexei Znamensky]

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 <josef.aquino em gmail.com>

> 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: SaoPaulo-pm em pm.org
>  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
-------------- Pr�xima Parte ----------
Um anexo em HTML foi limpo...
URL: <http://mail.pm.org/pipermail/saopaulo-pm/attachments/20110510/7cd67b84/attachment-0001.html>