Thema: Aktienkurs auslesen mit PERL
Hallo,
ich lese gerade Aktienkurse mit Perl aus und da habe ich mir ein kleines Script geschrieben.
Perl-Code#!/usr/bin/perl
use strict;
use warnings;
use LWP::Simple;
# hier die Aktie eintragen zb. DeutscheBank
my $aktie = "DBK.DE";
my ($kurs_name, $kurs);
my $url = 'http://download.finance.yahoo.com/d/quotes.csv?s='.$aktie.'&e=.csv&f=sd1opl1n0';
my $file = 'kurs.csv';
getstore($url, $file);
open FH, "kurs.csv" or die ("Fehler beim öffnen $!");
while(<FH>
{
my @data = split(/,/,$_); # csv trennen
$data[5] =~ tr/\"|\n//d; # Anführungszeichen und Zeilenumbruch löschen
$kurs_name = $data[5];
$kurs = $data[4];
}
close FH;
print $kurs_name." Kurs: ".$kurs." EURO\n";Hier wird der aktuelle Kurs über die Yahoo Finance API von der DeutscheBank ausgelesen.
Vielleicht kann das Snippet ja mal wer brauchen
Gruß Gustl