いわぶろ（ろてん） http://blog.iss.ms issmの公私混同的おぼえがき Sat, 28 Jan 2012 09:45:59 +0000 ja hourly 1 http://wordpress.org/?v=3.0.4 [coffeescript] かなり久しぶりにちょこっとだけ再帰処理 http://feedproxy.google.com/~r/issm/~3/PJHBwSPi2Qg/184419 http://blog.iss.ms/2012/01/28/184419#comments Sat, 28 Jan 2012 09:44:19 +0000 issm http://blog.iss.ms/?p=3673

特定要素を3回点滅させるために，特定のクラス属性を追加したり削除したりを繰り返す処理について．

素直に書くとこんな感じ：

$target        = $(...)
interval_blink = 250
 
setTimeout(
    ->
        $target.addClass('highlighted')
        setTimeout(
            ->
                $target.removeClass('highlighted')
                setTimeout(
                    ->
                        $target.addClass('highlighted')
                        setTimeout(
                            ->
                                $target.removeClass('highlighted')
                                setTimeout(
                                    ->
                                        $target.addClass('highlighted')
                                        setTimeout(
                                            ->
                                                $target.removeClass('highlighted')
                                            interval_blink
                                        )
                                    interval_blink
                                )
                            interval_blink
                        )
                    interval_blink
                )
            interval_blink
        )
    0
)

再帰を使えばこんな感じ：

$target        = $(...)
n_blink        = 3
interval_blink = 250
 
setTimeout(
    ->
        ((b, n) ->
            return true  if n <= 0
            f = arguments.callee
            setTimeout(
                ->
                    meth = if b then 'addClass' else 'removeClass'
                    $target[meth]('highlighted')
                    f( !b, (if b then n else n - 1) )
                interval_blink
            )
            return false
        )(true, n_blink)
    0
)

ということで，久しぶりに再帰とか考えた気がします．こういうこと考えるの楽しいですねｗ

]]> http://blog.iss.ms/2012/01/28/184419/feed 0 http://blog.iss.ms/2012/01/28/184419 Jartyなテンプレート中で使える「フィルタ」を追加する http://feedproxy.google.com/~r/issm/~3/9au5HboldTY/204400 http://blog.iss.ms/2012/01/25/204400#comments Wed, 25 Jan 2012 11:44:00 +0000 issm http://blog.iss.ms/?p=3664

はじめに

ちょっと前から，「Jarty」という JavaScript なテンプレートエンジンを使ってみていたりします．GTDme とかでも使ってみていたりしてます．

特徴は次のような感じ：

Jarty には以下のような機能があります。書式の多くは Smarty 互換です。

  • 変数の置換 {$foo} => “abc”
  • {if} {else} {/if} などの条件分岐
  • {foreach} {/foreach} などのループ
  • {$foo|upper|escape} などのフィルタ (パイプ)
  • etc.

JavaScript 用テンプレートエンジン Jarty の紹介 – ドワンゴ 研究開発ブログ

Jartyなテンプレート中で，自分で定義した処理を「フィルタ」として使えんだろうか，とソースコードを覗いていたら，意外と簡単に追加できそうな感じだったので，そのあたりを紹介します．（どこかにドキュメントされているのかもしれませんが！）

なお，記述はすべて CoffeeScript で書いています．適宜翻訳してくださいまし．

基本

Jarty.Pipe.prototype のプロパティに，処理したい関数を追加すればよさげです．そのプロパティ名が，「フィルタ」の名前となります．ただし，フィルタ名をスネークケースで使いたいときは，それをキャメルケースでプロパティに追加する必要があります．

Jarty.Pipe.prototype.fooBar = () ->
    ...

また，パイプの入力値は，関数の中で @value として参照します．

例えば，「何もしない」フィルタを，次のように追加できる感じです：

Jarty.Pipe.prototype.doNothing = () ->
    return @value

こうしておけば，Jartyなテンプレート中で，次のようにフィルタが使えるようになります：

{$foo|do_nothing}
{$bar|doNothing}

メンドイので関数化しておく

毎回 Jarty.Pipe.prototype. ... とかするのはメンドイので，関数を定義しておくとラクです．

とりあえず add_jarty_filter という名前ででっち上げてみました：

window.add_jarty_filter = (name, func) ->
    # foo_bar -> fooBar
    name = name.replace(
        new RegExp('_(.)', 'g'),
        (p, c) ->
            return c.toUpperCase()
    )
    Jarty?.Pipe?.prototype?[name] = func

こうしておけば，先の「何もしない」フィルタは，次のように書けます：

add_jarty_filter(
    'do_nothing'
    () ->
        return @value
)

追加するフィルタが多くなれば，こうしておいた方がラクかもです．

ユーティリティ関数とかをフィルタ化しておく

文字列操作をはじめとする，小粒な関数とかをフィルタ化しておくと便利そうです．

例えば，与えた数値を3桁ごとに区切ってコンマ「,」を挿入するような関数 commify があったとします：

