in reply to problem getting splits with Finance::QuoteHist-1.12
Here's what I managed to get, sans splits and dividends:
#!/usr/bin/perl use strict; no warnings; use Data::Dumper::Perltidy; use Finance::QuoteHist; my $q = Finance::QuoteHist->new ( symbols => [qw(IBM)], start_date => '05/20/2010', end_date => 'today', ); foreach my $row ($q->quotes()) { my($symbol, $date, $open, $high, $low, $close, $volume) = @$row; } print Dumper($q);
|
|---|
| Replies are listed 'Best First'. | |
|---|---|
|
Re^2: problem getting splits with Finance::QuoteHist-1.12
by Anonymous Monk on Jun 10, 2010 at 04:13 UTC |