【Perl】掲示板を使ろう! at PHP
【Perl】掲示板を使ろう! - 暇つぶし2ch33:名無しさん@お腹いっぱい。
01/06/07 16:28
いつぞやの七行BBS
#!/usr/local/bin/perl
%f=map{tr/+/ /;s/%(..)/pack("H2",$1)/eg;s/</&</;s/>/&>/;$_}split/[&=]/,
$ENV{QUERY_STRING};$f{n}||="名無し";open F,"+<bbs.dat";flock F,2;$e=
"$f{n} &>$f{m}<BR>\n"if($f{m});@e=($e,<F>)[0..20];seek F,0,0;print F @e;
print"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>";
__END__
>>32
シンプルだぞ(笑)


次ページ
続きを表示
1を表示
最新レス表示
レスジャンプ
類似スレ一覧
スレッドの検索
話題のニュース
おまかせリスト
オプション
しおりを挟む
スレッドに書込
スレッドの一覧
暇つぶし2ch