Finance::QuoteHist - Historische Börsenkursdaten einfach abrufen

Veröffentlicht von Thomas Fahle am (Permalink)

Mit Finance::QuoteHist von Matt Sisk lassen sich historische Börsenkursdaten (Stock Quotes) einfach über das Web abrufen.

Beispiel: Historische Dax-Kurse von Yahoo! Finance

#!/usr/bin/perl 
use strict;
use warnings;
use Finance::QuoteHist::Yahoo;

my $q = Finance::QuoteHist::Yahoo->new
     (
      			#symbols    => [qw(IBM UPS AMZN)],
      			#Adidas
      			#symbols    => [qw(ADS.DE)],
      symbols    => [qw(^GDAXI)],
      start_date => '01/01/1999',
      end_date   => 'today',
     );

  # Einfache Ausgabe der Ergebnisse 
foreach my $quote ( $q->quotes() ) {
	my ($symbol, $date, $open, $high, $low, $close, $volume, $adjusted) = @$quote;
	print "$symbol startete am $date mit $open und schloss zu $close ($adjusted).\n";
}

Das Programm erzeugt folgende Ausgabe: 

^GDAXI startete am 1999/01/04 mit 4991.9500 und schloss zu 5252.3600 (5252.3600).
^GDAXI startete am 1999/01/05 mit 5221.4300 und schloss zu 5253.9100 (5253.9100).
^GDAXI startete am 1999/01/06 mit 5328.0200 und schloss zu 5443.6200 (5443.6200).
^GDAXI startete am 1999/01/07 mit 5485.6100 und schloss zu 5323.2100 (5323.2100).
......
^GDAXI startete am 2009/06/11 mit 5039.9700 und schloss zu 5107.2600 (5107.2600).
^GDAXI startete am 2009/06/12 mit 5098.0100 und schloss zu 5069.2400 (5069.2400).
^GDAXI startete am 2009/06/15 mit 5051.3500 und schloss zu 4889.9400 (4889.9400).
^GDAXI startete am 2009/06/16 mit 4899.8100 und schloss zu 4890.7200 (4890.7200).

 

Siehe auch

Weitere Posts