七行プログラミング

七行プログラミングat PHP

七行プログラミング - 暇つぶし2ch■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

400:nobodyさん
 06/02/28 10:19:55 5vE9CKm+
#!/usr/bin/perl  
if($ENV{'REQUEST_METHOD'}eq'POST'){read(STDIN,$b,$ENV{'CONTENT_LENGTH'});  
foreach(split(/&/,$b)){($c,$d)=split(/=/,$_);$d=~tr/+/ /;  
$d=~s/%([a-f\d]{2})/pack('H2',$1)/egi;$form{$c}=$d}open(F,'>>z.txt');  
print F "$form{y}\n";close F}print"Content-type:text/html\n\n<html>  
<form action=x.cgi method=post><input type=text name=y><input type=submit>  
</form><br><br>";open(F,'z.txt');while(<F>){print "$_<br>\n"}print'</html>';

401:nobodyさん
 06/03/10 16:20:32 OL3a1OF8
在庫から 7wikimini ドゾ。 
YukiWikiMini の７行版みたいな感じです。 
実行するにはWという名前のフォルダが必要です。 
 
use CGI":all";charset$c=Shift_JIS;*i=*param;$f=FrontPage;$i=Index;$u=Update;$F= 
i(P)||$f;sub e{a{href,"?E=1&P=".pop},@_}sub l($){a{href,"?P=@_"},@_}chdir W;$E= 
i E;$U=$F eq$u;$I=$F eq$i;$,=$/;if($_=i T){open F,">$F";print F$_}$H=$I+$U;$t=$ 
H?join$/,map{localtime((stat)[9]).$_}sort{$U&&-M$a<=>-M$b}<*>:($/=!open F)||$E? 
<F>:escapeHTML<F>;$E||$t=~s/([A-Z][a-z]+){2,}/-f$&?l$&:$&.e"?",$&/eg;put header 
,start_html(-title=>$F,lang,ja,encoding,$c),l$f,$H?():e(Edit,$F),l$i,l$u,h1($F) 
,$E?startform.hidden(P).textarea(T,$t,20,80).submit.endform:pre($t),$P,end_html 
 
ページ削除機能が実装されてないので、もうちょっと改良が必要っす。

次ページ