株価を取得する

株 Perl

まずは？株価を取得しよう。ネット証券にログインすればリアルタイムな株価が取得できるんだけど、そこまでは必要ないのでYahoo!ファイナンスさんから。

#!/usr/bin/perl -w
use strict;
use warnings;

use HTTP::Request::Common;
use LWP::UserAgent;

sub get_stock_price {
  my ($code) = @_;

  my $url = sprintf('http://quote.mobile.yahoo.co.jp/f?a=d&sy=%s&k=', $code);
  my $response = LWP::UserAgent->new->simple_request(GET $url);
  my ($price) = $response->content =~ /取引値 ([\d,-]+)/;

  $price;
}

foreach my $code('2211.t', '8603.t') {
  print $code.': '.get_stock_price($code)."\n";
}
g:\Temp>perl yf.pl
2211.t: 294
8603.t: 1,490

g:\Temp>