###
 * 数字を3桁ごとにコンマで区切る
 *   参考: http://www.din.or.jp/~ohzaki/perl.htm
 *
###
window.commify = (num) ->
    if typeof num is 'number'
        return num.toString().replace(/(\d{1,3})(?=(?:\d\d\d)+(?!\d))/g, '$1,')
    else
        return num

これは，こんな感じでフィルタ化できます：

window.add_jarty_filter(
    'commify'
    () ->
        return commify( parseInt(@value, 10) )
)

そうすれば，Jartyなテンプレート中で，

{$foo|commify}

みたいに使えて便利です．

おわりに

以上，Jartyなテンプレート中で，自分で定義した処理を行うための「フィルタ」を追加してみるお話でした．

]]> http://blog.iss.ms/2012/01/25/204400/feed 0 http://blog.iss.ms/2012/01/25/204400 GTDmeの「Inbox」に放り込むAlfred拡張を書いてみた http://feedproxy.google.com/~r/issm/~3/6DeD09i9NVE/212345 http://blog.iss.ms/2012/01/06/212345#comments Fri, 06 Jan 2012 12:23:45 +0000 issm http://blog.iss.ms/?p=3656

ss-1325848366

はじめに

1つ前のエントリ の「今後」として書いたうちの1つ：

ランチャからInboxに放り込めると便利そう
「GTDme」というオレオレGTDツールを作って使い始めようとしています « いわぶろ（ろてん）

今のうちに作ってしまった方が今後恩恵に与れそうなので，「Alfredの拡張機能」という形でひとつこさえてみました．

以下，そのあたりの紹介などです．

Alfredって何？

いわゆる「ランチャ」の1つです．

もともと qsb-mac を使っていたのですが，ここ2年近くアップデートもなくてマンネリ化してきたので，「Mac ランチャ」とかでググっていたところ，次のエントリに行き当たりました．

現在ベータ版で普通にはダウンロードができませんが、メールアドレスを登録するとダウンロードリンクが送られてきます。

Google Quick Search Boxをよりお洒落に使いやすくしたような印象。

なにより軽快に動いて、わかりやすい操作方法なのがいいですね。

格好いい・使いやすい・軽快と三拍子揃ったランチャ『Alfred』 | Macの手書き説明書

エントリ時期自体はちょっと前のものですが，「Google Quick Search Boxをよりお洒落に使いやすくしたような印象。」の一文で，使ってみる気になった感じです．（QSBの使い勝手は好きなので．）

で，Alfred の半分くらいの機能は，£ 15 の「Powerpack」を購入する必要があり，本エントリで触れる「拡張」機能もこの範囲に入っていたかと思います．が，他の機能も含めて，その価値は十分にあると思いますよ．例えば，Free版では，ランチャの表示・非表示の際必ずフェイドイン・フェイドアウトがかかり，サクサク感を得にくいのですが，Powerpackによって，この設定を解除することができるようになる，といった具合です．

セットアップ

拡張機能のインポート

これをどこかテキトーなところに git clone します．

ss-1325851309

そして，packs ディレクトリ下にある GTDme Alfred Inbox.alfredextension をファイラ上から開くことで，Alfredへの拡張機能インポートを行います．

ss-1325848749

こんな感じで拡張機能が入ります．

API設定

項目「Command:」のテキストエリアを編集することで，APIを叩くための設定を行います．

1
2
3
4
5
6
7
8
9
10

#
# GTDme Alfred Inbox Extension - 0.01
#
#   Usage: in <text >
#
PERL="/usr/bin/env perl"
GTDME_URL="http://gtdme.local:1080/"
GTDME_APIKEY="WxmFXSffMFMfEYeI2wX1sWvULrnnAUO6JI5MB7wKMf80z90RGTMQ3hxCIh3HR6di"
 
...

7行目の GTDME_URL に，GTDme アプリケーションが動作しているURL（のベース）を，8行目の GTDME_APIKEY に，利用するユーザに対して発行されるAPIキーを設定します．

※ 2012-01-06 21:00 時点で，APIキーを発行する機能が実装されていません＞＜ データベースを直接触れば好きにすることができます．．．

Alfredから入力してみる

ss-1325848366

Alfred を表示して，キーワード in （とスペース）に続いて，Inboxに放り込みたい内容を入力して Enter，です．

ss-1325848589

こんな感じで Growl に表示されれば，POST成功です．

ss-1325849283

Inboxに入ってます．やったね！

おわりに

以上，拙作（途中） GTDme の Inbox に，ランチャアプリ「Alfred」から気軽に放り込むための拡張機能「gtdme-alfred-inbox-extension」の紹介でした．

こんな感じで，Inbox に放り込むための入り口をいろいろ増やして行ってみたいと思ってます．

