とた日記

_ ネットワークの本の注文

WAN ができないので ネットワーク技術〈2003~2004〉 (専門分野シリーズ)(長谷 和幸/アイテック情報技術教育研究所)を注文しました。

_ 弟帰省

今朝帰ってきたようです。

_ CPAN Fiance::NikkeiQuote の patch

動かなかったのでパッチを作ってみました。もともとの動きがよく分かっていないのですが「英文社名」は単純には取得できなくなりました。

--- NikkeiQuote.pm.orig Sun Nov  3 20:06:11 2002
+++ NikkeiQuote.pm      Sat Aug  7 08:54:22 2004
@@ -3,15 +3,16 @@
 use Carp;
 use LWP::UserAgent;
 use HTML::TableExtract;
+require 'jcode.pl';
 
 use vars qw($todayUrl $infoUrl $range25Url $VERSION);
 
 $todayUrl = 
-  'http://marketsearch.nikkei.co.jp/stock/result.cfm?scode=*SCODE*';
+  'http://company.nikkei.co.jp/indexs.cfm?scode=*SCODE*';
 $infoUrl =
-  'http://marketsearch.nikkei.co.jp/cdb/compinfo.cfm?scode=*SCODE*';
+  'http://company.nikkei.co.jp/mprice.cfm?scode=*SCODE*';
 $range25Url =
-  'http://marketsearch.nikkei.co.jp/cdb/mprice.cfm?scode=*SCODE*';
+  'http://company.nikkei.co.jp/mprice.cfm?scode=*SCODE*';
 $VERSION = '0.5.1';
 
 sub new
@@ -53,10 +54,10 @@
   $url = $todayUrl;
   $url =~ s/\*SCODE\*/$self->{SCODE}/e;
   $html = $self->_gethtml($url);
-  $te = new HTML::TableExtract(depth => 2);
+  $te = new HTML::TableExtract(depth => 0);
   $te->parse($html);
   $ts = ($te->table_states)[1];
-  @ret = (@{($ts->rows)[1]})[0,1,2,3,5];
+  @ret = (@{($ts->rows)[1]})[1,2,3,4,6];
   map{m/([\d,-]+)/; my $tmp = $1; $tmp =~ s/,//g; $_ = $tmp}@ret;
   return wantarray ? @ret : \@ret;
 }
@@ -67,11 +68,11 @@
   my ($url,$html,$te,$ts,@ret);
   $url = $infoUrl;
   $url =~ s/\*SCODE\*/$self->{SCODE}/e;
-  $html = $self->_gethtml($url);
+  $html = jcode::euc($self->_gethtml($url));
   $te = new HTML::TableExtract(depth => 1);
   $te->parse($html);
-  $ts = ($te->table_states)[12];
-  @ret = (@{($ts->rows)[0]}[1],@{($ts->rows)[1]}[1]);
+  $ts = ($te->table_states)[0];
+  @ret = (@{($ts->rows)[1]})[0];
   @ret = map{s/^\s+//; s/\s+$//; $_}@ret;
   return wantarray ? @ret : \@ret;
 }
@@ -85,7 +86,7 @@
   $html = $self->_gethtml($url);
   $te = new HTML::TableExtract(depth => 1);
   $te->parse($html);
