| Subject: | quote for ^DJI in index 'usa' returns incorrect data (Missing Symbols List) |
| Date: | Sun, 12 Sep 2010 21:05:38 -0400 |
| To: | bug-Finance-Quote [...] rt.cpan.org |
| From: | Steven DeGraeve <steve.degraeve [...] gmail.com> |
Hello. Requesting a quote for ^DJI in the usa index worked up until a few
weeks ago. See example code and output below. Replacing '^DJI' with
'^N225' or other symbols in the code below returns expected output. Thank
you for maintaining this useful module.
-- environment -------------------------
module: Finance::Quote v1.17
perl -v : v5.8.8
uname -a : Linux mydomain.com 2.6.9-023stab048.6-enterprise #1 SMP Mon Nov
17 19:09:18 MSK 2008 i686 i686 i386 GNU/Linux
-- source code for stock.cgi ----------------------------
#!/usr/bin/perl
use strict;
use Finance::Quote;
my $q = Finance::Quote->new();
my $market = 'usa';
my $symbol = '^DJI';
$q->require_labels(qw/name last high low date time net p_change/);
my %data = $q->fetch($market, $symbol);
while ( (my $key, my $value) = each %data ) {
print "$key : $value\n";
}
-- output ----------------------------
Show quoted text
> perl stock.cgi
Missing Symbols List.price :
Missing Symbols List.symbol : Missing Symbols List.
Missing Symbols List.success : 1
Missing Symbols List.currency : USD
Missing Symbols List.currency_set_by_fq : 1
Missing Symbols List.p_change :
Missing Symbols List.isodate : 2010-09-12
Missing Symbols List.date : 09/12/2010