A Day in the Life

Shortest Wiki Contest

短く書くWikiのコンテスト。一位はperlの四行222字。
http://caseywest.com/code/scripts/sigwik.txt
http://caseywest.com/cgi-bin/sig/wik/HomePage
http://caseywest.com/cgi-bin/sig/wik/TestExample

#!/usr/bin/perl
use CGI':all';path_info=~/\w+/;$_=`grep -l $& *`.h1($&).escapeHTML$t=param(t)

    
    
    `dd<$&`;open F,">$&";print F$t;s/htt\S+
    ([A-Z]\w+){2,}/a{href,$&},$&/eg;
    
print header,pre"$_<form>",submit,textarea t,$t,9,70

すげーーーーー。grepとかddとか反則技ちっくなことしてるけど(笑。あらためてぺるるは変態だなぁと思った(褒め言葉)。ちなみに二位の
http://nick.cleaton.net/fleawi.txt
とほとんどソースコード変わらないの。きわまってるなぁ。
phpのは9行。
http://jaramir.slack.it/MuWiki/wiki9.phps

記事の一覧 >