-  $ts = ($te->table_states)[20];
+  $ts = ($te->table_states)[8];
   for (0..25){
     $ret[$_] = [map{
                  s/\s+//g;

サンプルコード

#!/usr/local/bin/perl -w
 
use Finance::NikkeiQuote;
 
# For example, Mitsubishi Motors Corp.
my $mmc = Finance::NikkeiQuote->new(7211);
 
print "Name         : ",($mmc->getinfo)[0],"\n";
print "Current Price: ",($mmc->gettoday)[3],"\n";
 
# 25days Range of stock prices;
foreach my $row ($mmc->getrange25){
        print join(',', @$row)."\n";
}

実行結果

Name         : 三菱自動車工業（株） (７２１１) 東京
Current Price: 80
8/06,76,81,75,80,58353000
8/05,81,83,76,79,117129000
8/04,74,79,72,76,110219000
8/03,88,89,78,79,132848000
8/02,96,96,90,90,53084000
7/30,93,97,90,97,96498000
7/29,98,99,90,92,57098000
7/28,104,105,98,98,41808000
7/27,109,110,99,101,56887000
7/26,111,114,110,110,31771000
7/23,114,117,110,114,86205000
7/22,111,112,108,110,31627000
7/21,111,116,110,111,66123000
7/20,109,113,105,107,81214000
7/16,117,120,103,113,194751000
7/15,160,160,131,137,67500000
7/14,168,173,160,160,46844000
7/13,160,161,158,158,5911000
7/12,165,165,160,161,6876000
7/09,160,165,159,164,7334000
7/08,160,162,156,158,7628000
7/07,160,161,156,157,10219000
7/06,165,165,160,161,11630000
7/05,170,170,167,168,6420000
7/02,170,171,166,169,12712000

_ イーバンクカード到着

身分確認から 1 か月以上経ってようやく届きました。

_ ja-squirrelmail-1.4.3a_1,1 でログインできず

ログインしようとすると

 IMAPサーバーの接続でエラー: tls://localhost
0 : Unknown error: 0

と表示されてしまうようになってしまいました。IlohaMail では問題なくログインできるので IMAP サーバの問題は無さそうです。昨日の portupgrade で何か問題があったのでしょうか。

_ portupgrade devel/porttools graphics/xpdf

porttools-0.50              <  needs updating (port has 0.63)
xpdf-3.00_2                 <  needs updating (port has 3.00_3)

_ 一日中ぐったり

昨日の疲れか一日中殆ど何もせず寝て過ごしました。情けない。。。

_ 七生奈央

• 七生奈央 いたずらなゆめ [DVD]
• Swing Hip!! [DVD]
• 七生奈央写真集 ゲリラ!ゲリラ!ゲリラ!(野澤亘伸)
• 七生奈央 赤い飼育 [DVD]
• 七生奈央いたずらなきみへ[DVD] (＜ＤＶＤ＞)(七生奈央)
• もうひとつのGT選手権~目指せ!アクションスター編~ [DVD]
• 七生奈央 seven beat [DVD]
• 七生奈央写真集 いたずらなきみへ(河合 秀直)
• 撫子 [DVD]
• 7070(ナナオナオ)―七生奈央写真集(沢渡 朔)
• 七生奈央ナオナオ[DVD] (＜ＤＶＤ＞)(七生奈央)
• TOP GT RACE QUEEN 2002 [DVD](七生奈央/彩/青柳玲麻/上原ゆい/牛川とこ)
• 七生奈央 ナオナオ [VHS](七生ナオ)
• 七生奈央赤い飼育[DVD] (Deep Kiss)(七生奈央)
• NAISU&MAKURI(NAISU&MAKURI)
• 七生奈央 2005年度 カレンダー
• 七生奈央 ナオナオ [DVD]
• Deep Kiss 七生奈央 いたずらなきみへ [DVD]
• TOP GT RACE QUEEN 2002 [VHS]
• LIVE 70 [DVD]
• ナオナオ [VHS]

_ VAAM ヴァームパウダーダイエットスペシャル7g*20袋入り

2つ注文して5,000円以上にして1000円分割引キャンペーンを適用しました。これは VAAM ヴァーム パウダー10.5g*20袋入りと違って砂糖不使用タイプで、難消化性デキストリンが入っているので、便秘や腹部膨満感を解消する整腸作用、コレステロールや中性脂肪の体内での蓄積を抑制する作用、そして腸内での糖分の吸収をさまたげて、食後の血糖上昇を抑制する作用など、さまざまな生理作用があります。また、店頭ではなかなか販売されていないので、Amazon.co.jpで取り扱ってもらえると大変助かります。

_ 不毛な会議

スケジュールを決めるだけで3時間半も使ってるんじゃねぇよ。責任者を更迭だ。ホント馬鹿だ。使えねぇー。これじゃデスマーチであってしかるべきですな。離脱してもいいですか(ボソッ)。

_ 新人議員がテレビ出演で公選法違反の発言、ネットで問題に

「5〜6台、宣車を回して」「（法廷選挙費用は）やっぱりオーバーしましたね」と牧山さんが発言してしまったのだ。公職選挙法では、選挙運動に使える自動車は2台までと決められていて、費用も規定を超えてしまえば当選は無効だ。

[やじうまWatchより引用]

さらに、牧山さんの発言中に「（民主党の）選対の方針で」とあったのが非常に気になる。つまり、党をあげての脱法行為ではないかと疑えるわけだ。

[やじうまWatchより引用]

これが小沢一郎くんの言うところの挙党態勢ですか。そうですか。

_ 効率の悪さに萎え

昼間の仕事の忙しいときと暇な時の落差が激しすぎて何とかならんもんかと思う。とは言いつつも定時で帰りますがね。所詮は昼間の仕事。

_ 夕立

帰り際に雲行きが怪しくなりこりゃやばいと思っていた矢先にサーバダウンのトラブルに見舞われてしまいました。電源系統に異常があるとのことで別のUPSに繋ぎ変えてもらい何とか復旧しそうとのことで、あとは任せて帰宅。移動中に大雨になったものの乗り物の中だったのでずぶ濡れにならずに済みました。最寄駅で降りると小降りになったので助かりました。

_ misc/rabbit 更新

いくつかの細かい問題点を修正しました。

_ 日本「再創造」 ― 「プラチナ社会」実現に向けて(小宮山 宏)

日本「再創造」 ― 「プラチナ社会」実現に向けて
小宮山 宏
東洋経済新報社
￥ 1,575

_ ~黄文雄(台湾)が呉善花(韓国)、石平(中国)に直撃~ 日本人は中国人・韓国人と根本的に違う(黄 文雄/呉 善花/石 平)

~黄文雄(台湾)が呉善花(韓国)、石平(中国)に直撃~ 日本人は中国人・韓国人と根本的に違う
黄 文雄/呉 善花/石 平
徳間書店
￥ 1,050