I am trying to get the Finance::QuoteHist::Yahoo module to work to no avail.
I get the following errors:
<!--------
ERROR: Date::Manip unable to determine TimeZone.
 Date::Manip::Date_TimeZone called at C:/Perl/site/lib/Date/Manip.pm line
628
 Date::Manip::Date_Init() called at C:/Perl/site/lib/Date/Manip.pm line 1350
 Date::Manip::ParseDate('01/01/1999') called at
C:/Perl/site/lib/Finance/QuoteHist/Generic.pm line 47
 Finance::QuoteHist::Generic::new('Finance::QuoteHist::Generic', undef,
undef, 'symbols', 'ARRAY(0x176f0c4)', 'reverse', 1, 'end_date', ...) called
at C:/Perl/site/lib/Finance/QuoteHist/Yahoo.pm line 67
 Finance::QuoteHist::Yahoo::new('Finance::QuoteHist::Yahoo', 'symbols',
'ARRAY(0x176f0c4)', 'start_date', '01/01/1999', 'end_date', '08/26/2001')
called at C:\my documents\wscc\cgi-bin\history.pl line 28
-----------> 

Has any got this to work and more importantly spit out any information that
is useful.
Here is the code straight out of the manpage...
use Finance::QuoteHist::Yahoo;
  $q = new Finance::QuoteHist::Yahoo
     (
      symbols    =>  [qw(IBM UPS AMZN)],
      start_date =>  '01/01/1999',
      end_date   =>  'today',
     );


  # Adjusted values
  foreach $row ($q-> quotes()) {
    ($symbol, $date, $open, $high, $low, $close, $volume) = @$row;
    ...
  }


  # Non adjusted values
  $q-> adjusted(0);
  foreach $row ($q-> quotes()) {
     ($symbol, $date, $open, $high, $low, $close, $volume, $adj_close) =
@$row;
  }


  # Splits
  foreach $row ($q-> splits()) {
     ($symbol, $date, $post, $pre) = @$row;
  }


  # Dividends
  foreach $row ($q-> dividends()) {
     ($symbol, $date, $dividend) = @$row;
  }

_______________________________________________
Perl-Win32-Web mailing list
Perl-Win32-Web@[...].com
http://listserv.ActiveState.com/mailman/listinfo/perl-win32-web