15 |
my @markets = ('LSE','FTSE','bug1','bug2','bug3','bug4'); |
my @markets = ('LSE','FTSE','bug1','bug2','bug3','bug4'); |
16 |
my @val; |
my @val; |
17 |
|
|
18 |
my $close_time='23:23:23 CET'; |
my $close_time='21:21:21 CET'; |
19 |
|
|
20 |
sub insert { |
sub insert { |
21 |
my $sql="insert into stocks values ('".shift(@val)."','".$markets[$market]."',".join(",",@val).")"; |
my $sql="insert into stocks values ('".shift(@val)."','".$markets[$market]."',".join(",",@val).")"; |
34 |
my ($time,$date) = ($1,$2); |
my ($time,$date) = ($1,$2); |
35 |
insert() if (@val); |
insert() if (@val); |
36 |
undef @val; |
undef @val; |
37 |
push @val,"$date $time GMT"; |
push @val,"$date $time WET"; |
38 |
$dbh->do("delete from stocks where date='$date $close_time'"); |
$dbh->do("delete from stocks where date='$date $close_time'"); |
39 |
# print "delete from stocks where date='$date $close_time'"; |
# print "delete from stocks where date='$date $close_time'"; |
40 |
} elsif (m, at close on (\d+\s\w+\s\d+),i) { |
} elsif (m, at close on (\d+\s\w+\s\d+),i) { |