#!/usr/bin/perl

use LWP;
use LWP::Simple;
use HTTP::Headers;
use HTTP::Request;
use HTML::Form;
use strict;
use warnings;
use POSIX qw(ceil floor);

print "Hello, RequestedShareValuedWorld...\n";

my $ua = new LWP::UserAgent;
$ua->agent("MudGuard/1.0");

my $req = HTTP::Request->new("GET", "http://aktien.onvista.de/charts.html?ID_OSI=94352");
my $res = $ua->request($req);
my $site = $res->content;

my @forms = HTML::Form->parse($res);

$forms[3]->param('ID_NOTATION_SELECTED', '200958');
$forms[3]->param('DATE', '02.01.2008');
$req = $forms[3]->click();;
$res = $ua->request($req);

my $site = $res->content;

# keine ahnung warum mit ([0-9]{1,6},[0-9]{1,3})$ nicht der schlusskurz gefiltert werden kann.
# so ([0-9]{1,6},[0-9]{1,3}) kommt immer nur der eroffnungskurs. der schlusskurs wäre der 
# letzte treffer in site von hinten.

$site =~ /([0-9]{1,6},[0-9]{1,3})/s;
print $1;
# my @close_price = $site =~ m/(\d{1,6},\d{1,3})/gm;
# local $, = local $\ = $/;
# print @close_price."\n";

my $file = "test.html";

open(TEMP_FILE, ">$file");
print TEMP_FILE $site;
close(TEMP_FILE);