また，今回を経て，Alfred の拡張機能もけっこう簡単に作れるんだな，ということがわかったので，こちらもいろいろ試してみたいですね！

]]> http://blog.iss.ms/2012/01/06/212345/feed 0 http://blog.iss.ms/2012/01/06/212345 「GTDme」というオレオレGTDツールを作って使い始めようとしています http://feedproxy.google.com/~r/issm/~3/EIg01hJLj8Q/123500 http://blog.iss.ms/2012/01/06/123500#comments Fri, 06 Jan 2012 03:35:00 +0000 issm http://blog.iss.ms/?p=3641

ss-1325810374

はじめに

ここ2年ほどで，未実施なプロジェクトリスト == 紙の束を持ち運ぶのが大変になってきたり，毎度紙におこすのがメンドかったりと，週次レビューに対するモチベーションが，本題とは外れた部分をきっかけに下がり始めてきたので，ちょっとツールを切り替えてみようかな，などと思い立ちました．

で，これまでやってきたオレオレ週次レビューの流れをそれなりに活かせそうな形で，「GTDme」というツールを作り始めてみてます．ネーミングは気にしない．

多少形になってきたので，以下，現状での紹介など．

そもそもGTDって何？

ここでは省略．

まずは実践してみることをオススメします．「脳はHDDではなくCPUである」という考えに賛同できれば，コンセプトは吸収しやすいんじゃないかな，と思います．

現状をざっと詳細

認証

Twitter な OAuth のみサポートしています．個人レベルでの利用とかいいながら，認証はソーシャルっぽく．

ナビゲーション

ss-1325807388

GTDにおいて，一般的に「準備しよう」とされている各種の「リスト（フォルダ）」に相当するようにナビゲーションを置いてます．だいたい次のような感じです：

Home
「次に取るべき行動」リスト
Inbox
「In-box」
Calendar
「カレンダー」．オレオレ的に，特定日（期間）もの，週次反復もの，月次反復もの，と分割していたり
Background
「連絡待ち」リスト
Materials
「資料」．単語に違和感＞＜
Someday
「多分やる・いつかやる」リスト
Projects
「プロジェクト」リスト

Add to Inbox?

ss-1325807448

どのページにも，右上のあたりに「Add to Inbox?」という，ボタンのようなものを置いてます．これをクリックすると．．．

ss-1325807658

．．．何か入力フォームが表示されるので，頭に浮かんだ気になったことを書いて Enter すれば，その内容が Inbox に入ります．

Inbox

ss-1325808195

こんな感じで，「Add to Inbox」した内容がいろいろたまります．それらにマウスを乗せると．．．

ss-1325808307

．．．ボタンっぽいものがいくつか表示されます（デザイン募集中ですｗ）．いわゆる「GTDのワークフロー」におけるいくつもの分岐先をワンクリックで行えるようになっています．

Done!
既に完了したときに選択
Can do now!
2分以内に完了できそうなときに選択（後述）
Next action
「次にとるべき行動」リストへ
Calendar
「カレンダー」へ
Material
「資料」へ
Background
「連絡待ち」リストへ
Someday
「多分やる・いつかやる」リストへ
Project
行動が複数ありそうなときに選択（後述）
No need
不要であればポイ
Edit
内容を編集（後述）
Can do now!
ss-1325808797

その場で2分以内にできそうな場合に選択します．このボタンをクリックしてさっそく行動しましょう．ダイアログの「OK」を選択すれば，そのタスクは完了扱いとなります．

Project
ss-1325808405-1

そのタスクを「プロジェクト」として作成する（Create）か，既存の「プロジェクト」に一行動として追加するか，を選択します．

ss-1325808563

作成した場合，その元となったタスクは削除されます．

Edit
ss-1325808899

その場で内容を編集できます．

Calendar

ss-1325809230

タスクの内容により，次の4種類に分けられます：

    The day
    特定年月日日，または特定期間が指定されたもの
    Weekly
    特定の曜日が指定されたもの
    Monthly
    特定の「日」が指定されたもの
    Unclassified
    上記の指定がないもの．「Edit」によりいずれかの指定を行う必要がある

Inbox 同様，ここからいつくかの操作を行えます．

Projects

「プロジェクト」の一覧やそれぞれに属するタスク・行動を確認したり操作したりできます．

ss-1325809504

「プロジェクト」の一覧です．

ss-1325809565

特定の「プロジェクト」に属するタスク・行動の一覧です．

ss-1325809647

Inbox 同様，ここからいくつかの操作を行えます．

特殊記法

タスク内容の入力の際に特定の書式で記述することで，特別な情報を付加することができます．

  • タグ
  • 年月日・期間
  • （毎週の）曜日
  • （毎月の）日
  • 「ステップ」の数（「ステップ」の定義は特にない＞＜）

Home

ss-1325809808

「次にとるべき行動」の一覧が表示されます．特定のプロジェクトや，自分で定義したタグによる絞り込みも行えます．あと並び替えとかもきっと．

開発がらみのメモ

