Download as KEY, PPTX
![usese strict; client::UNIX;use Pod::Util::load_psgi/HellQuote($uri = ( server->[0], @args) = $conn = +{ }; [ 'AnyEventations: ", ($handler); ); } my $urluse Testings;exit;eval "requestings;use Getopts{help}; $socket', workers = IO::Server (@back::Loader->load($handler);](/image.pl?url=https%3a%2f%2fimage.slidesharecdn.com%2fperlcutup-111126193645-phpapp01%2f75%2fPerl-32-2048.jpg&f=jpg&w=240)
![use FCGI::Client;use warnings;use IO::Socket::UNIX;use autodie;use Pod::Usage;use warnings;my $module = Plack::Util::load_psgi($opts{app});my @try = File::Temp::tmpnam();GetOptions( [ 'Starman', ' (workers=10)', workers => 10 ], [ 'Starman', ' (workers=10)', max_workers => sub { eval { Plack::Loader->load($handler->[0];my $fname ) = Plack::Loader->load($handler->[0]) }; kill 9, $pid; print "-- server: $server_class ", ($how || ''), "n";](/image.pl?url=https%3a%2f%2fimage.slidesharecdn.com%2fperlcutup-111126193645-phpapp01%2f75%2fPerl-37-2048.jpg&f=jpg&w=240)
![[ 'Starman', ' (workers=10)', workers => 10 ],[ 'Starman', ' (workers=10)', max_workers => sub {eval { Plack::Loader->load($handler->[0]; さっきより自然](/image.pl?url=https%3a%2f%2fimage.slidesharecdn.com%2fperlcutup-111126193645-phpapp01%2f75%2fPerl-38-2048.jpg&f=jpg&w=240)
![[ 'Starman', ' (workers=10)', workers => 10 ],[ 'Starman', ' (workers=10)', max_workers => sub {eval { Plack::Loader->load($handler->[0]; さっきより自然 実行できない](/image.pl?url=https%3a%2f%2fimage.slidesharecdn.com%2fperlcutup-111126193645-phpapp01%2f75%2fPerl-39-2048.jpg&f=jpg&w=240)
Recommended
More Related Content
What's hot
Viewers also liked
Similar to Perlで伝統芸能
Perlで伝統芸能
- 1.
- 4.
- 5.
- 6.
- 7.
- 9.
- 10.
- 12.
- 15.
- 16.
- 17.新聞を無作為に切り刻んで くっつけると 詩になる
- 28.Perlを使って Perlのソースコードをカットアップ
- 29.初級編かんたん中級編 ちょっとまし上級編 むりやり
- 30.
- 31.
- 32.usese strict; client::UNIX;use Pod::Util::load_psgi/HellQuote($uri = ( server->[0], @args) = $conn = +{ }; [ 'AnyEventations: ", ($handler); ); } my $urluse Testings;exit;eval "requestings;use Getopts{help}; $socket', workers = IO::Server (@back::Loader->load($handler);
- 33.
- 34.
- 35.PPIを使うParse, 構文解析してくれるAnalyze CPANモジュールand 静的コード解析Manipulate Perl(without perl)
- 36.
- 37.use FCGI::Client;use warnings;useIO::Socket::UNIX;use autodie;use Pod::Usage;use warnings;my $module = Plack::Util::load_psgi($opts{app});my @try = File::Temp::tmpnam();GetOptions( [ 'Starman', ' (workers=10)', workers => 10 ], [ 'Starman', ' (workers=10)', max_workers => sub { eval { Plack::Loader->load($handler->[0];my $fname ) = Plack::Loader->load($handler->[0]) }; kill 9, $pid; print "-- server: $server_class ", ($how || ''), "n";
- 38.[ 'Starman', '(workers=10)', workers => 10 ],[ 'Starman', ' (workers=10)', max_workers => sub {eval { Plack::Loader->load($handler->[0]; さっきより自然
- 39.[ 'Starman', '(workers=10)', workers => 10 ],[ 'Starman', ' (workers=10)', max_workers => sub {eval { Plack::Loader->load($handler->[0]; さっきより自然 実行できない
- 40.
- 41.カットアップ上級編•Perlのソースコードを入力する• PPIでPerlのソースコードを字句解析して トークンごとに切る•Perlのソースコードをつなぎあわせる•文法エラーがないとき出力 perl -wc• いいのが出るまで無限ループ
- 42.use strict;use strict;usestrict;use HTTP::Message::PSGI;1;__END__=head1 NAMEPlack::Handler::Standalone - adapter for HTTP::Server::PSGI=head1 SYNOPSIS % plackup -s Standalone --host 127.0.0.1 --port 9091 --timeout 120=head1 DESCRIPTIONPlack::Handler::Standalone is an adapter for default Plack serverimplementation L<HTTP::Server::PSGI>. This is just an alias forL<Plack::Handler::HTTP::Server::PSGI>.=head1 SEE ALSOL<Plack::Handler::HTTP::Server::PSGI>=cut
- 43.Perlソースコードを カットアップして 実行できるPerlソースコードの 生成に成功
- 44.
- 45.
- 46.
- 47.補足•URL • https://gist.github.com/1290440• 実行方法 • perl cutup_high.pl ~/tmp/Plack/**/**.pm