へっぽこネットワークエンジニアのにっき

しあわせになりたい。

スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

[Perl] Web::Scraperを使ってYahoo!ファイナンスから日経平均株価を取得してみた

タイトルのとおり。以上。

とりあえず、すぐ忘れるから備忘録として。

Scrapingとかどうやってやるのか、よくわかんなくて、Web::Scraperに辿り着いて使ってみるまで、ものすごく時間かかりましたが、書いてみるとものすごく短いコード。ステキ


#!/usr/bin/perl

use strict;
use warnings;
use Web::Scraper;
use URI;

my $scraper = scraper {
process '//table[@border="1"]/tr[2]/td[3]','name' => 'TEXT';
process '//table[@border="1"]/tr[2]/td[5]','price' => 'TEXT';
process '//table[@border="1"]/tr[2]/td[6]','percent' => 'TEXT';
};

my $res = $scraper->scrape(URI->new("http://quote.yahoo.co.jp/q?s=998407.o"));

print $res->{name}."\n";
print $res->{price}."\n";
print $res->{percent}."\n";



結果

日経平均株価??
9,239.17
+140.78



あら?後ろの??はなんだ?
・・まぁ、これは後で対応。

参考サイト(参考というか、ずばりまんま・・・・感謝!!)
scraper CLI で遊ぶ その2 -へたっぴ日記-


スポンサーサイト

コメント

コメントの投稿


管理者にだけ表示を許可する

トラックバック

トラックバックURLはこちら
http://heppokone.blog27.fc2.com/tb.php/438-62197ca3
この記事にトラックバックする(FC2ブログユーザー)

FC2Ad

上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。