Perl な Webアプリケーションフレームワーク Amon2 の「Large」フレーバーをベースに，シンプル O/R マッパTeng，テンプレートエンジン Text::Xslate を中心とした構成で作ってます．

関連して，Amon2 や Teng のちょっとしたプラグインも作って組み込んでみてます．

また，表側は，Amon2に同梱の Bootstrap をベースに，CoffeeScript とか Jarty とか使ってみてます．

あと，まだまだ途中ですが，一応 GitHub に上げながらやってます．

今後

  • DotCloud へデプロイできるようにしたい
  • スマフォ向けインタフェイスを準備したい
  • ランチャからInboxに放り込めると便利そう
  • とにかく「Inboxに放り込む」ための手段についていろいろ考えたい

とりあえずこんなことを考えてます．

おわりに

以上，私が週次レビューのモチベーションを上げるために作り始めたGTDツール「GTDme」の現状を紹介しました．

もう少し整理した後，今晩か明日かにでも，紙で書かれた無数のタスクをどんどん放り込んでいってみることにします．

Amazonさん

百式 の中の人による三部作（？）．

]]> http://blog.iss.ms/2012/01/06/123500/feed 0 http://blog.iss.ms/2012/01/06/123500 [javascript] 追加した関数を順次実行するためのJobSequencerというのを書いてみた http://feedproxy.google.com/~r/issm/~3/36rhbaQ6vjg/164513 http://blog.iss.ms/2011/12/29/164513#comments Thu, 29 Dec 2011 07:45:13 +0000 issm http://blog.iss.ms/?p=3636

はじめに

ちょっと必要になって10分ほどで書いてみました．リハビリ．

「ジョブ」の定義とかよく知りません＞＜

使い方

var jobseq = new JobSequencer({ interval: 1000 });
 
jobseq.push(function (o) {
    console.log( o.id );  // 1
});
 
jobseq.push(function (o) {
    console.log( o.id );  // 2
}, 500);
 
jobseq.start();
jobseq.stop();

コールバック関数を順番で追加していき， start メソッドでその順番に，指定したインターバルをおいて実行される感じです．

すべて完了する前に stop メソッドを呼ぶことで，中断することもできます．その後 start メソッドを再度呼ぶことで再開します．

ソースコード

冒頭のリンクを参照頂ければよいのですが，ページ稼ぎのためこちらにもｗ

window.JobSequencer = function () { return this.init.apply(this, arguments); };
JobSequencer.prototype = {
    init: function (params) {
        params = params || {};
 
        var self = this;
        self._queue   = [];
        self._stopped = false;
        self._count   = 0;
        self.interval = params.interval || 0;
 
        return self;
    },
 
    push: function (f, sec) {
        this._queue.push({ f: f, s: sec || this.interval });
    },
 
    shift: function () {
        return this._queue.shift();
    },
 
    start: function () {
        this._stopped = false;
        return this._exec();
    },
 
    stop: function () {
        this._stopped = true;
    },
 
    _exec: function () {
        var self = this;
        var f_this = arguments.callee;
 
        if ( self._stopped ) { return }
 
        var o = self.shift();
        if ( typeof o !== 'undefined' ) {
            var params = {
                id: ++self._count
            };
 
            setTimeout(function () {
                o.f(params);
                f_this.call(self, []);
            }, o.s);
        }
    }
};

おわりに

順番に追加していった関数を，その順番に実行していく JobSequencer っていう JavaScriptなクラスを書いてみたお話でした．

Amazonさん

まだ読んでない＞＜

]]> http://blog.iss.ms/2011/12/29/164513/feed 0 http://blog.iss.ms/2011/12/29/164513 [git][perl] rebase祭りを支援するツール「git-rebase-matsuri」というのを書いてみた http://feedproxy.google.com/~r/issm/~3/Qniz14Zp5yw/114441 http://blog.iss.ms/2011/12/26/114441#comments Mon, 26 Dec 2011 02:44:41 +0000 issm http://blog.iss.ms/?p=3625

ss-1324860051

はじめに

どのブランチがどのブランチの上に乗っかるか，というルールが複数定義されたファイルを読んでひたすら git rebase を行うためのツール「git-rebase-matsuri」というのを書いてみたので，本エントリで軽く紹介します．

※ とあるコミットポイントにおいてちょっとした主要なコミットが発生したおかげで，そこから派生していたすべてのブランチに対して git rebaase する作業が発生することを，私は勝手に「rebase祭り」などと呼んでおります．

背景

「この機能の実装を進めて」「ちょっとあれを直してほしい」先方からそんな要求がくるたびに，その数だけトピックブランチを，公開状態のコミットポイントから生やして作業しています．で，こちらが作業を完了して報告，公開向けの準備の指示を仰ぐのですが，そこから返信がこなくなります．（まぁお忙しいのでしょうね．）その結果，「公開待ち」な状態のブランチが増えてきます．

コミットツリーは次のような感じになります：

ss-1324859692

