Plack
Transferir como KEY, PDF0 gostou2,097 visualizações
O documento descreve a evolução dos frameworks web em Perl e a introdução do Plack e PSGI. Resume-se o documento da seguinte forma: - PSGI foi introduzido como uma interface comum para aplicações web em Perl, inspirada pelo WSGI do Python e Rack do Ruby. Isto permitiu a criação de middleware e servidores compartilhados. - O Plack implementa o PSGI e fornece middleware, handlers de servidores e ferramentas como o plackup. Muitos frameworks web em Perl como Catalyst, Dancer e Mojolicious adotaram o
![# WSGI
def hello(environ, start_response):
start_response(“200 OK”, [
(‘Content-Type’, ‘text/plain’)
])
return [“Hello World”]](https://image.slidesharecdn.com/plack-100607103149-phpapp02/85/Plack-46-320.jpg)
![# Rack
class Hello
def call(env)
return [
200,
{ “Content-Type” => ”text/plain” },
[“Hello World”]
]
end
end](https://image.slidesharecdn.com/plack-100607103149-phpapp02/85/Plack-47-320.jpg)
![# PSGI
my $app = sub {
my $env = shift;
return [
200,
[ ‘Content-Type’, ‘text/plain’ ],
[ ‘Hello World’ ],
];
};](https://image.slidesharecdn.com/plack-100607103149-phpapp02/85/Plack-48-320.jpg)
![my $app = sub {
my $env = shift;
return [ $status, $header, $body ];
};](https://image.slidesharecdn.com/plack-100607103149-phpapp02/85/Plack-50-320.jpg)
![my $app = sub {
my $env = shift;
return [ $status, $header, $body ];
};](https://image.slidesharecdn.com/plack-100607103149-phpapp02/85/Plack-52-320.jpg)
![my $app = sub {
my $env = shift;
return [ $status, $header, $body ];
};](https://image.slidesharecdn.com/plack-100607103149-phpapp02/85/Plack-54-320.jpg)
![my $app = sub {
my $env = shift;
return sub {
my $respond = shift;
# Aqui podem delegar num event-loop estilo
# POE ou AnyEvent para implementar cenas
# tipo Comet
$respond->([ $status, $header, $body ]);
};
};](https://image.slidesharecdn.com/plack-100607103149-phpapp02/85/Plack-59-320.jpg)
![my $app = sub {
my $env = shift;
return sub {
my $respond = shift;
my $w = $respond->([ $status, $header ]);
$w->write($body);
$w->write($body);
...
$w->close;
};
};](https://image.slidesharecdn.com/plack-100607103149-phpapp02/85/Plack-60-320.jpg)
![# Web::Simple
use Web::Simple ‘MyApp’;
package MyApp;
dispatch {
sub(GET) {
[ 200, [...], [ ‘Hello’ ] ];
}
};
my $app = MyApp->as_psgi;
# $app é uma aplicação PSGI!](https://image.slidesharecdn.com/plack-100607103149-phpapp02/85/Plack-71-320.jpg)
![my $app = sub {
my $env = shift;
return [ $status, $header, $body ];
};
my $mw = sub {
my $env = shift;
# do something with $env
my $res = $app->($env);
# do something with $res;
return $res;
};](https://image.slidesharecdn.com/plack-100607103149-phpapp02/85/Plack-81-320.jpg)
![my $app = sub {
return [ $status, $header, $body ];
};
use Plack::Builder;
builder {
enable “Static”, root => “/htdocs”,
path => qr!^/static/!;
enable “Deflater”; # gzip/deflate
$app;
}](https://image.slidesharecdn.com/plack-100607103149-phpapp02/85/Plack-84-320.jpg)
![use Plack::Test;
use HTTP::Request::Common;
my $app = sub {
my $env = shift;
return [ $status, $header, $body ];
};
test_psgi app => $app, client => sub {
my $cb = shift;
my $req = GET “http://localhost/foo”;
my $res = $cb->($req);
# test $res;
};](https://image.slidesharecdn.com/plack-100607103149-phpapp02/85/Plack-92-320.jpg)
![use Plack::Test;
use HTTP::Request::Common;
$Plack::Test::Impl = “Server”;
my $app = sub {
my $env = shift;
return [ $status, $header, $body ];
};
test_psgi app => $app, client => sub {
my $cb = shift;
my $req = GET “http://localhost/foo”;
my $res = $cb->($req);
# test $res;
};](https://image.slidesharecdn.com/plack-100607103149-phpapp02/85/Plack-93-320.jpg)
Plack
- 2. Plack O canivete suiço das Frameworks Web Original de Tatsuhiko Miyagawa Assassinado por Pedro Melo
- 4. Frameworks Web em Perl
- 5. Mil e uma maneiras de escrever aplicações Web
- 6. Maypole Mason Mojo Sledge Catalyst Spoon PageKit AxKit Egg Gantry Continuity Solstice Mojolicious Tripletail Konstrukt Reaction Jifty Cyclone3 WebGUI OpenInteract Squatting Dancer CGI::Application Nanoa Ark Angelos Noe Schenker Tatsumaki Amon Apache2::WebApp Web::Simple Apache2::REST SweetPea Hydrant Titanium
- 7. Algumas maneiras de correr aplicações Web em Perl
- 10. CGI.pm
- 11. Corre “fixe” em: CGI, FastCGI, mod_perl (1 & 2) Standalone (usando HTTP::Server::Simple)
- 12. CGI.pm = MDC (máximo denominador comum) Módulo Perl incluído de base
- 13. 8803 linhas de código Versão inicial: Novembro 1995
- 14. :-(
- 15. CGI.PM tem de ir com os porcos!!
- 17. Catalyst A framework web em Perl que todas as vedetas usam (brinco de brilhantes estilo Ronaldo ou Quaresma não incluído)
- 18. Catalyst::Engine::* Adaptadores para servidores: Apache, FastCGI, Standalone e Prefork
- 19. CGI.pm Jifty, CGI::Application, Spoon baseadas em mod_perl Mason, Sledge, PageKit, WebGUI Adaptadores Catalyst, Maypole, Squatting
- 20. Problemas
- 21. Duplicação de esforços Difícil de comparar performance
- 22. Que tal partilhar esse código?
- 24. HTTP::Engine Yappo, tokuhirom, nothingmuch e companhia
- 25. Vitória! “Rouba-se” o código do Catalyst e cria-se uma biblioteca à parte. Tá feito! Siga pa bingo!
- 26. Err... talvez não Um pedaço de código disforme, sem separação de interface e implementação: “À cão”
- 27. Até que em Setembro 2009...
- 29. Episode IV: A new hope
- 30. Que tal utilizar umas ideias fines do Python e Ruby?
- 31. Posto de outra forma Vamos importar ideias estruturantes que provaram ser populares noutros contextos dinâmicos, criando sinergias que nos permitem agilizar a nossa entrada no mercado global com uma proposta de valor vencedora
- 32. “...A gente vai gamar a cena toda...”
- 33. WSGI (Python) Rack (Ruby)
- 34. WSGI (PEP-333)
- 36. WSGI • Django • mod_wsgi • Bottle • Paste • CherryPy • gunicorn • Tornado • uWSGI • Pylons • wsgiref • Flask • Google AppEngine
- 37. Django Bottle Flask Tornado WSGI middleware WSGI wsgi handlers Apache lighttpd nginx mod_wsgi GAE
- 38. Rack
- 40. Rack • Rails • Unicorn • Merb • Thin • Sinatra • Mongrel • Camping • Rainbows! • Ramaze • Phusion Passenger • etc. • Heroku
- 41. Rails Merb Sinatra Ramaze Rack middleware Rack Rack handlers Apache lighttpd Thin Unicorn Mongrel
- 42. A prata da casa...
- 43. PSGI Perl Web Server Gateway Interface
- 44. Interface++
- 45. Atenção! o próximo programa inclui cenas de Perl explicito, só recomendadas a programadores de Frameworks Perl, ou pessoas à procura de novas experiências
- 46. # WSGI def hello(environ, start_response): start_response(“200 OK”, [ (‘Content-Type’, ‘text/plain’) ]) return [“Hello World”]
- 47. # Rack class Hello def call(env) return [ 200, { “Content-Type” => ”text/plain” }, [“Hello World”] ] end end
- 48. # PSGI my $app = sub { my $env = shift; return [ 200, [ ‘Content-Type’, ‘text/plain’ ], [ ‘Hello World’ ], ]; };
- 49. Aplicação PSGI code reference $app = sub {...};
- 50. my $app = sub { my $env = shift; return [ $status, $header, $body ]; };
- 51. hashref com o ambiente $env:Variáveis ao estilo CGI + psgi.input, psgi.errors, etc.
- 52. my $app = sub { my $env = shift; return [ $status, $header, $body ]; };
- 53. Resposta array ref com três elementos código HTTP, headers (array ref) e corpo da resposta (IO-like ou array ref)
- 54. my $app = sub { my $env = shift; return [ $status, $header, $body ]; };
- 55. $body IO::Handle-like getline() e close()
- 56. IO::Handle::Util Ajuda a converter uma coderef em algo parecido com um IO::Handle
- 57. E ainda...
- 58. Interface para streaming e/ou “non- blocking servers”
- 59. my $app = sub { my $env = shift; return sub { my $respond = shift; # Aqui podem delegar num event-loop estilo # POE ou AnyEvent para implementar cenas # tipo Comet $respond->([ $status, $header, $body ]); }; };
- 60. my $app = sub { my $env = shift; return sub { my $respond = shift; my $w = $respond->([ $status, $header ]); $w->write($body); $w->write($body); ... $w->close; }; };
- 61. Interface de Streaming Inicialmente desenhado para servidores “non-blocking” Já disponível para a maioria dos servidores incluindo CGI e Apache
- 62. Catalyst CGI::App Jifty Tatsumaki Plack::Middleware PSGI Plack::Handler::* (CGI, FCGI, Apache) Apache lighttpd HTTP::Server::PSGI mod_psgi Perlbal
- 63. E como estamos em termos de adopção do PSGI?
- 64. Maypole Mason Mojo Sledge Catalyst Spoon PageKit AxKit Egg Gantry Continuity Solstice Mojolicious Tripletail Konstrukt Reaction Jifty Cyclone3 WebGUI OpenInteract Squatting Dancer CGI::Application Nanoa Ark Angelos Noe Schenker Tatsumaki Amon Apache2::WebApp Web::Simple Apache2::REST SweetPea Hydrant Titanium
- 65. Maypole Mason Mojo Sledge Catalyst Spoon PageKit AxKit Egg Gantry Continuity Solstice Mojolicious Tripletail Konstrukt Reaction Jifty Cyclone3 WebGUI OpenInteract Squatting Dancer CGI::Application Nanoa Ark Angelos Noe Schenker Tatsumaki Amon Apache2::WebApp Web::Simple Apache2::REST SweetPea Hydrant Titanium
- 67. # Catalyst use MyApp; MyApp->setup_engine(‘PSGI’); my $app = sub { MyApp->run(@_) }; # $app é uma aplicação PSGI!
- 68. # Jifty use MyPonyApp; my $app = MyPonyApp->psgi_app; # $app é uma aplicação PSGI!
- 69. # Dancer use Dancer; get ‘/’ => sub { “Hello World”; }; use Dancer::Config ‘setting’; setting apphandler => ‘PSGI’; my $app = sub { my $r = Dancer::Request->new(shift); Dancer->dance($r); }; # $app é uma aplicação PSGI!
- 70. # Mojolicious::Lite use Mojolicious::Lite; get ‘/:name’ => sub { my $self = shift; $self->render_text(‘Hello!’); }; shagadelic; # devolve uma aplicação PSGI
- 71. # Web::Simple use Web::Simple ‘MyApp’; package MyApp; dispatch { sub(GET) { [ 200, [...], [ ‘Hello’ ] ]; } }; my $app = MyApp->as_psgi; # $app é uma aplicação PSGI!
- 72. Então o que isto do Plack?
- 74. HTTP::Server::PSGI Implementação de referência de um servidor Web com suporte para PSGI, incluído de base com o Plack
- 75. Plack::Handler Liga aplicações PSGI a servidores Web via CGI, FastCGI, Apache, SCGI
- 76. Plackup Corre uma aplicação PSGI directamente a partir da linha de comandos
- 78. Bife+Salsicha+Linguiça +Fiambre
- 79. Middleware dos amantes da francesinha
- 81. my $app = sub { my $env = shift; return [ $status, $header, $body ]; }; my $mw = sub { my $env = shift; # do something with $env my $res = $app->($env); # do something with $res; return $res; };
- 82. Middleware Debug, Session, Logger, Runtime, Static, AccessLog, ConditionalGET, ErrorDocument, StackTrace, Auth::Basic, Auth::Digest, ReverseProxy, Refresh etc. (“Importado” via Rack & Paste)
- 83. Plack::Middleware framework extensível e reutilizável para criar Middleware Plack::Builder DSL para criar .psgi
- 84. my $app = sub { return [ $status, $header, $body ]; }; use Plack::Builder; builder { enable “Static”, root => “/htdocs”, path => qr!^/static/!; enable “Deflater”; # gzip/deflate $app; }
- 85. Compatível com plackup plackup -e ‘enable “Foo”;’ app.psgi
- 86. Plack::App::URLMap Multiplex de várias aplicações Integrado com a DSL do Builder (“Importado” do Rack)
- 87. use CatApp; use CGIApp; my $c1 = sub { CatApp->run }; my $c2 = sub { CGIApp->run_psgi }; use Plack::Builder; builder { mount “/cat” => $c1; mount “/cgi-app” => builder { enable “StackTrace”; $c2; }; }
- 88. CGI::PSGI Migração fácil para aplicações CGI.pm
- 89. CGI::Emulate::PSGI CGI::Compile A maneira mais fácil para migrar aplicações CGI.pm (tipo Registry do mod_perl)
- 90. Plack::Request semelhante ao libapreq (Apache::Request) APIs para developers de Middleware
- 91. Plack::Test Interface para escrever testes para apps PSGI suporta “mock” HTTP e “live” HTTP
- 92. use Plack::Test; use HTTP::Request::Common; my $app = sub { my $env = shift; return [ $status, $header, $body ]; }; test_psgi app => $app, client => sub { my $cb = shift; my $req = GET “http://localhost/foo”; my $res = $cb->($req); # test $res; };
- 93. use Plack::Test; use HTTP::Request::Common; $Plack::Test::Impl = “Server”; my $app = sub { my $env = shift; return [ $status, $header, $body ]; }; test_psgi app => $app, client => sub { my $cb = shift; my $req = GET “http://localhost/foo”; my $res = $cb->($req); # test $res; };
- 95. Starman Servidor HTTP “Preforking” para UNIX (estilo Unicorn.rb) HTTP/1.1 chunk + keep-alives / “Estupidamente rápido”
- 96. Twiggy Servidor Web “non-blocking” (estilo Thin.rb) utiliza a framework AnyEvent
- 97. Corona Baseado no Coro.pm, utiliza co-rotinas para cada pedido
- 98. HTTP::Server::Simple::PSGI Servidor com o mínimo de dependências (apenas HTTP::Server::Simple) O melhor para correr aplicações sem outro servidor
- 99. nginx embedded perl http://github.com/yappo/nginx-psgi-patchs
- 104. Catalyst CGI::App Jifty Tatsumaki Plack::Middleware PSGI Plack::Handler::* (CGI, FCGI, Apache) Apache lighttpd HTTP::Server::PSGI mod_psgi Perlbal Starman Twiggy uWSGI Corona evpsgi
- 105. Podem começar a brincar com a coisa...
- 106. > cpanm Plack > cpanm Task::Plack
- 107. Cloud? (Heroku, GAE)
- 110. Corre numa “sandbox” do Dan Kogai
- 111. (.... ele confia muito na sua sandbox ....)
- 112. Desilusões para script kiddies system(“rm -fr /”); while (1) { }
- 113. Resumo • PSGI é o interface, Plack é uma implementação • Temos vários servidores PSGI, muito bons e bem rápidos • Temos adaptadores e ferramentas para a maioria das frameworks Web • Pronto a usar!
- 114. Processo • Partilhar é importante • Utilizar as ideias das outras comunidades é um bom inicio • Integrar algo com utilidade comprovada é excelente
- 115. Dúvidas?
- 116. Obrigado! Pedro Melo {mailto,xmpp}:melo@simplicidade.org http://github.com/miyagawa/Plack http://plackperl.org/ http://blog.plackperl.org/ irc://irc.perl.org/#plack