blob: cf8c8abd856528e4589fffbe3c7f41d9744e77ac (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
|
#!/usr/bin/perl
exit 0 if $ARGV[0] eq "\$";
use Finance::Quote;
$q = Finance::Quote->new;
$q->timeout(60);
$q->require_labels(qw/price/);
%quotes = $q->fetch("nasdaq", $ARGV[0]);
if ($quotes{$ARGV[0], "price"}) {
print "\$", $quotes{$ARGV[0], "price"}, "\n";
}
|