そこで飛び込んでくる「これ，あのお客さんにどうしても対応したいから，すぐに実装して反映してほしい」といった要求．私の少量メモリな脳内ではスワップを起こしていますが，対応しなければなりません．そしてその修正を先に公開します．

（本エントリを書いている最中にも，何か1件飛び込んできましたｗ）

コミットツリーは次のような感じになります：

ss-1324860051

さて，本来の開発作業に戻りますか．しかし，安心して開発を再開するには，コミットツリーを次のようにしておきたいところですね：

ss-1324860499

まぁ git rebase しまくればよいだけですが，いかんせんメンドイ！

使い方

インストール

App::gitrebasematsuri として，CPANモジュール形式で作ってみました．今のところ GitHub にだけ上がってます：

cpanm とかで入れればよいと思います．

インストールできたら， git-rebase-matsuri というコマンドが使えるようになります．

% git-rebase-matsuri
Usage:
      git-rebase-matsuri --conf=<config_file>
      git-rebase-matsuri --conf=<config_file> --doit  # really execute "git rebase"

コンフィグファイル

「どのブランチが，どのブランチ（コミット）に乗っかるか」というルールを任意のファイルを作って記述していきます．

例えば，先の「背景」での rebaase祭り前のヤツ：

ss-1324860051

を，公開最新状態である release-3 タグ （ここでは master ブランチをいっしょ）を起点とした形に rebase したい：

ss-1324860499

とします．

この場合，次のように記述します：

# <branch> -> <onto>
id/1 -> master
id/2 -> ^
id/3 -> master
id/6 -> ^
id/4 -> master
id/5 -> master

「->」の左側が「乗っかる」側のブランチ，右側が「起点となる」ブランチ，となります．

記号「^」は，「直前のルールの『左側』のブランチを起点にする」という意味を持っています．もちろん，ブランチ名を直接指定してもOKです．

ファイル名は rebase-matsuri.conf とでもしておきましょう．

コマンドの実行

コンフィグファイルを --conf または -c オプションで指定して実行します．

% git-rebase-matsuri -c rebase-matsuri.conf
2011-12-26T09:46:33 [INFO] rebase rule has been added: id/1 -> master
2011-12-26T09:46:33 [INFO] rebase rule has been added: id/2 -> id/1
2011-12-26T09:46:33 [INFO] rebase rule has been added: id/3 -> master
2011-12-26T09:46:33 [INFO] rebase rule has been added: id/6 -> id/3
2011-12-26T09:46:33 [INFO] rebase rule has been added: id/4 -> master
2011-12-26T09:46:33 [INFO] rebase rule has been added: id/5 -> master
2011-12-26T09:46:33 [WARN] Do you really rebase? specify "--doit" option.

ルールの確認だけできました．実際に git rebase も行うには，--doit オプションをつける必要があります．一応予防線をはってみましたｗ

では，--doit オプションもつけて実行します．

% git-rebase-matsuri -c rebase-matsuri.conf --doit
2011-12-26T09:46:59 [INFO] rebase rule has been added: id/1 -> master
2011-12-26T09:46:59 [INFO] rebase rule has been added: id/2 -> id/1
2011-12-26T09:46:59 [INFO] rebase rule has been added: id/3 -> master
2011-12-26T09:46:59 [INFO] rebase rule has been added: id/6 -> id/3
2011-12-26T09:46:59 [INFO] rebase rule has been added: id/4 -> master
2011-12-26T09:46:59 [INFO] rebase rule has been added: id/5 -> master
2011-12-26T09:46:59 [INFO] current branch/commit: id/7
2011-12-26T09:46:59 [WARN] Switched to branch 'id/1'
2011-12-26T09:46:59 [INFO] First, rewinding head to replay your work on top of it...
2011-12-26T09:46:59 [INFO] Applying: 7l9mSClY2I6MDToR8Fu5mEhn16Xvxrr4jSiqnyfI. refs #1
2011-12-26T09:46:59 [INFO] Applying: CR5q38OuoIj63HrhelKAFQEshtGPvd6H1mglSaPU. refs #1
2011-12-26T09:46:59 [WARN] Switched to branch 'id/2'
2011-12-26T09:46:59 [INFO] First, rewinding head to replay your work on top of it...
2011-12-26T09:46:59 [INFO] Applying: eymEmpKebkoBHXMvBKh6VoYL0D0S3vYASDf3Evv6. refs #2
2011-12-26T09:46:59 [WARN] Switched to branch 'id/3'
2011-12-26T09:47:00 [INFO] First, rewinding head to replay your work on top of it...
2011-12-26T09:47:00 [INFO] Applying: OJBncdWk5xzkINMCCqiPlRkdH3E7ZEAiUirPWEPq. refs #3
2011-12-26T09:47:00 [INFO] Applying: LFeSI6SsTyKi6ZDIUXQK69zWX4IfB6OT14FCmPU2. refs #3
2011-12-26T09:47:00 [INFO] Applying: YPgXUdxQJCKqOFsukt5jpxOuUCo9gSpLIuOmXQlv. refs #3
2011-12-26T09:47:00 [WARN] Switched to branch 'id/6'
2011-12-26T09:47:00 [INFO] First, rewinding head to replay your work on top of it...
2011-12-26T09:47:00 [INFO] Applying: n3gYUd9m1z12NJ63D3hIrVL7ZDvWnAqFbtbuupdT. refs #6
2011-12-26T09:47:00 [WARN] Switched to branch 'id/4'
2011-12-26T09:47:00 [INFO] First, rewinding head to replay your work on top of it...
2011-12-26T09:47:00 [INFO] Applying: bdqD7UZ9VLyyov3FIQ8Y4r2kGFUsmDlTQHqZYeN4. refs #4
2011-12-26T09:47:00 [INFO] Applying: rQZGVsQrhswVVskKHJ7P3HcDqCR7OtmccozHrRXa. refs #4
2011-12-26T09:47:00 [WARN] Switched to branch 'id/5'
2011-12-26T09:47:01 [INFO] First, rewinding head to replay your work on top of it...
2011-12-26T09:47:01 [INFO] Applying: GL6q8fM3EI1FhxPqlHInVPfgRfdmdhpmj7uDDKAL. refs #5
2011-12-26T09:47:01 [INFO] Applying: 4nVra34dYs5SrY1it2cACZ3jJw87JQrkSt6Hg3YX. refs #5
2011-12-26T09:47:01 [WARN] Switched to branch 'id/7'

