Martin Krzywinski - The Perl Journal - Canada's Michael Smith Genome Sciences Centre

#!/usr/bin/perl -w use strict; use Finance::Quote; my $exchange = shift; # Where we fetch our stocks from. my @symbols = @ARGV; # Which stocks we want. my $quoter = Finance::Quote->new; # Create the F::Q object. $quoter->timeout(30); # Cancel fetch operation if it # takes longer than 30 seconds. # Grab our information and place it into %info. my %info = $quoter->fetch($exchange, @symbols); foreach my $stock (@symbols) { unless ($info{$stock, "success"}) { warn "Lookup of $stock failed - ".$info{$stock, "errormsg"}. "\n"; next; } print "$stock:\t\t", "Volume: ", $info{$stock, "volume"}, "\t", "Price: " , $info{$stock, "price"}, "\n"; }

#!/usr/bin/perl -w use strict; use Finance::Quote; my $market = shift; my @stocks = @ARGV; my $quoter = Finance::Quote->new(); $quoter->set_currency("AUD"); # Aussie dollars. my %info = $quoter->fetch($market,@stocks); # Print the info here.

#!/usr/bin/perl -w use strict; use Finance::Quote; # Command-line currency conversion. die "Usage: $0 FROM TO\n" unless defined($ARGV[1]); my $quoter = Finance::Quote->new(); my $exchange_rate = $quoter->currency($ARGV[0],$ARGV[1]); die "Don't know how to convert $ARGV[0] to $ARGV[1]\n" unless $exchange_rate; print "$ARGV[0] -> $ARGV[1] = $exchange_rate\n";

listing 1

Finance::Quote The Perl Journal, Fall 2000

Paul Fenwick (2000) Finance::Quote. The Perl Journal, vol 5(3), issue #19, Fall 2000.

Standard Finance::Quote Labels

Not all exchanges or stocks have all these labels available, but the range of information that Finance::Quote can return includes:

`name`	Company or mutual fund name
`last`	Last price
`high`	Highest trade today
`low`	Lowest trade today
`date`	Last trade date (MM/DD/YY format)
`time`	Last trade time
`net`	Net change
`p_change`	Percent change from previous day's close
`volume`	Volume
`avg_vol`	Average daily volume
`bid`	Bid
`ask`	Ask
`close`	Previous close
`open`	Today's open
`day_range`	Day's range
`year_range`	52-week range
`eps`	Earnings per share
`pe`	P/E ratio
`div_date`	Dividend pay date
`div`	Dividend per share
`div_yield`	Dividend yield
`cap`	Market capitalization
`ex_div`	Ex-dividend date
`nav`	Net asset value
`yield`	Yield (usually 30-day average)
`exchange`	The exchange the information was obtained from
`success`	Did the stock successfully return information?
`errormsg`	If the request failed, the reason why
`method`	The module that found the information.

listing 2

Finance::Quote The Perl Journal, Fall 2000

Paul Fenwick (2000) Finance::Quote. The Perl Journal, vol 5(3), issue #19, Fall 2000.

#!/usr/bin/perl -w
#
# Example stock-ticker program.  Can look up stocks from multiple
# markets and return the results in local currency.
use strict;
use Finance::Quote;
my $CURRENCY = "AUD";	# Set preferred currency here, or empty string for
			        # no conversion.
# The @stocks array contains a set of array-references.  Each reference
# has the market as the first element, and a set of stocks thereafter.
my @STOCKS = ([qw/australia CML ITE BHP/],
	         [qw/usa MSFT RHAT LNUX/]
	     );
# These define the format.  The first item in each pair is the label,
# the second is the printf-style formatting, the third is the width
# of the field (used in printing headers).
my @labels = (["name",  "%12s",  15],
	         ["date",  "%11s",  11], 
	         ["time",  "%10s",  11],
	         ["last",  "%8.2f",  8],
	         ["high",  "%8.2f",  8], 
	         ["low",   "%8.2f",  8],
	         ["close", "%8.2f",  8], 
	         ["volume","%10d",  10]);
my $REFRESH = 120;	# Seconds between refresh.
# -- END CONFIG SECTION --
my $quoter = Finance::Quote->new();
my $clear  = `clear`;			# To clear the screen.
# Build our header.
my $header = "\t\t\t\tSTOCK REPORT" .($CURRENCY ? " ($CURRENCY)" : "") ."\n\n";
foreach my $tuple (@labels) {
    my ($name, undef, $width) = @$tuple;
    $header .= sprintf("%".$width."s", uc($name));
}
$header .= "\n".("-"x79)."\n";
# Header is all built.  Looks beautiful.
$quoter->set_currency($CURRENCY) if $CURRENCY;	# Set default currency.
for (;;) {	# Loop forever.
    print $clear, $header;
    foreach my $stockset (@STOCKS) {
        my ($exchange, @symbols) = @$stockset;
        my %info = $quoter->fetch($exchange, @symbols);
        foreach my $symbol (@symbols) {
            next unless $info{$symbol, "success"};  # Skip failures.
            foreach my $tuple (@labels) {
                my ($label, $format) = @$tuple;
                printf $format, $info{$symbol, $label};
            }
            print "\n";
        }
    }
    sleep($REFRESH);
}

The Perl Journal

Volumes 1–6 (1996–2002)

Finance::Quote

Paul Fenwick

History

Legality

Terminology

Using Finance::Quote: The Basics

The Return Hash

Advanced Usage

Currency Conversion

Fail-over Support and Custom Modules

Required Labels

Tricks With The User Agent

Rolling Your Own Finance::Quote Module

An Example Stock Ticker Program

listing 1

Standard Finance::Quote Labels

listing 2