blob: f1081fc467577f8077c5e75228ed86e4d0e27b0b (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
|
--- old/lib/Finance/Quote/Tradegate.pm
+++ new/lib/Finance/Quote/Tradegate.pm
@@ -98,12 +98,13 @@
@child = $td1->content_list;
my $exchange = $child[0];
$td1 = ($lastvalue->look_down('_tag'=>'td'))[7];
@child = $td1->content_list;
- my $date = substr($child[0], 0, 8);
- my $time = substr($child[0], 9, 5); # CE(S)T
+ $child[0] =~ /(?<date>\d{2}\.\d{2}\.\d{2,4})\s*\/\s*(?<time>\d{2}:\d{2})/;
+ my $date = $+{date};
+ my $time = $+{time};
$td1 = ($lastvalue->look_down('_tag'=>'td'))[9];
@child = $td1->content_list;
my $price = $child[0];
$price =~ s/\.//g;
|