こんな感じで rebase祭りを手軽に執り行うことができます．

もちろん，未コミットなファイルがあったりするとできないので，コミットするか git stash などするかしておくところは従来と同様です．

また，conflictが発生したときは，そこは自力でガンバる必要がありますｗ

おわりに

以上，rebase祭りを手軽に執り行なうための支援ツール「git-rebase-matsuri」の紹介と，その使い方についてのエントリでした．

さて，飛び込んできた修正依頼に対応して公開して，またrebase祭りを始めるとしますかねｗ

Amazonさん

]]> http://blog.iss.ms/2011/12/26/114441/feed 0 http://blog.iss.ms/2011/12/26/114441 Net::Google::Analyticsを使ってGoogle Analyticsのデータを引っ張る http://feedproxy.google.com/~r/issm/~3/JV9_WR2ajRA/124620 http://blog.iss.ms/2011/12/13/124620#comments Tue, 13 Dec 2011 03:46:20 +0000 issm http://blog.iss.ms/?p=3621

．．．というタイトルで，Perl Advent Calendar 2011 の Casual Track に，13日目のエントリを書かせていただきました．

]]> http://blog.iss.ms/2011/12/13/124620/feed 0 http://blog.iss.ms/2011/12/13/124620 皆既月食の写真何点か＠名古屋 http://feedproxy.google.com/~r/issm/~3/WNyLEtfzmQQ/020429 http://blog.iss.ms/2011/12/11/020429#comments Sat, 10 Dec 2011 17:04:29 +0000 issm http://blog.iss.ms/?p=3613

今回の皆既月食，雲だらの名古屋でこのUstを見ていました：

幸い名古屋でも皆既のあたりから雲が切れ始め，お仕事場前の道路から見上げたら，肉眼ではっきりと見ることができました．

そんなわけで，手持ちのカメラで撮ったものをざっとまとめてみました．

IMGP6399
IMGP6426
IMGP6436
IMGP6455
IMGP6465
IMGP6485
IMGP6524
IMGP6532
IMGP6536
IMGP6553
IMGP6569
IMGP6586

他にも重複してるっぽい写真を含め，Flickrに上がってますのでよろしければ：

]]> http://blog.iss.ms/2011/12/11/020429/feed 0 http://blog.iss.ms/2011/12/11/020429 PHP::Serializationを使ったPerl・PHP間でのデータ共有の足がかりのためのメモ http://feedproxy.google.com/~r/issm/~3/RZFtAUq7234/141715 http://blog.iss.ms/2011/12/09/141715#comments Fri, 09 Dec 2011 05:17:15 +0000 issm http://blog.iss.ms/?p=3605

PHPでシリアライズしたデータをPerlで復元したり，その逆を行うったりするためのモジュール PHP::Serialization を使ってみたメモ．

なお，Perl は 5.12.2，PHP は 5.3.4．

簡単なデータいくつか（Perl側でシリアライズ）

% perl -M5.12.0 -MPHP::Serialization=serialize -le 'say serialize($_)  for 1, [1], [1 => 2], +{1 => 2}'
i:1;
a:1:{i:0;i:1;}
a:2:{i:0;i:1;i:1;i:2;}
a:1:{i:1;i:2;}
% perl -M5.12.0 -MPHP::Serialization=unserialize -MData::Dump=dump -le 'say dump(unserialize($_))  for qw/ i:1;  a:1:{i:0;i:1;}  a:2:{i:0;i:1;i:1;i:2;}  a:1:{i:1;i:2;} /'
1
[1]
[1, 2]
{ 1 => 2 }

