Perl / LiosK-free Blog

GnuCashで日本の投資信託の基準価額を取得するPerlモジュールを書いた

2009-08-06
カテゴリ: Client Side
タグ: GnuCash Perl Git ライブラリ会計投資

一ヶ月以上前に作ったまま長いこと紹介せずに放置していたので、そろそろ公開しようと思う...

LiosK's Finance--Quote--YahooJapan at master - GitHub

A Perl module that enables GnuCash to get quotes of Japanese stocks and funds from Yahoo! JAPAN.

GNUプロジェクトの財務管理ソフトウェアであるGnuCashには、Web上のデータソースから株式や投資信託の価格を自動で取得する便利な機能がついています。

Features | GnuCash (投資ポートフォリオに関する機能を抜粋)

Stock/Mutual Fund Portfolios

Track stocks individually (one per account) or in portfolio of accounts (a group of accounts that can be displayed together).

Online Stock & Mutual Fund Quotes

Get Stock & Mutual Fund quotes from various web sites, update portfolio automatically. Additional pricing sources are added regularly.

この機能を使えばGnuCashで投資ポートフォリオを管理するのがだいぶ楽になるのですが、残念なことにデフォルトでは日本の株式や投資信託の価格を取得することができませんでした。おそらく、日本では株式等の価格をCSVのような再利用可能な形で簡単に手に入れることができないために、GnuCashの方で対応してもらえなかったのでしょう。金融後進国は不便ですね...

というわけで、Yahoo!ファイナンスの検索結果ページをスクレイプして、日本の株価や投資信託価格をGnuCashで取り込めるようにするPerlモジュールを作成したので、GitHubで公開しましたよ！というのがこの記事の本題です。使い方等の詳細は続きで。

デジカメの撮影日時を一括変更する方法のメモ

2008-06-16
カテゴリ: Client Side
タグ: Tips デジタルカメラ EXIF Perl バッチ

2週間ほど欧州周遊の旅に出ていて、そのせいでブログの更新がご無沙汰になっていました。一ヶ月以上放置すると広告記事が投稿される仕様のようですね。

で、デジカメを使ってたくさんの写真を撮ってきたわけですが、時計を合わせるのを忘れたせいで、全部日本時間のまま写真を撮ってしまいました。そのデータを全部現地時間に変換するのが意外と面倒だったので、その方法をメモっておく。

昨日の問題を遺伝的アルゴリズムっぽく

2008-04-22
カテゴリ: 雑記
タグ: アルゴリズム Perl 最適化

昨日の問題[1][2][3]を、遺伝的アルゴリズムのようなもので解いてみた。解くのに使ったPerlコードは最後に添付。

一応、前々回のエントリで提示したサンプルデータに対しては、10個の実験枠と40人の参加希望者を全て使い切る最適解を一つ見つけることができた。パラメータ変えながら50回くらい繰り返した末にだが。

とはいえ、実験枠数と参加希望者数の関係が変わったりするとまだうまく最適解を推測できないようなので、もう少しチューニングしたほうがよさそう。

前回と前々回のエントリーの問題を総当りで

2008-04-22
カテゴリ: 雑記
タグ: アルゴリズム最適化 Perl

前々回と前回のエントリで書いた問題を、Perlで総当りで解こうとしてみた。使ったコードは最後に添付。

実行開始から7時間半経過したけど未だに終わる気配がない。馬鹿正直に40人の参加希望者と10個の実験枠を組み合わせたら組み合わせは10^40通り。今回のコードでは、参加可能枠の配列を使って解空間を狭めたけれど、それでもやはり9 * 8 * 9 * 6 * 6 * 5 * 4 * 6 * 7 * 9 * 6 * 8 * 9 * 6 * 7 * 5 * 9 * 4 * 4 * 5 * 3 * 8 * 6 * 8 * 6 * 8 * 7 * 3 * 7 * 9 * 5 * 9 * 5 * 6 * 8 * 7 * 8 * 8 * 7 * 5 = 1.4271125147448316e+32通りの解がある。もっと解空間を狭めるアルゴリズムを考えるか、確率的なアルゴリズムを考えるしかないようだ。

ちなみに、7時間半走らせたところ、最適解は最大実験枠が4個で最大参加者数が12人になっている。明らかにまだまだ。

Perlを書くようになったなぁと思うとき

2008-04-05
カテゴリ: Client Side
タグ: Perl

リネームツールを探してくる代わりに

rename $_, ++$i . '.jpg' foreach (sort glob '*.jpg');

とか書いて済ませ始めたとき。

[Perl][メモ] CGIのperlへのパスを書き換えるスクリプト

2008-03-07
カテゴリ: Client Side
タグ: Perl Tips CGI

CGIの先頭のperlへのパスを、ローカル環境用(#!perl)とアップロード先環境用(#!/usr/bin/perl)とで切り替えるPerlスクリプトを書いたのでメモ。Movable Type Open Sourceとかで遊んでるときに便利。

use strict;

foreach (glob '*.cgi') {
    open FH, $_;
    my @lines = <FH>;
    close FH;

    my $line = shift @lines;
    $line =~ s|!perl|!/usr/bin/perl| unless ($line =~ s|!/usr/bin/perl|!perl|);
    unshift @lines, $line;

    open FH, '>' . $_;
    flock FH, 2;
    print FH @lines;
    close FH;
}

こういう雑多な処理を自動化するときはPerlが便利すぎる。んで、foreach (glob '*.*') { ... }が便利すぎて困る。

ファイルを2回オープンしてるのが無駄な気がするんだけど、なんかいい案あるかな？