Shortest Wiki Contest

wiki

http://c2.com/cgi/wiki?ShortestWikiContest
Pure perl で一番小さなWikiプログラムは Nano Wikiで、中身は

 #!/usr/bin/perl
 use CGI ':all';$$_=param$_ for x,t;$z=($t&&"+>").$x;open z;print z $t
 if$t;$_=escapeHTML($t||join"",<z>);s/([A-Z]\w+){2,}/a{href,url."?x=$&"},$&/ge;print
 header,h1($x),pre($_,map{"\n".a{href,url."?x=$_"},$_}grep{open
 _;grep/$x/,<_>}<*>),start_form,textarea(t),hidden(x,$x),submit,end_form

うーん、さっぱりわからん（；´Д｀） use CGI とか反則じゃないのか？だったら use wiki とか…ってこれは２行で Kwiki があるな

#!/usr/bin/perl
use Kwiki;Kwiki->new->load_hub->process

そうそう、こんなかんじ。他にhttp経由で他のWikiサーバを利用するとか（；´Д｀）標準モジュールでないとダメですか。
（ネタもと：川o・-・）＜2nd life - Shortest Wiki Contest）