山本ワールド
Yahoo!ファイナンスより単独決算推移を取得する
概要
2007/10/02 22:50
2007/05/04 AM12:51
二次元配列の代わりににハッシュを使ってみた。文字コードはeuc形式でcsv形式で出力される。Windowsで取り込むにはSJISに変換しなければならない。FedoraCore6のOpenOfficeならばeuc形式で読み込みできる。jcode.plが必要。
実行方法
./kabu_s.sh 7203 7203.csv
出力
トヨタ自動車 (株) 7203 単独決算推移,前期 ,2期前 ,3期前 決算年月日,2006年3月期,2005年3月期,2004年3月期 （決算発表日）,2006年5月10日,2005年5月10日,2004年5月11日 決算月数 ,12か月,12か月,12か月 売上高,10191838000000,9218386000000,8963712000000 営業利益,847998000000,701390000000,833791000000 経常利益,1104781000000,856231000000,915728000000 当期利益 ,765961000000,529329000000,581470000000 1株当り当期利益,235.20,160.38,171.08 調整1株当り利益,235.13,160.35,171.06 1株当り配当,90.00,65.00,45.00 配当区分, , , 1株当り株主資本,2062.51,1853.42,1796.75 発行済み株式総数,3241757000,3268078000,3330470000 総資産,9909010000000,9070991000000,8817164000000 株主資本,6686895000000,6057810000000,5984675000000 資本金,397049000000,397049000000,397049000000 有利子負債,500000000000,500600000000,500600000000 繰越損益,584710000000,512778000000,497867000000 株主資本比率,67.5,66.8,67.9 含み損益,---,---,--- ROA,8.07,5.92,6.68 ROE,12.02,8.79,9.95 総資産経常利益率,11.64,9.57,10.52 ,,,
OpenOfficeに取り込んだ状態
プログラム
#! /usr/local/bin/perl
# Yahoo!ファイナンス企業情報より単独決算推移を取得する
require 'jcode.pl';
$f=0;
$d=",";
$cram=1;
$cram_max=0;
$row_top=0;
$row=0;
%str;
while(<STDIN>){
chomp;
if($f==1){
if(/<TD BGCOLOR="#ffffff" WIDTH="20%" ALIGN="CENTER">/){ # 前期 2期前 3期前
s/<TD BGCOLOR="#ffffff" WIDTH="20%" ALIGN="CENTER">//;
s/<\/TD>//;
$key=sprintf("%02i %02i",$cram,$row_top);
$str{$key}=$_;
$cram++;
$cram_max++;
}
if(/<TD BGCOLOR="#ffffff" NOWRAP VALIGN="TOP">/){
$cram=0;
$row_top++;
$row=0;
$f=2;
}
}else{
if($f==2){ # 決算年月日,決算発表日,決算月数
s/<BR>//;
s/<\/TD>//;
if(/<TD BGCOLOR="#ffffff" NOWRAP ALIGN="RIGHT" VALIGN="TOP">/){
$f=3;
$cram=1;
$row=0;
}else{
if($_ ne ""){
$key=sprintf("%02i %02i",$cram,$row_top+$row);
$str{$key}=$_;
$row++;
}
}
}else{
if($f==3){
if(/<TD BGCOLOR="#ffffff" NOWRAP ALIGN="RIGHT" VALIGN="TOP">/){
$f=3;
$cram++;
$row=0;
}else{
if(/<TD BGCOLOR="#ffffff" NOWRAP VALIGN="TOP">/){
$f=3;
$cram=0;
$row_top+=$row;
$row=0;
}else{
if(/<\/TABLE>/){
print $name,"\n";
print $code,"\n"; # 企業名と証券コードを表示
for my $i( 0 .. $row_top+$row ){
for $j ( 0 .. $cram_max){
$key=sprintf("%02i %02i",$j,$i);
print $str{$key};
if($j != $cram_max){
printf $d;
}
}
print "\n";
}
exit;
}else{
s/<BR>//;
s/<\/TD>//;
s/<\/TR>//;
s/<TR>//;
if($_ ne ""){
$key=sprintf("%02i %02i",$cram,$row_top+$row);
if(0 < $cram){
s/百/00/;
s/万/0000/;
s/,//;
s/,//;
s/千/000/;
s/円//;
s/株//;
s/%//;
}
$str{$key}=$_;
$row++;
}
}
}
}
}
}
}
if($f==0){
if(/<FONT size=/){ # 企業名(コード)
s/\<FONT size=//g;
s/\"\+1\"//g;
s/>//g;
s/\<B//g;
s/\<\/B\<\/FONT//g;
/[0-9]{4}/;
$code=$&;
$name=$`;
jcode::tr(\$name, '（）','{}');
$name=~ s/{//g;
$name=~ s/^ //g;
push @str,$name;
}
if(/<TABLE WIDTH="100%" BORDER="0" CELLSPACING="1" CELLPADDING="2">/){
$f=1;
$key=sprintf("%02i %02i",0,0);
$str{$key}="単独決算推移";
}
}
}