PerlでContinuationベースのウェブサーバ 2 実例編

前回はPerlのContinuityモジュールを使って、ブラウザ・サーバ間の往復を一つの関数の中で処理するアプリのHello Worldを紹介したが、実はもっといい実例の宝があった。ソースの中の実例ディレクトリーだ。やはり、題材が深いだけあって、exampleも充実している。読むと勉強になるし、すぐ走らせて遊べるので楽しい。お勧めです。

展開したソースのこんなところにお宝がヒッソリと潜んでいる。

ls Continuity-1.01/eg/ | cat

addtwo.pl

animals.pl

chat-ajax-push.js

chat-ajax-push.pl

chat.pl

cookies.pl

counter.fcgi

counter.pl

fcgi_nocont.fcgi

guess.fcgi

guess-peek.pl

guess.pl

hello.fcgi

hello.pl

jquery.js

leakfinder.pl

merlyn-animals.pl.txt

minimal-serverside.pl

note

old

params.pl

post-redirect.pl

query_session.pl

README

telnet-terminal.pl

以下、実例プログラムの簡単な紹介：

サブタイトルのリンクがうまく飛ばないので、ソースはここで参照：
http://cpansearch.perl.org/src/AWWAIID/Continuity-1.01/eg/