32 |
chomp; |
chomp; |
33 |
if (m, at (\d+:\d\d) on (\d+\s\w+\s\d+),i) { |
if (m, at (\d+:\d\d) on (\d+\s\w+\s\d+),i) { |
34 |
my ($time,$date) = ($1,$2); |
my ($time,$date) = ($1,$2); |
35 |
insert() if (defined(@val)); |
insert() if (@val); |
36 |
undef @val; |
undef @val; |
37 |
push @val,"$date $time GMT"; |
push @val,"$date $time GMT"; |
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) { |
41 |
my ($time,$date) = ($close_time,$1); |
my ($time,$date) = ($close_time,$1); |
42 |
insert() if (defined(@val)); |
insert() if (@val); |
43 |
undef @val; |
undef @val; |
44 |
push @val,"$date $time"; |
push @val,"$date $time"; |
45 |
} |
} |