NAME

Fiance::NikkeiQuote - Get a stock quote from Nihon Keizai Shimbun, Inc. (Nikkei)

SYNOPSIS

use Finance::NikkeiQuote;
# For example, it's a sony ;-)
my $sony = Finance::NikkeiQuote->new(6758);
# Set proxy, if you need
$sony->proxy('http://proxy.foo.co.jp:8080');
print "Name         : ",($sony->getinfo)[1],"\n";
print "Current Price: ",($sony->gettoday)[3],"\n";
# 25days Range of stock prices;
map{map{print $_,','}@$_;print "\n"}@{$sony->getrange25};

DESCRIPTION

This module gets stock quote from Nikkei. The new constructor will return a Finance::NikkeiQuote object, while the proxy method to use proxy server. The return value of getinfo method is an array, with the following elements:

0 company name in Japanese
1 company name in English

The return value of gettoday method is an array, with the following elements:

0 Open Price
1 High Price
2 Low Price
3 Current Price
4 Volume

The getrange25 method returns an array of pointers to arryas with the following elements:

0 Date
1 Open Price
2 High Price
3 Low Price
4 Close Price
5 Volume

COPYRIGHT

Copyright (c) 2001 Keiichi Daiba. All rights reserved. This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.

The information that you obtain with this library may be copyrighted by Nihon Keizai Shimbun, Inc., and is governed by their usage license. See http://www.nikkei.co.jp/help/copy.html for more information.

AUTHOR

Keiichi Daiba (keiichi@tokyo.pm.org) Tokyo Perl Monger.

SEE ALDSO

LWP::UserAgent, HTML::TableExtract