![use strict;
sub psgi_app {
my $env = shift;
return [
200,
[ "Content-Type" => "text/plain" ],
[ "Hello, ", "World!" ]
];
}
# .psgi
&psgi_app;](https://image.slidesharecdn.com/kansaipm20100501-100430193830-phpapp01/75/Kansai-pm-10-Plack-PSGI-29-2048.jpg)
![use strict;
use File::Spec;
sub psgi_app {
my $env = shift;
my $path = File::Spec->catfile( "/path/to/docs", $env->{PATH_INFO} );
if (-f $path) {
my $fh;
if (! open( $fh, '<', $path ) ) {
return [
500, [ "Content-Type" => "text/plain" ], [ "Server Error" ]
];
}
return [ 200, [ "Content-Type" => "text/plain" ], $fh ];
} else {
return [ 404, [ "Content-Type" => "text/plain" ], [ "File not found" ] ];
}
}
# .psgi
&psgi_app;](https://image.slidesharecdn.com/kansaipm20100501-100430193830-phpapp01/75/Kansai-pm-10-Plack-PSGI-30-2048.jpg)
![# myapp.psgi
use strict;
use Plack::Builder;
builder {
enable "Foo";
enable "Bar";
enable "Bar";
sub { [
200,
[ "Content-Type" => "text/plain" ],
[ "Hello World" ]
};
};](https://image.slidesharecdn.com/kansaipm20100501-100430193830-phpapp01/75/Kansai-pm-10-Plack-PSGI-55-2048.jpg)
![use strict;
use AnyEvent;
sub {
my $env = shift;
#
return sub {
my $start_response = shift;
my $writer = $start_response->([
200,
[ "Content-Type" => "text/plain" ]
]);
my $count = 1;
my $w; $w = AE::timer 1, 10, sub {
$writer->write( "Timer $countn" );
if ($count++ > 10) {
undef $w;
}
};
}
}](https://image.slidesharecdn.com/kansaipm20100501-100430193830-phpapp01/75/Kansai-pm-10-Plack-PSGI-71-2048.jpg)
More Related Content
What's hot (20)
Similar to Kansai.pm 10周年記念 Plack/PSGI 入門 (20)
More from lestrrat (20)
Recently uploaded (20)
Kansai.pm 10周年記念 Plack/PSGI 入門
- 20. CGI mod_perl Catalyst FastCGI standalone CGI mod_perl Jifty FastCGI standalone
- 21. Catalyst CGI mod_perl PSGI Adaptor FastCGI standalone Jifty
- 29. use strict; sub psgi_app { my $env = shift; return [ 200, [ "Content-Type" => "text/plain" ], [ "Hello, ", "World!" ] ]; } # .psgi &psgi_app;
- 30. use strict; use File::Spec; sub psgi_app { my $env = shift; my $path = File::Spec->catfile( "/path/to/docs", $env->{PATH_INFO} ); if (-f $path) { my $fh; if (! open( $fh, '<', $path ) ) { return [ 500, [ "Content-Type" => "text/plain" ], [ "Server Error" ] ]; } return [ 200, [ "Content-Type" => "text/plain" ], $fh ]; } else { return [ 404, [ "Content-Type" => "text/plain" ], [ "File not found" ] ]; } } # .psgi &psgi_app;
- 36. > plackup -a myapp.psgi HTTP::Server::PSGI: Accepting connections at http:// 0:5000/
- 38. > plackup -a myapp.psgi -s HANDLER
- 39. > plackup -a myapp.psgi -E ENV
- 40. > plackup -a myapp.psgi -S /path/to/socket
- 41. > plackup -e “sub { ... }” -I/path/to/lib -MModuleName
- 43. # Apache2 <Location /> SetHandler perl-script PerlResponseHandler Plack::Handler::Apache2 PerlSetVar psgi_app /path/to/app.psgi </Location>
- 44. # Run as a standalone daemon plackup -s FCGI --listen /tmp/fcgi.sock --daemonize --nproc 10
- 45. #!/usr/bin/env plackup ... CGI code ...
- 53. # myapp.psgi use strict; use Plack::Middleware::Foo; use Plack::Middleware::Bar; use Plack::Middleware::Baz; my $app = sub { ... }; $app = Plack::Middlewre::Foo->wrap($app); $app = Plack::Middlewre::Bar->wrap($app); $app = Plack::Middlewre::Baz->wrap($app); $app;
- 54. # myapp.psgi use strict; use Plack::Middleware::Foo; use Plack::Middleware::Bar; use Plack::Middleware::Baz; my $app = sub { ... }; $app = Plack::Middlewre::Foo->wrap($app); $app = Plack::Middlewre::Bar->wrap($app); $app = Plack::Middlewre::Baz->wrap($app); $app;
- 55. # myapp.psgi use strict; use Plack::Builder; builder { enable "Foo"; enable "Bar"; enable "Bar"; sub { [ 200, [ "Content-Type" => "text/plain" ], [ "Hello World" ] }; };
- 67. #!/usr/bin/env perl use strict; use warnings; use MyApp; MyApp->setup_engine('PSGI'); my $app = sub { MyApp->run(@_) };
- 71. use strict; use AnyEvent; sub { my $env = shift; # return sub { my $start_response = shift; my $writer = $start_response->([ 200, [ "Content-Type" => "text/plain" ] ]); my $count = 1; my $w; $w = AE::timer 1, 10, sub { $writer->write( "Timer $countn" ); if ($count++ > 10) { undef $w; } }; } }
- 72. Q4M App client client client client
- 73. Event Server Q4M App client client client client
- 75. use strict; use Plack::Request; sub { my $env = shift; my $req = Plack::Request->new( $env ); my $path = $req->path_info; my $param = $req->parma('param'); my $res = $req->new_response( 200 ); return $res->finalize(); };
- 81. accept app listen spawn
- 82. accept app listen spawn
- 83. accept app listen spawn accept app
- 84. accept app listen spawn accept app
- 85. listen spawn accept app
- 86. start_server --port=80 plackup -a myapp.psgi -s Starman
- 89. /var/lib/mycompany/sitename.mycompany.com/MyApp /etc/service/sitename.mycompany.com run ( MyApp/deploy/run config.yaml env/ logs
- 91. AppX lib extlib Catalyst 5.7 AppY lib extlib Catalyst 5.8
- 98. daemontools Server::Starter perl extlib plackup myapp.psgi Framework