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"
    );
  }
}