Aktien im OSD

Version 2.0

Manfred Schmidt-Voigt, Hamburg 2003

Hier ist gibt es ein PHP Skript und ein PERL Script zur Anzeige von Aktienwerten im OSD. Zum Aufruf wird in der comand.conf folgender Aufruf eingetragen:

commands.conf

Aktien anzeigen    : php -q /usr/local/bin/aktien.php

oder 

commands.conf

Aktien anzeigen    : /usr/local/bin/aktien.pl

 

Beispielhaft sind in dem Script einige meiner Pleiteaktien aufgeführt.

aktien.php

<?php

$AKTIEN = array (
"BOV" => "BOVG.F",
"Cargolifter" => "CGLGn.F",
"Constantin" => "CFAG.F",
"Freenet" => "FRNG.F",
"IFEX" => "IFEX.F",
"Pixelnet" => "PXNG.F",
"-" =>"WATCH",
"Abit" => "ABIG.F",
"Agilent" => "A.F",
"Consumer Electronic" => "CEWGn.F",
"Evotec" => "EVTG.F",
"Hewlett Packard" => "HPQ.F",
"IBM" => "IBM.F",
"Microsoft" => "MSFT.F",
"SAP" => "SAPG.F"
);


$Headline=sprintf("\n%s %s %s\n"," Aktien ","akt.Kurs"," Diff(%)");
$diffline=sprintf("%s\n","--------------------------------------");
echo $Headline;
echo $diffline;
reset ($AKTIEN);
while (list ($NAME, $KURS) = each ($AKTIEN))
{
if ( $KURS == "WATCH")
{
echo $diffline;
continue;
}

$fp = fopen ('http://de.finance.yahoo.com/d/quotes.txt?s='.$KURS.'&f=sl1d1t1c2ohgv&e=.txt','r');

$content = fread ( $fp, 1000000 );

$list = split("[ ;]",$content);
$zeile = sprintf("%-20s %4.3f %5.2f\n",$NAME,str_replace(',', '.', $list[1]),str_replace(',', '.', $list[6]));
echo $zeile;
fclose($fp);
}
echo $diffline;

?>

aktien.pl

#!/usr/bin/perl
#
use strict;
use LWP::Simple;
######################################################################################
# local variables
my @AKTIEN;
my $Headline;
my $diffline;
my $NAME;
my $KURS;
my $content;
my $zeile;
my @list;
my $i;
#
# start of processing
@AKTIEN = (
"BOV" , "BOVG.F",
"Cargolifter" , "CGLGn.F",
"Constantin" , "CFAG.F",
"Freenet" , "FRNG.F",
"IFEX" , "IFEX.F",
"Pixelnet" , "PXNG.F",
"-------------------------" ,"WATCH",
"Abit" , "ABIG.F",
"Agilent" , "A.F",
"Consumer Electronic" , "CEWGn.F",
"Evotec" , "EVTG.F",
"Hewlett Packard" , "HPQ.F",
"IBM" , "IBM.F",
"Microsoft" , "MSFT.F",
"SAP" , "SAPG.F"
);


$Headline=sprintf("\n%s %s %s\n"," Aktien ","akt.Kurs"," Diff(%)");
$diffline=sprintf("%s\n","--------------------------------------");
print $Headline;
print $diffline;
for ($i=0;$i < $#AKTIEN; $i=$i+2) {
$NAME=$AKTIEN[$i];
$KURS=$AKTIEN[$i+1];

if ( $KURS eq "WATCH")
{
print $diffline;
next;
}

$content = get ('http://de.finance.yahoo.com/d/quotes.txt?s='.$KURS.'&f=sl1d1t1c2ohgv&e=.txt');
$content =~ s/,/./g;
@list = split("[ ;]",$content);
$zeile = sprintf("%-20s %8.3f %8s\n",$NAME,$list[1],$list[6]);
print $zeile;
}
print $diffline;


History

Version 1.0 30.09.2002 erste Version
Version 1.1 08.01.2003

neue Suchmaschine (ComDirect) für Aktien

Version 2.0 20.08.2003

neue Suchmaschine (Yahoo) für Aktien
zusätzlich auch als PERL Script