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
|
#!/usr/bin/perl
my $symbol = $ARGV[0] || "INTC";
my $days = $ARGV[1] || 7;
$symbol =~ tr/a-z/A-Z/;
my $count = 0;
if ($days > 1000) {
$days = 1000
}
my $loaddays = $days + 200;
#
# We get a few days worth of data, to account for the weekends,
# but only use the first quote that we get (which should be
# "yesterday's" market data.
#
# N.B. this method of getting the dates we need is a complete hack.
# Should find a nice perl module to do the dirty work.
#
open(DATE, 'date -d "'.$loaddays.' days ago" +"%m/%d/%Y" |');
while (<DATE>) {
($fmm, $fdd, $fyy) = split("/");
}
close (DATE);
open(DATE, 'date +"%m/%d/%Y" |');
while (<DATE>) {
($lmm, $ldd, $lyy) = split("/");
}
close (DATE);
my $url = "http://table.finance.yahoo.com/table.csv?y=0&g=d&ignore=.csv"
. "&s=$symbol"
. "&a=$fmm&b=$fdd&c=$fyy"
. "&d=$lmm&e=$ldd&f=$lyy";
# print "$url\n";
open(CURL, "curl -s '$url' |");
while (<CURL>) {
next if (/^Date/);
# print $_;
#Date,Open,High,Low,Close,Volume
(my $date, my $open, my $high, my $low, my $close, my $vol)
= split(",");
$avg = $avg + ($high - $low);
$count ++;
if ($count == $days) { last; }
}
close(CURL);
if ($count == 0) {
printf "Temporarily Unavailable or Unknown Ticker '%s'.\n", symbol;
exit;
}
printf "%s: Avg. Daily Range = \$%3.2f (based on %d days)\n",
$symbol, $avg / $count, $count;
|
