1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
|
package Finance::QuoteHist::Investopedia;
use strict;
use vars qw(@ISA $VERSION);
use Carp;
$VERSION = '1.01';
use Finance::QuoteHist::Generic;
@ISA = qw(Finance::QuoteHist::Generic);
use Date::Manip;
Date::Manip::Date_Init("TZ=GMT");
# Example URL:
#
# http://simulator.investopedia.com/stocks/historicaldata.aspx?SearchType=0&s=IBM&dateStart=2008-5-8&dateEnd=2009-6-7&Download=1
#
# for dividend:
#
# http://simulator.investopedia.com/stocks/historicaldata.aspx?SearchType=1&s=NOVAD&dateStart=2010-5-30&dateEnd=2010-6-7
#
# for split:
#
# http://simulator.investopedia.com/stocks/historicaldata.aspx?SearchType=2&s=NOVAD&dateStart=2010-5-30&dateEnd=2010-6-7
sub new {
my $that = shift;
my $class = ref($that) || $that;
my %parms = @_;
my $self = __PACKAGE__->SUPER::new(%parms);
bless $self, $class;
$self->parse_mode('html');
$self;
}
sub url_base_html {
'http://simulator.investopedia.com/stocks/historicaldata.aspx'
}
sub labels {
my($self, %parms) = @_;
my $target_mode = $parms{target_mode} || $self->target_mode;
return(qw( date split )) if $target_mode eq 'split';
$self->SUPER::labels(%parms);
}
sub url_maker {
my($self, %parms) = @_;
my $target_mode = $parms{target_mode} || $self->target_mode;
my $parse_mode = $parms{parse_mode} || $self->parse_mode;
# *always* block unknown target/mode cominations
return undef unless $parse_mode eq 'html';
my $search_type;
if ($target_mode eq 'quote') {
$search_type = 0;
}
elsif ($target_mode eq 'dividend') {
$search_type = 1;
}
elsif ($target_mode eq 'split') {
$search_type = 2;
}
my $download = $target_mode eq 'quote' ? 1 : 0;
my($ticker, $start_date, $end_date) =
@parms{qw(symbol start_date end_date)};
$start_date ||= $self->start_date;
$end_date ||= $self->end_date;
my($sy, $sm, $sd) = $self->ymd($start_date);
my($ey, $em, $ed) = $self->ymd($end_date);
my @base_parms = (
"SearchType=$search_type",
"s=$ticker",
"dateStart=$sy-$sm-$sd",
"dateEnd=$ey-$em-$ed",
);
push(@base_parms, 'Download=1') if $download;
my @urls = join('?', $self->url_base_html, join('&', @base_parms));
sub { pop @urls };
}
1;
__END__
=head1 NAME
Finance::QuoteHist::Investopedia - Site-specific class for retrieving historical stock quotes.
=head1 SYNOPSIS
use Finance::QuoteHist::Investopedia;
$q = Finance::QuoteHist::Investopedia->new
(
symbols => [qw(IBM UPS AMZN)],
start_date => '01/01/2009',
end_date => 'today',
);
foreach $row ($q->quotes()) {
($symbol, $date, $open, $high, $low, $close, $volume) = @$row;
...
}
=head1 DESCRIPTION
Finance::QuoteHist::Investopedia is a subclass of
Finance::QuoteHist::Generic, specifically tailored to read historical
quotes, dividends, and splits from the Investopedia web site
(I<http://investopedia.com/>).
Please see L<Finance::QuoteHist::Generic(3)> for more details on usage
and available methods. If you just want to get historical quotes and are
not interested in the details of how it is done, check out
L<Finance::QuoteHist(3)>.
=head1 METHODS
The basic user interface consists of a single method, as shown in the
example above. That method is:
=over
=item quotes()
Returns a list of rows (or a reference to an array containing those
rows, if in scalar context). Each row contains the B<Symbol>, B<Date>,
B<Open>, B<High>, B<Low>, B<Close>, and B<Volume> for that date. Quote
values are pre-adjusted for this site.
=item dividends()
Returns a list of rows (or a reference to an array containing those
rows, if in scalar context). Each row contains the B<Symbol>, B<Date>,
and amount of the B<Dividend>, in that order.
=item splits()
Returns a list of rows (or a reference to an array containing those
rows, if in scalar context). Each row contains the B<Symbol>, B<Date>,
B<Post> split shares, and B<Pre> split shares, in that order.
=back
=head1 REQUIRES
Finance::QuoteHist::Generic
=head1 DISCLAIMER
The data returned from these modules is in no way guaranteed, nor are
the developers responsible in any way for how this data (or lack
thereof) is used. The interface is based on URLs and page layouts that
might change at any time. Even though these modules are designed to be
adaptive under these circumstances, they will at some point probably be
unable to retrieve data unless fixed or provided with new parameters.
Furthermore, the data from these web sites is usually not even
guaranteed by the web sites themselves, and oftentimes is acquired
elsewhere.
Details for Investopedia's terms of use can be found here:
http://www.investopedia.com/corp/terms.asp
If you still have concerns, then use another site-specific historical
quote instance, or none at all.
Above all, play nice.
=head1 AUTHOR
Matthew P. Sisk, E<lt>F<sisk@mojotoad.com>E<gt>
=head1 COPYRIGHT
Copyright (c) 2007-2010 Matthew P. Sisk. All rights reserved. All wrongs
revenged. This program is free software; you can redistribute it and/or
modify it under the same terms as Perl itself.
=head1 SEE ALSO
Finance::QuoteHist::Generic(3), Finance::QuoteHist(3), perl(1).
=cut
|
