2013年6月16日日曜日

Perl でインターネットとmysql に接続する


以下のサンプルは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 件のコメント:

コメントを投稿