16 lines
271 B
Perl
16 lines
271 B
Perl
#!/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";
|
|
}
|