7行ＢＢＳ
その昔、WebProg板で開発された物。
#!/usr/bin/perl
%f=map{tr/+/ /;s/%(..)/pack"H2",$1/eg;s/</</g;s/>/>/g;s/"/"/g;$_}
split/[&=]/,$ENV{QUERY_STRING};$f{n}||='名無し';open F,"+<bbs.dat";flock F,2;
@e=<F>;if($f{m}){seek F,0,0;print F @e=("$f{n}:$f{m}<br>\n",@e)[0..99]}
print qq{content-type:text/html\n\n<title>BBS</title><h1>BBS</h1><form
action="bbs.cgi"><p>名前<input name=n value="$f{n}"><br>記事<input name=m
size=50><br><input type=submit></p></form><hr><p>@e</p><hr>};