FC2ブログ

use warnings;
use strict;

use URI;
use Web::Scraper;
use LWP::Simple;

# URLの作成
my $yahoo = "http://stocks.finance.yahoo.co.jp/stocks/detail/?code=";
my $code = "7203.t";

# Scraperの設定
my $scraper = scraper {
process '//dd[@class="ymuiEditLink mar0"]//strong', 'records[]' => 'TEXT';
process '//span[@class="yjFL"]', 'close' => 'TEXT';
};
my $uri = new URI($yahoo.$code) || die "$!";
my $res = $scraper->scrape($uri) || die "$!";

# 値の取得
my $open = $res->{records}[1];
my $high = $res->{records}[2];
my $low = $res->{records}[3];
my $close = $res->{close};
# 「 , 」の置き換え
$open =~ s/,//g;
$high =~ s/,//g;
$low =~ s/,//g;
$close =~ s/,//g;

# 画像の取得
my $google_img = "http://chart.apis.google.com/chart?chs=100x150&cht=lc&chd=t0:0|0,".$low.",0|0,".$open."|0,".$close."|0,".$high."&chds=".$low.",".$high."&chm=F,0000FF,1,1,50";
my $dir = "img\\day\\";
LWP::Simple::mirror($google_img, $dir.$code."\.png") || die "$!";


参考URL
Styles - Google Chart API - Google Code
スタイル - Google Chart API入門
Google Chart APIで作るグラフ画像のサンプル - Archiva

chs=幅x高さ
cht=グラフの種類?
chd=t0:0|安値|始値|終値|高値
chds=下限値,上限値
chm=白 陽線 青 陰線

一言
ローソク足を表示させることは出来たけど、Google Chart APIで使用するパラメーターの設定がわからない
サンプル画像


オンライン コンパイラ/インタプリタ
テクニカル分析
プロフィール

Author:雨宮
Firefoxを使用しているので気づかなかったけど、IE6でソースコードを上手くコピーできない

5/3
携帯用ならIE6でもソースコードをコピーできる
携帯用

検索フォーム


あわせて読みたいブログパーツ
一寸先は闇 RSS