簡単なデータいくつか（PHP側でシリアライズ）

% echo '<?php print serialize(array()) ?>' | php
a:0:{}
% echo '<?php print serialize(array( 1, 2 )) ?>' | php
a:2:{i:0;i:1;i:1;i:2;}
% echo '<?php print serialize(array( 1 => 2 )) ?>' | php
a:1:{i:1;i:2;}
% echo '<?php print serialize(array( '1' => 2 )) ?>' | php
a:1:{i:1;i:2;}
% echo '<?php print serialize(array( 'a' => 2 )) ?>' | php
a:1:{s:1:"a";i:2;}
% perl -M5.12.0 -MPHP::Serialization=unserialize -MData::Dump=dump -le 'say dump(unserialize($_))  for qw/ a:0:{}  a:2:{i:0;i:1;i:1;i:2;}  a:1:{i:1;i:2;}  a:1:{s:1:"a";i:2;} /'
[]
[1, 2]
{ 1 => 2 }
{ a => 2 }

空のリストリファレンス・空のハッシュリファレンス（Perl側でシリアライズ）

空のリストリファレンス，空のハッシュリファレンスを，それぞれ Perl側でシリアライズしてみる：

% perl -M5.12.0 -MPHP::Serialization=serialize -le 'say serialize([]); say serialize(+{})'
a:0:{}
a:0:{}
% perl -M5.12.0 -MPHP::Serialization=unserialize -MData::Dump=dump -le 'print dump(unserialize($_))  for qw/ a:0:{} /'
[]

ハマる予感しまくりなので，何らかのダミーデータを入れておくのがよさげっぽい．

NULL（PHP側でシリアライズ）

% echo '<?php print serialize(NULL) ?>' | php
N;
% echo '<?php print serialize(array(NULL)) ?>' | php
a:1:{i:0;N;}
% echo '<?php print serialize(array(NULL, NULL)) ?>' | php
a:2:{i:0;N;i:1;N;}
% echo '<?php print serialize(array(NULL => NULL)) ?>' | php
a:1:{s:0:"";N;}
% perl -M5.12.0 -MPHP::Serialization=unserialize -MData::Dump=dump -le 'say dump(unserialize($_))  for qw/ N;  a:1:{i:0;N;}  a:2:{i:0;N;i:1;N;}  a:1:{s:0:"";N;} /'
undef
[undef]
[undef, undef]
{ "" => undef }

undef（Perl側でシリアライズ）

% perl -M5.12.0 -MPHP::Serialization=serialize -le 'say serialize($_)  for undef, [undef], [undef => undef], +{undef => undef}'
N;
a:1:{i:0;N;}
a:2:{i:0;s:5:"undef";i:1;N;}
a:1:{s:5:"undef";N;}
% perl -M5.12.0 -MPHP::Serialization=unserialize -MData::Dump=dump -le 'say dump(unserialize($_))  for qw/ N;  a:1:{i:0;N;}  a:2:{i:0;s:5:"undef";i:1;N;}  a:1:{s:5:"undef";N;} /'
undef
[undef]
["undef", undef]
{ undef => undef }
]]> http://blog.iss.ms/2011/12/09/141715/feed 0 http://blog.iss.ms/2011/12/09/141715 [perl] Cache::FileCacheが保存するファイルの中身を覗いてみるメモ http://feedproxy.google.com/~r/issm/~3/WBpOV7SGXdY/195232 http://blog.iss.ms/2011/12/07/195232#comments Wed, 07 Dec 2011 10:52:32 +0000 issm http://blog.iss.ms/?p=3586

2011-12-08 11:25 追記
Can't locate object が出る件に追記しました．

はじめに

Cache::FileCache が保存するデータの中身を，外部のPerlスクリプトから参照するためのちょっとした実験のメモ．

事前準備

キャッシュを2パタンセットするためのスクリプト set.pl，キャッシュデータが保存されているファイルを見つけてダンプ出力するスクリプト find.pl の2つを順に実行して，それを確認してみます．

コードの内容は後述しますが，次でも参照できます：

構成としては次のような感じ．どこかのディレクトリに2つのスクリプトが置いてあるだけです：

% tree .
.
├── find.pl
└── set.pl
 
0 directories, 2 files

set.pl を実行する

set.pl は次のような感じです：

use 5.12.0;
use warnings;
use FindBin;
use Cache::FileCache;
 
my $cache = Cache::FileCache->new({
    cache_root => "${FindBin::Bin}/cache",
    namespace  => 'mycache',
});
 
# 600秒後にexpire
$cache->set(
    'hogehoge',
    { foo => 1, bar => 2, baz => [ 3, 4, 5 ] },
    600,
);
 
