kazeburoのブックマーク - はてなブックマーク

PlackをProxyサーバーに使う意義 - とほほのN88-BASIC日記

ircで聞いたときはうまく説明できなかった＆tokuhiromさん、Yappoさん、kazuhoさんに直接教えてもらったのでまとめとくなり。 Proxyサーバーを作ることになった。こんな感じのやつ。で、これの問題として対抗のサーバーの応答速度が遅い場合があってそこにProxyサーバーが引きずられる点がある。つまりクライアントからの毎コネクションが比較的長くなりがちなサーバーをいかに効率よく組むかという課題がある。最初は勘違いして他のサーバーへの問い合わせの間に他のことをして全体の応答速度を速くする、つまり非同期化によるメリットを模索していたんだけど、1回の応答で他サーバーへの問い合わせがたくさんあるようなクローラーみたいなことをする場合はメリットがあるけど、基本的に1回の応答で他サーバーへの問い合わせは1回だし、コンテンツを持ってくる以外にも処理はあるけど、処理時間の多くはこの1回の

kazeburo 2009/11/04

リンク

PSGI/Plackを追っかける準備 - とほほのN88-BASIC日記

今は時間取れないのでポインタだけ。 Blog PSGI - Perl WSGI - bulknews.typepad.com http://d.hatena.ne.jp/tokuhirom/20090904/1252091316 PSGIまとめ - Angelos in Action - angelosグループ Googleグループ: psgi-plack Googleグループ FAQ/SPEC GitHub - miyagawa/psgi-specs: Moved to https://github.com/plack/psgi-specs FAQ PSGI protocol specification リファレンス実装 PSGIRef Plack WAFアダプター Catalyst::Engine::PSGI CGI::Application::PSGI(建設予定地)

kazeburo 2009/09/09

リンク

モダンなCatalystコンポーネントを書くときは - とほほのN88-BASIC日記

Catalystがモダンかどうかは置いておいてCatalystのコンポーネントを書く時のお作法として大昔は ... use base qw(Catalyst::Action); use NEXT; sub execute { my $self = shift; $self->NEXT::execute( @_ ); ... ちょっと前は ... use base qw(Catalyst::Action); use Class::C3; sub execute { my $self = shift; $self->next::method( @_ ); ... モダンなのは ... use base qw(Catalyst::Action); use MRO::Compat; sub execute { my $self = shift; $self->next::method( @_ )

kazeburo 2009/02/19

MRO::Compat

リンク

PerlのWAFのベンチ大会 - とほほのN88-BASIC日記

仕事の都合上、素のCGIとCGI::ApplicationとCatalystと今話題のMojoでmod_perlなどを使わない素のcgiでベンチとった。結論から言うとCGI下では - Requests per second: バージョン素のCGI 60.54 [#/sec] (mean) - CGI.pm 19.56 [#/sec] (mean) 3.42 CGI::Application 16.20 [#/sec] (mean) 4.11 Mojo 6.40 [#/sec] (mean) 0.8009 Catalyst 3.29 [#/sec] (mean) 5.7015 って感じです。見るとわかるとおりモジュールを使い始めた途端にパフォーマンスが劣化します。 Devel::Profilerでプロファイリングしてみると Total Elapsed Time = 0.020035 S

kazeburo 2008/11/10

perl
waf

リンク

Class::Accessor::Fast::XSのベンチを取ってみた - とほほのN88-BASIC日記

Class-Accessor-Fast-XS-0.04 - XS replacement for Class::Accessor::Fast - metacpan.org Mooseブームも一段落したところでこんなん出てたからベンチ取ってみた。 package ClassAccessor; use strict; use warnings; use base qw/Class::Accessor/; __PACKAGE__->mk_accessors(qw/foo bar/); package ClassAccessorFast; use strict; use warnings; use base qw/Class::Accessor::Fast/; __PACKAGE__->mk_accessors(qw/foo bar/); package ClassAccessorFastXS;