Download as PDF, PPTX
Mojolicious+redisでチャットを作った
- 1.
- 2. Mojolicious • Ｐｅｒｌ のＷｅｂApplication Framework • 広大なMojoネーム空間のモジュール群をＷｅｂ アプリで使うようにしたもの
- 3.
- 4. 私の考えるメリット • 開発コミュニティが世界的に活発 （MojoConf2014 inオスロなど。２０１５への 積立金もすでにプールされている。） • ドキュメント豊富、サンプルソースも一杯あふ れている • All in One • 環境構築が楽、cpanm Mojolicious
- 5.
- 6. Mojoliciousでsleepしてみた #!/usr/bin/env perl use Mojolicious::Lite; get'/' => sub { my $self = shift; sleep(10); $self->render('index'); }; get '/hoge' => sub { my $self = shift; $self->render('hoge'); }; app->start;
- 7.
- 8.
- 10.
- 11. 同期なコード package Test::Web::Example; use Mojo::Base'Mojolicious::Controller'; use Time::HiRes qw(sleep); sub welcome { my $self = shift; sleep(0.5); $self->render( message => 'Welcome to the Mojolicious real-time web framework!'); } 1;
- 12. 非同期なコード package Test::Web::Example; use Mojo::Base'Mojolicious::Controller'; use Time::HiRes qw(sleep); sub welcome { my $self = shift; $self->render_later; Mojo::IOLoop->timer(0.5 => sub { $self->render( message => 'Welcome to the Mojolicious real-time web framework!'); }); } 1;
- 13. Apache bench ab –c100–n 1000 http://your_host_name/ サーバ構成 さくらＶＰＳ メモリ １Ｇ ＣＰＵ 仮想２コア nginx1.6+hyponotad 5workers nginx1.6+starman 5workers
- 14. 結果 0 100 200 300 400 500 600 0 0.2 0.40.6 0.8 1 1.2 同期(starman+5workers) 非同期(hyponotad+5worker) 同期（hyponotad+5worker)
- 15.
- 16.
- 17.
- 18. 同期的コード sub mojo4{ my $self= shift; my $ua = LWP::UserAgent->new; my $res = $ua- >get("http://atndfc.dokechin.com"); if ($res->is_success) { $self->render(message => $res->content); } else { die $res->status_line; } }
- 19. 非同期的コード package Test::Web::Example; #use Mojo::UserAgent; submojo{ my $self = shift; $self->ua- >get('http://metacpan.org/search?q=mojo' =>sub{ my ($ua, $tx) = @_; $self->render(message => $tx->res); }); } 1;
- 20.
- 21. ブロッキングＡＰＩしかない場合 Mojo::IOLoop::ForkCall - runblocking functions asynchronously by forking
- 22.
- 23. # callback hellcode sub mojo{ my $self = shift; $self->render_later; $ua->get('http://yahoo.co.jp/' => sub{ my ($ua, $tx) = @_; my $title1 = $tx->res->dom->html->head- >title->text; $ua->get('http://google.com/' => sub{ my ($ua, $tx) = @_; my $title2 = $tx->res->dom->html->head- >title->text; $self->render(msg => $title1 . $title2); }); }); }
- 24. # finish sub mojo2{ my$self = shift; $self->render_later; my $delay = Mojo::IOLoop::Delay->new; $delay->on(finish=>sub{ my $delay = shift; my @titles = map { $_->res->dom- >at('title')->text } @_; $self->render(message => "@titles"); }); $self->ua->get( $_ => $delay->begin ) for@urls; }
- 25. # stepsを利用したコード sub mojo3{ my$self = shift; $self->render_later; my $delay = Mojo::IOLoop::Delay->new; $delay->steps(sub{ my ($delay) = @_; $self->ua->get( "http://www.cpan.org/" => $delay->begin); $self->ua->get( "http://jognavi.com/" => $delay- >begin); }, sub { my ($delay,@args) = @_; my @messages = map {$_->res->dom->at('title')- >text} @args; $self->render(message=> "@messages"); }, ); }
- 26.
- 27. morbo W WebSocket WebSocket WebSocketWebSocket UserAUserB UserC UserD ・すべておなじプロセス配下のため、同じ部屋 の発言の通知は可能。 ・スケーラブルでない RoomA RoomB
- 28. hypnotoad W WebSocket WebSocket WebSocketWebSocket UserAUserB UserC UserD RoomA RoomB Wプロセス間通信の手段が必要
- 29. Redis(部屋、部屋の入居者管理） W WebSocket WebSocket WebSocketWebSocket W RoomARoomB Red is UserA UserB UserC UserD
- 30.
- 31.
- 32. まとめ • 非同期はパフォーマンスがよくなるが、コード は複雑化する。 • Mojoliciousは非同期に動かす仕組み(モジュール、 サーバ）が、備わっている。 •本番環境での運用を視野にするならば、初めか らRedisなど、Kye-Valueストアを使ったほうが よい？
- 33.