以下のサンプルはYahoo ファイナンスのデータから、株価のデータを取得して、それをmysql データベースに格納するためのPerl スクリプトです。
https://gist.github.com/cofearabi/5790670
mysql データベースには予め以下のようなSQL文で作成したテーブルを用意しておきます。データベース名:stock_db
DROP TABLE IF EXISTS `table_stock`;
CREATE TABLE table_stock (
hiduke varchar(10) NOT NULL default '2012/09/28' ,
meigara varchar(4 ) NOT NULL default '6954' ,
svalue int ,
hvalue int ,
lvalue int ,
evalue int ,
amount int ,
fvalue int ,
UNIQUE(hiduke,meigara)
);
尚、株価を取得する銘柄を、zzz.txt という名前のファイルに書き込んでおく必要があります。以下はzzz.txtファイルの例です。4桁のコードを各行の先頭に書いておきカンマで区切ります。
------------------------------------
7203,TOYOTA,2900
6954,FANUC,12000
6753,SHARP,140
9984,SOFTBANK,2500
6758,SONY,700
6472,NTN,120
2730,EDION,300
9744,MEITEC,1500
5738,SUMIKEIKIN,60
5007,COSMO,140
4714,RISOH,5000
8001,ITOUCHUU,750
9437,NTT_DOCOMO,120000
8411,MIZUHO,120
6412,HEIWA,1200
8151,TOYOTECNIKA,800
7751,CANNON,2000
5105,TOYOGOMU,190
9501,TEPCO,120
9502,CHUUBU,800
6301,KOMATSU,1200
1306,1306,0
----------------------------------
0 件のコメント:
コメントを投稿