# expireしない
$cache->set(
    'fugafuga',
    [qw/ a b c d e /],
);

これを実行すると，ファイル構成は次のようになります：

% perl set.pl
% tree .
.
├── cache
│   └── mycache
│       └── 3
│           ├── 9
│           │   └── 9
│           │       └── 39975bb0ba31825c4fdd3de775dd468081b3522b
│           └── b
│               └── 2
│                   └── 3b2c6c10d0e78072d14e02cc4c587814d0f10f3a
├── find.pl
└── set.pl
 
7 directories, 4 files

find.pl を実行する

use 5.12.0;
use warnings;
use FindBin;
use File::Find;
use Storable qw/thaw/;
use Data::Dumper;
 
my $target = "${FindBin::Bin}/cache";
 
sub _do_something {
    my ($f) = @_;
    my ($raw, $data);
 
    $raw = do {
        my $a;
        local $/;
        open my $fh, '<', $f  or  die $!;
        $a = <$fh>;
        close $fh;
        $a;
    };
    $data = thaw($raw);
 
    say Dumper $data;
}
 
sub _handle_found {
    my $f = $File::Find::name;
    return  if -d $f;
    return _do_something($f);
}
 
find \&_handle_found, $target;

実行結果は次のようになります：

% perl find.pl
$VAR1 = [
          'fugafuga',
          bless( {
                   '_Expires_At' => 'never',
                   '_Size' => undef,
                   '_Created_At' => '1323249367',
                   '_Key' => undef,
                   '_Data' => [
                                'a',
                                'b',
                                'c',
                                'd',
                                'e'
                              ],
                   '_Accessed_At' => '1323249367'
                 }, 'Cache::Object' )
        ];
 
$VAR1 = [
          'hogehoge',
          bless( {
                   '_Expires_At' => '1323249967',
                   '_Size' => undef,
                   '_Created_At' => '1323249367',
                   '_Key' => undef,
                   '_Data' => {
                                'bar' => 2,
                                'baz' => [
                                           3,
                                           4,
                                           5
                                         ],
                                'foo' => 1
                              },
                   '_Accessed_At' => '1323249367'
                 }, 'Cache::Object' )
        ];

復元できているようですね．

簡単なまとめ

Cache::FileCache でファイルとして保存されるデータは，次の要素：

  1. キャシュのキー
  2. Cache::Object オブジェクト

が順に入っているリストリファレンスを Storable でシリアライズしたもの，ということがわかった感じです．（Storable::thaw で復元できた，という結果からに拠ります．今のところソースコードを確認していません＞＜）

また，「無期限」なキャッシュオブジェクトには，_Expires_At の値として never が付いているので，判別に利用できますね．

あと，上記のように復元したら，Cache::Object のメソッドが使えないのは私の行いが悪いからでしょうか？

Can't locate object method "get_acceced_at" via package "Cache::Object" at (ry


2011-12-08 11:25 追記
スクリプト中で use Cache::Object すれば使えました＞＜

おわりに

以上，Cache::FileCache が保存するデータの中身を，外部のスクリプトから参照するちょっとした実験のメモ，でした．

おまけ： Storableはどこで使われている？

上記スクリプトでは，当然のように Storable::thaw を使いましたが，Cache::FileCache が Storable を利用しているかどうかは，次のような順でソースコードをさかのぼっていった結果，確認することができました．

最終的に，Cache::CacheUtils の中で，次の記述を見つけました：

19

use Storable qw( nfreeze thaw dclone );

また，さかのぼった順序は，つぎのような感じです．

Cache::FileCache:96 (Cache::Cache 1.06)

96
97
98
99
100
101
102

sub _Get_Backend
{
  my ( $p_optional_cache_root ) = Static_Params( @_ );
 
  return new Cache::FileBackend( _Build_Cache_Root( $p_optional_cache_root ) );
 
}

Cache::FileBackend:646 (Cache::Cache 1.06)

646
647
648
649
650
651
652
653
654
655
656
657
658
659
660
661
662
663
664
665
666

sub _read_data
{
  my ( $self, $p_path ) = @_;
 
  Assert_Defined( $p_path );
 
  my $frozen_data_ref = _Read_File_Without_Time_Modification( $p_path ) or
    return [ undef, undef ];
 
  my $data_ref = eval{ Thaw_Data( $$frozen_data_ref ) };
 
  if ( $@ || ( ref( $data_ref ) ne 'ARRAY' ) )
  {
    unlink _Untaint_Path( $p_path );
    return [ undef, undef ];
  }
  else
  {
    return $data_ref;
  }
}

Cache::CacheUtils:114 (Cache::Cache 1.06)

114
115
116
117
118
119

sub Thaw_Data
{
  my ( $p_frozen_object ) = @_;
 
  return defined $p_frozen_object ? thaw( $p_frozen_object ) : undef;
}
]]> http://blog.iss.ms/2011/12/07/195232/feed 0 http://blog.iss.ms/2011/12/07/195232