observerの作り方

nsIObserverと言うインターフェースが存在しますので、その型を実装すれば問題無く使えます。

var testObserver = {
  observe: function(subject, topic, data) {
    if (topic != "testTopic") {
      return;
    }

    repl.print(({
      "subject": subject,
      "topic": topic,
      "data": data
    }).toSource());
  }
};

と言う訳でobserveメソッドを持つ適当なオブジェクトを上記のように作れば、後はnotifyがあればその通知を受け取る事が出来ます。

ちなみにMozRepl経由で確認すると楽に出来ます。
他の方法で見る方はalertなりerror consoleなりお好きな所に出力して下さい。

observerの登録

windowのload, unloadイベントでaddObserver(), removeObserver()を呼び出す処理を追記したobserverだと下記のようになります。

var testObserver = {
  observerService: null,
  init: function() {
    testObserver.observerService = Components.classes["@mozilla.org/observer-service;1"]
      .getService(Components.interfaces.nsIObserverService);
    testObserver.observerService.addObserver(testObserver, "testTopic", false);
  },
  observe: function(subject, topic, data) {
    if (topic != "testTopic") {
      return;
    }

    repl.print(({
      "subject": subject,
      "topic": topic,
      "data": data
    }).toSource());
  },
  complete: function() {
    testObserver.observerService.removeObserver(testObserver, "testTopic");
  }
};

testObserver.init, testObserver.completeは適当な場所で呼び出すようにしておきます。(例えばload, unloadイベントにaddEventListenerとして)

observalな処理の中でnotifyObserversを使う

例えばですが、長く掛かる処理と言うのをsetTimeoutで表現したとして、

var TestObserval = function() {
  this.observerService = Components.classes["@mozilla.org/observer-service;1"]
    .getService(Components.interfaces.nsIObserverService);
}

TestObserval.prototype = {
  observerService: null,
  start: function() {
    this.observerService.notifyObservers(null, "testTopic", "start");
    setTimeout(this.process, 3000);
  },
  process: function() {
    this.observerService.notifyObservers(null, "testTopic", "end");
  }
}    

としてあげて、オブジェクトを生成してstart()を実行してあげると、実際にnotifyが届いている事が分かると思います。

インストール

gearmand, GearmanをそれぞれCPANから入れるだけです。

daemonの起動

下記のようにdaemonとして起動します。

daemon起動オプションに関してですが、PODの記載は誤りで--daemonizeでは無く--daemonです。

$  sudo gearmand --daemon --pidfile=/var/log/gearmand.pid --debug=1

関数の登録

次にgearmanに実行させたい処理を予め登録し、さらにjob queを待ち受けるworkerを記述します。

#!/usr/bin/perl

use strict;
use warnings;

use Data::Dump qw(dump);
use Gearman::Worker;
use Storable qw(thaw);
use List::Util qw(sum);

my $worker = Gearman::Worker->new;
$worker->job_servers(qw|localhost|);
$worker->register_function(
    sum => sub {
        my $job = shift;
        my @args = @{thaw($job->arg)};

        return sum @args;
    }
);
$worker->work while 1;

task_sum.plなどとして保存して実行します。

注意する所としては下記のような所でしょうか。

• 登録した関数に渡される第1引数はGearman::Jobオブジェクト
• argはtaskから渡されたSCALAR化した引数、argrefはそのリファレンス
• networkをまたがるのでStorableのようなシリアライザーが必須(無いと不便過ぎ。)

func_sum.plなど適当なファイル名で保存し、実行しておきます。

Execute Task

登録したsumを実際に実行する例です。

#!/usr/bin/perl

use strict;
use warnings;

use Data::Dump qw(dump);
use Storable qw(freeze thaw);
use Gearman::Client;
use Gearman::Task;

my $client = Gearman::Client->new;
$client->job_servers(qw|localhost|);

my $args = freeze([1..9]);

my $result_ref = $client->do_task("sum", \$args, {
});
print $$result_ref;

45と表示されれば成功です。

注意する点は単純なスカラー以外を渡す際は、いったんそのリファレンス(配列、ハッシュ、追いブジェクトなどなど)を一度Storableのfleezeにかましてスカラー化した物をリファレンスとして渡すと関数に対して事実上なんでも渡せる事になります。
この辺りがドキュメントが乏しいので分かりづらかったです。

まとめ

実際動かしてみた時の疑問点、TODOです。

• register_functionはPPerlなどで永続化しておくと良いかも。まだ未検証。検証しました。pperl使う意味は元々無いですし、実際ベンチ取ったらpperlの方が遅いです。
• 分散環境でどう動くかまだソース読んでないので分からない。register_functionは実際にtaskを処理するサーバー全部でやるんだろうか。
• ハンドラ(on_complete, on_fail)はまだ試してない
• background動作もまだ未検証

実際のプロジェクトに組み込むにはノウハウがまだ自分に足りてないなと思いました。とは言え面白いプロダクトだと思います。