File: getquote.pl

package info (click to toggle)
ledger 3.4.0-1
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 6,964 kB
  • sloc: cpp: 39,393; python: 4,476; perl: 1,309; sh: 477; lisp: 435; yacc: 103; makefile: 58
file content (19 lines) | stat: -rwxr-xr-x 416 bytes parent folder | download | duplicates (8) 
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;
}