KMyMoney: conversion script for historical stock prices from Boerse Online
Keywords: kmymoney, boerse online
Versions: KMyMoney 0.9
#!/usr/bin/perl $source = "Boerse Online"; while(<STDIN>) { if(/(\d{2})\.+?(\d{2}).+?(\d{4}).+?[\d,]+.+?([\d]+),([\d]+)/) { print( " <PRICE " . "price=\"" . ($4 * 100 + $5) . "/100\" " . "source=\"$source\" " . "date=\"$3-$2-$1\" " . "/>\n" ); } }
Comments