七行プログラミング (452レス)
上
下
前
次
1-
新
91
: 02/11/27 20:42 ID:???
AA×
>>-
[
240
|
320
|
480
|600|
100%
|
JPG
|
べ
|
レス栞
|
レス消
]
91: [sage] 02/11/27 20:42 ID:??? 7wiki.cgi 、一旦まとめ。(w #! perl use CGI':all';$w='\b(([A-Z][a-z]+){2,})';($p)=(path_info||FrontPage)=~/$w/;$/=( );$f=script_name."/";opendir D,".";if(open F,($m=param z)?">$p":$p){eval{flock F,2};$_=CGI::escapeHTML($m||=<F>);eval{truncate F,0};seek F,0,0;print F$m;close F}$_=pre($_).hr.ul map{li"".localtime((stat)[9]),$_}sort{-M$a<=>-M$b}grep/$w$/, readdir D;s|$w|(!-f$1&&$1).a{href,$f.$1},-f$1?$1:"?"|eg;put header,start_html( $p),h1($p),startform(0,$f.$p),textarea(z,$m,6,60),br,submit,endform,$_,end_html ・bare word が存在するので perl -w は不可。 ・古い CGI.pm は escapeHTML を輸出しないので括弧が必要。 http://medaka.5ch.net/test/read.cgi/php/1036141603/91
一旦まとめ が存在するので は不可 古い は を輸出しないので括弧が必要
上
下
前
次
1-
新
書
関
写
板
覧
索
設
栞
歴
あと 361 レスあります
スレ情報
赤レス抽出
画像レス抽出
歴の未読スレ
AAサムネイル
ぬこの手
ぬこTOP
0.036s