yoshizu blog

すっかりご無沙汰してしまいました。
書く習慣がなくなると駄目ですね。

というわけで、Data::AMF 0.03 がリリースされました。
http://search.cpan.org/dist/Data-AMF/

このバージョンから AMF3 がサポートされました。

あと、Data::AMF::Remoting というのが追加されていて、
NetConnection を使った Flash Remoting と、Flex の RemoteObject
を使った Flex RPC が簡単に出来るようになりました。

Plack でゲートウェイを実装するとこんな感じです。

use Data::AMF::Remoting;
use Plack::Request;
use UNIVERSAL::require;

sub
{
    my $env = shift;
    my $req = Plack::Request->new($env);
    my $res = $req->new_response(200);
	
    if ($req->path =~ /\/amf\/gateway$/)
    {
        my $remoting = Data::AMF::Remoting->new(
            source => $req->raw_body,
            message_did_process => sub
            {
                my $message = shift;
                my ($class_name, $method) = split '\.', $message->target_uri;
                $class_name->require;
                my $controller = $class_name->new;
                return $controller->$method($message->value);
            }
        );
        $remoting->run;
		
        $res->content_type('application/x-amf');
        $res->body($remoting->data);
    }
	
    return $res->finalize;
};

source に POSTデータを渡して、message_did_process というハンドラで、
メッセージ毎に処理しています。ヘッダー用には別途 header_did_process という
ハンドラが用意されています。

$message->target_uri に、Controller.method という形式の文字列が渡ってくるので、
これを使ってディスパッチします。

$message->value は Perl オブジェクトにデシリアライズされた引数です。

コントローラクラスの方は MooseX::Declare を使うと良い感じに書けます。

use MooseX::Declare;

class HelloController
{
    method echo(Str $text)
    {
        return $text;
    }
}

Flex 側はこんな感じです。

<mx:RemoteObject id="helloService"
    endpoint="http://localhost:5000/amf/gateway"
    destination="perlamf"
    source="HelloController"
    showBusyCursor="true"
    result="trace(event.result)"
    fault="trace(event.fault.faultDetail)"
/>
<mx:Button label="Hello" click="helloService.echo('Hello, world!')" />

destication は特に使われないのですが、空にするとランタイムエラーになるので、
適当に書いておきます。

source がサーバー側のクラス名になります。

これでボタンがクリックされると、HelloController クラスの echo メソッドが
コールされます。

AS3 である音階の周波数の求める式

var midiNumber:int = 0;
var frequency:Number = 440 * Math.pow(2, (midiNumber - 69) / 12);

（参考）MIDI Number と音階の対応表
http://www.phys.unsw.edu.au/jw/notes.htm

ある MIDI Number の周波数をぱっと知りたい時の Perl ワンライナー

% perl -e 'printf "%.03f", 440 * (2 ** ((0 - 69) / 12))'
8.176

Flex や Flash で言うところの「Remoting」を行いたい場合、
サーバー側を Perl で実装しようとすると、どんな手段があるでしょうか。

古くから CPAN に存在するのは、AMF::Perl というモジュールです。
これは、AMFPHP からの移植されたモジュールらしいのですが、
残念ながら 2004 年でメンテナンスが止まってしまっていることで、
なかなか使いにくいという状況でした。

そんななか、先日 Data::AMF という新しいモジュールが CPAN に
登録されている気付いたので、これを試してみることにしました。

そして試してみる中で色々わかったことがあったのでまとめてみようと思います。