はじめに

今年も佳境に入ってきた JPerl Advent Calendar 2010，「hacker」トラック16日目 typesterさんのエントリや Yappoさんのエントリでオモシロソウなモジュールが紹介されていました．

• Perl から Growl をちゃんと使おう – JPerl advent calendar 2010 hacker Track
• YappoLogs: Cocoa::Growl が面白い

typesterさんのエントリを一部引用すると．

でもperlbrewで64bit perlいれてるからMac::Growlがうまくインストールできないし…

そんな風に思っていた頃が僕にもありました。
Perl から Growl をちゃんと使おう – JPerl advent calendar 2010 hacker Track

そんな不満を打破するべく僕は Cocoa::Growl を書いた。

XS で Objective-C をつかい、直接 Growl.framework を使う Growl モジュールだ。
Perl から Growl をちゃんと使おう – JPerl advent calendar 2010 hacker Track

最近の64bitなMacでも，「PerlでGrowl」ができてしまうモジュールです．（まぁ以前試して以来，Mac::Growlに触っていなかったため，64bitマシンへのインストールできない（難しい？）ことも知りませんでしたが＞＜）

サンプルのコードを見るに，かなりシンプルのようで，私でもすぐに触れそうかな，などと思い，実際に試してみました．

• Cocoa::Growl – search.cpan.org
• AnyEvent::Impl::NSRunLoop – search.cpan.org

以下，これらの基本的な使い方についてざっと書き上げてみました．ちなみに，typesterさんの先のエントリと同日にリリースされたみたいですね．

あ，なお，試してみたバージョンについては次のとおりです．

% pmver Cocoa::Growl
0.01
% pmver AnyEvent::Impl::NSRunLoop
0.02
%

※ pmver については次あたりを．

• Neko::Memo

インストール

Cocoa::Growl と AnyEvent::Impl::NSRunLoop をインストールします．

これらをインストールする際に，Module::Install::XSUtil や Module::Install::AssertOS も必要なので，これらを入れておきます．まぁ既に入ってますかね．

なお，デフォルトでは，同梱の「Growl.framework」を利用するようになってますが，自分の環境の同フレームワーク（ライブラリ？）を利用することもできるようです．ここでは省略．

基本

use Cocoa::Growl qw/:all/;

すると，growl_register と growl_notify，他いくつかのサブルーチンが使えるようになります．

Growlに「アプリ」を登録する

Growl通知を利用するには，まず，「アプリを登録する」必要があります．

これには，growl_register を使います．

growl_register(
    app           => 'Cocoa::Growlのさんぷる',
    icon          => '/Users/issm/Dropbox/profile/issm/issm-20101103-160sq.jpg',
    notifications => [qw/いち にい さん しい ごお ろく/],
);

「環境設定」はGrowlの項目内，「アプリケーション」のタブにて，Growlに登録されているアプリケーションの一覧を確認することができます．

次が before．

次が after．

パラメータ notifications で指定したリストリファレンスは，「Growlに登録されたアプリ」の「設定」で表示されるパネルの「通知」タブにある，「通知」という項目に反映されます．

うーん，順序は五十音順（アルファベットならその順？）になるのですね．この図を確認したときに気づきましたｗ

通知する

growl_notify を使います．パラメータ name には，先の growl_register の notifications パラメータであるリストリファレンスの要素のいずれかを指定擦る必要があります．

growl_notify(
    name        => 'いち',
    title       => 'たいとるたいとる',
    description => 'ぐろうるつうちのさんぷるだよ！',
    icon        => '/Users/issm/Dropbox/profile/issm/issm-20101103-160sq.jpg',
    sticky      => 1,
    priority    => 1,
);

すると，冒頭のスクリーンショットのようなGrowl通知が表示されます．（もちろん，スタイルは設定状況によって異なりますよ．）

イベント連動

さらに，

use AnyEvent;
use AnyEvent::Impl::NSRunLoop;

することで，Growl通知に対するクリックや，時間経過に伴う消滅に関するイベントを取得することもできてしまいます．これは便利！

イベントハンドラの設定には，growl_notify サブルーチンの on_click，on_timeout の各パラメータに，コードリファレンスを持たせることで行います．

my $cv = AnyEvent->condvar;
 
growl_notify(
    name        => 'いち',
    title       => 'たいとるたいとる',
    description => 'ぐろうるつうちのさんぷるだよ！',
    icon        => '/Users/issm/Dropbox/profile/issm/issm-20101103-160sq.jpg',
    sticky      => 1,
    priority    => 1,
 
    on_click => sub {
        warn 'クリックされたよ！';
        $cv->send;
    },
    on_timeout => sub {
        warn '自然消滅！';
        $cv->send;
    },
);
 
$cv->recv;

通知をクリックすると，on_click で指定したサブルーチンが実行されます．

「sticky」を解除して，一定時間後に消えるようにしてみます．

my $cv = AnyEvent->condvar;
 
growl_notify(
    name        => 'さん',
    title       => 'たいとるたいとる',
    description => 'ぐろうるつうちのさんぷるだよ！',
    icon        => '/Users/issm/Dropbox/profile/issm/issm-20101103-160sq.jpg',
    sticky      => 0,
    priority    => 3,
 
    on_click => sub {
        warn 'クリックされたよ！';
        $cv->send;
    },
    on_timeout => sub {
        warn '自然消滅！';
        $cv->send;
    },
);
 
$cv->recv;

消滅後，on_error で指定したサブルーチンが実行されます．

詳しくは．．．

CPANのドキュメントをご覧になるのがよいでしょう．

• Cocoa::Growl – search.cpan.org
• AnyEvent::Impl::NSRunLoop – search.cpan.org

また，Perlの猛者な方たちがオモシロイアプリなどサクっと作りそうな予感なので，それに期待してみましょう．

おわりに

以上，Cocoa::Growl と AnyEvent::Impl::NSRunLoop がオモシロそう！というお話でした．

何らかのイベントにひも付けてGrowlで表示！というのはいろいろ応用が効くものなので，私もまずは自分が便利と思えるような何かから初めてみるとします．まぁまずは AnyEvent の基礎からやらんといかんですがね ＞＜

amazonさん

• 

  Apple MacBook Air 1.4GHz Core 2 Duo/11.6″/2G/64G/802.11n/BT/Mini DisplayPort MC505J/A

  posted with amazlet at 10.12.17

  アップル (2010-10-21)
  売り上げランキング: 5496

  Amazon.co.jp で詳細を見る
• 

  Apple MacBook Air 1.86GHz Core 2 Duo/13.3″/2G/128G/802.11n/BT/Mini DisplayPort MC503J/A

  posted with amazlet at 10.12.17

  アップル (2010-10-21)
  売り上げランキング: 10095

  Amazon.co.jp で詳細を見る