| Subject: | Source for TSX |
Here's a source for the Toronto Stock Exchange (TSX). This source
provides a limited subset of labels but is very fast when multiple
stocks are fetched.
| Subject: | TSX.pm |
#!/usr/bin/perl -w
#
# Copyright (C) 1998, Dj Padzensky <djpadz@padz.net>
# Copyright (C) 1998, 1999 Linas Vepstas <linas@linas.org>
# Copyright (C) 2000, Yannick LE NY <y-le-ny@ifrance.com>
# Copyright (C) 2000, Paul Fenwick <pjf@cpan.org>
# Copyright (C) 2000, Brent Neal <brentn@users.sourceforge.net>
# Copyright (C) 2001, Leigh Wedding <leigh.wedding@telstra.com>
# Copyright (C) 2006, Mika Laari <mika.laari@iki.fi>
# Copyright (C) 2008, Emmauel Rodriguez <emmanuel.rodriguez@gmail.com>
#
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 2 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
# 02111-1307, USA
#
#
# This code derived from the work of Mika Laari in the package
# Finance::Quote::HEX.
#
# This code was developed as part of GnuCash <http://www.gnucash.org/>
require 5.005;
use strict;
package Finance::Quote::TSX;
use LWP::UserAgent;
use HTML::TableExtract;
use URI;
use URI::QueryParam;
use vars qw/$VERSION/;
$VERSION = "1.0";
# This URL is able to accept up to 10 symbols (QuoteSymbol_1 .. QuoteSymbol_10)
my $TSX_URL = URI->new('http://www.tsx.com/HttpController?GetPage=QuotesLookupPage&DetailedView=DetailedPrices&Language=en&x=58&y=15');
# The number of symbols that can be fetched at a time per URL
my $BATCH_SIZE = 10;
my @LABELS = qw(name last net p_change volume exchange);
sub methods {
return (
tsx => \&tsx,
canada => \&tsx,
);
}
sub labels {
return (
tsx => \@LABELS,
canada => \@LABELS,
);
}
# Toronto Stock Exchange (TSX)
# The TSX provides free delayed quotes through their webpage.
# This module is based on the HEX.pm.
#
# Maintainer of this section is Emmanuel Rodriguiz <emmanuel.rodriguez@gmail.com>.
sub tsx {
my $quoter = shift;
my @symbols = @_;
return unless @symbols;
my %info = ();
# The list of symbols that are requested, this is needed because the URL
# returns matches for similar symbols
my %is_wanted = map { ($_ => 1) } @symbols;
# Fetch the stocks per batch
while (@symbols) {
# Get the next batch of symbols, must have exactly 10 symbols (pad the rest)
my @batch = splice @symbols, 0, $BATCH_SIZE;
push @batch, ('') x ($BATCH_SIZE - @batch);
# Build the URL
my $url = $TSX_URL->clone;
my $i = 0;
foreach my $symbol (@batch) {
my $field = "QuoteSymbol_" . ++$i;
$url->query_param($field, $symbol);
}
# Download the stock information
my $response = $quoter->user_agent->get($url);
unless ($response->is_success) {
foreach my $symbol (@batch) {
$info{$symbol, 'success'} = 0;
$info{$symbol, 'errormsg'} = "HTTP session failed";
}
next;
}
# Extract the stock information
extract_stock_data(\%is_wanted, \%info, $response->content);
}
# Make sure that all symbols where found
foreach my $symbol (@symbols) {
next if exists $info{$symbol, 'name'};
$info{$symbol, 'success'} = 0;
$info{$symbol, 'errormsg'} = "Symbol not found";
}
return wantarray() ? %info : \%info;
}
#
# Extracts the stock data from an HTML page.
#
# Returns a list of symbol structs.
#
sub extract_stock_data {
my ($is_wanted, $info, $content) = @_;
# The stocks are in <tabel class="resultsTable">
my $parser = HTML::TableExtract->new(attribs => { class => 'resultsTable' } );
$parser->parse($content);
my ($table) = $parser->tables;
return unless defined $table;
my $is_header = 1;
foreach my $row ($table->rows) {
# Skip the header
if ($is_header) {
$is_header = 0;
next;
}
# Keep the symbol if it's wanted
my $symbol = $row->[0];
next unless $is_wanted->{$symbol};
my $i = 0;
foreach my $field (@LABELS) {
$info->{$symbol, $field} = $row->[$i++];
}
# Cleanup
$info->{$symbol, 'volume'} =~ s/,//g;
$info->{$symbol, 'p_change'} =~ s/^[+]//;
$info->{$symbol, 'net'} =~ s/^[+]//;
$info->{$symbol, 'method'} = 'tsx';
$info->{$symbol, 'success'} = 1;
}
}
1;
=head1 NAME
Finance::Quote::TSX - Obtain quotes from the Toronto Stock Exchange.
=head1 SYNOPSIS
use Finance::Quote;
$q = Finance::Quote->new;
%stockinfo = $q->fetch("tsx","NT-T"); # Only query TSX.
%stockinfo = $q->fetch("canada","NT"); # Failover to other sources OK.
=head1 DESCRIPTION
This module obtains information from the Toronto Stock Exchange
http://www.tsx.com/.
This module is not loaded by default on a Finance::Quote object.
It's possible to load it explicity by placing "TSX" in the argument
list to Finance::Quote->new().
This module provides both the "tsx" and "toronto" fetch methods.
Please use the "canada" fetch method if you wish to have failover with other
sources for Canadian stocks. Using the "hex" method will guarantee that your
information only comes from the Toronto Stock Exchange.
=head1 LABELS RETURNED
The following labels are returned by Finance::Quote::HEX:
name, last, net, p_change, volume and exchange.
This module returns less information (labels) than other sources but it's able
to retrieve them faster because each HTTP request performed can return up to 10
stocks. Thus, if the labels provided by this module are sufficient for your
application then you should give it a try.
=head1 SEE ALSO
Toronto Stock Exchange, http://www.tsx.com/
=cut