Finance::YahooJPN::Quote -- For fetching historical stock quotes in Japan from Yahoo! Japan Finance.
use Finance::YahooJPN::Quote; # Get quote of Sony Corp. at the Tokyo stock exchange. my @quote = Finance::YahooJPN::Quote->historical('6758.t'); print join("\n", @quote);
Historical quote data is basis for analyzing stock market. Here in Japan, standard quote data is indicated as a set of data: the four prices (open, high, low, close) and the volume of each day. This module provides its user some functions to get historical quote of a company.
This class method automatically
output() a historical series of quote of the stock which specified with
See the descriptions about the following methods for the argument and attributes:
Constructor class method. A stock
$symbol should be given with 4-digit code number and optionaly followed by a letter extension (dot `.' and an alphabet). (i.e. `6758' or `6758.t')
Japanese stock markets use 4-digit code numbers for stock symbols. In addtion to that, an alphabetical letter extention is used for indicating its exchanging place. For example, the stock symbol code of Sony Corp. is '6758' and the letter extention of the Tokyo Stock Exchange is '.t'. Hence, the stock quote of Sony Corp. at Tokyo Stock Exchange is specified as '6758.t'.
According to the Yahoo-Japan-Finance's description http://help.yahoo.co.jp/help/jp/finance/quote/quote-02.html the letter extentions of exchanging place are:
.t: Tokyo Stock Exchange .o: Osaka Stock Exchange .q: JASDAQ .n: Nagoya Stock Exchange .s: Sapporo Stock Exchange .f: Fukuoka Stock Exchange
Letter extention is omittable. When it is omit, the default exchange market is chosen by the Yahoo-Japan-Finance's server. It is not certain but I guess that the default one should be the main exchange market of the stock. Note: since almost symbols should work without letter extention, I have experienced certain problems with a few symbols those which have originally `.j' letter extention. This is of course not for the module but owe to the Yahoo-Japan-Finance server's behavior.
There is exception for above. A few symbols of index are indicated in 5 to 7 digit code numbers. They are '998405' (TOPIX), '998407' (NIKKEI) and '23337' (JASDAQ). http://help.yahoo.co.jp/help/jp/finance/quote/quote-03.html
This object method is for scanning the stock's historical quote pages of Yahoo-Japan-Finance from the
$start date to the current date. And for picking up quote data of each day on those pages.
$start must be given in the format `YYYY-MM-DD' (ex. `2003-08-14'). Be careful, don't forget to quote the word, because bare word 2000-01-01 will be comprehend by Perl as '2000 - 1 - 1 = 1998'. This attribute is omittable. The default value of
$start is '1990-01-01'.
You cannot specify a date of last day. Because, to find the splits you must scan the quote during whole of the period from the
$start day. Without split data, estimation of value adjustment for split cannot be done exactly.
Note that datetime of this module is based on JST (Japan Standard Time: GMT +09:00).
This object method is for returning the collected quote data in a list.
noadjust option you can turn on/off the function of value adjustment for splits. If you omit this option or set this value '0', adjustment function is effective (by default). If you set this value other than '0', adjustment function is ineffective.
Output data is formatted in TSV (Tab Separated Values). Each row represents quote of each day in the order with 1)date, 2)open, 3)high, 4)low, 5)close and 6)volume.
This mudule calculates adjusted values (including closing prices) by itself. Though Yahoo-Japan-Finance doesn't give only four prices but also adjusted closing prices, those values are not rounded but cut for decimal fractions (not good). For this reason, I have decided to ignore Yahoo-Japan-Finance's pre-adjusted closing prices. That is why some adjusted closing prices are different from Yahoo-Japan-Finance's.
Masanori HATA http://www.mihr.net/ (Saitama, JAPAN)
Copyright Â© 2001-2012 Masanori HATA. All rights reserved.
This program is free software; you can redistribute it and/or modify it under the same terms as Perl itself.