blob: 8e3bb678939d50d8c05f2075bba0cdd4c7dea179 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
|
#!/usr/bin/env perl
$timeout = 60;
use Finance::Quote;
use POSIX qw(strftime localtime time);
$q = Finance::Quote->new;
$q->timeout($timeout);
$q->require_labels(qw/price/);
%quotes = $q->fetch("nasdaq", $ARGV[0]);
if ($quotes{$ARGV[0], "price"}) {
print strftime('%Y/%m/%d %H:%M:%S', localtime(time()));
print " ", $ARGV[0], " ";
print "\$", $quotes{$ARGV[0], "price"}, "\n";
} else {
exit 1;
}
|
