Nano Wiki

A tiny Wiki implementation written in pure Perl by DrakeWilson? for the ShortestWikiContest. Source follows:

 #!/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,}/v$&/ge;print
 header,h1($x),pre($_,map{"\n".v$_}grep{open
 _;grep/$x/,<_>}<*>),start_form,textarea(t),hidden(x,$x),submit,end_form;sub
 v{a{href,url."?x=@_"},@_}

• Original version of 2004-09-02: 305 characters.
• Second version of 2006-04-06: 303 characters (-2).
• Third version of 2006-04-06: 295 chars (-8).