七行プログラミング

七行プログラミング ..

■コピペモード
□スレを通常表示
□オプションモード
□このｽﾚｯﾄﾞのURL
■項目テキスト

90:nobodyさん
 02/11/27 09:55 
>>89 
Warning: fopen() expects at least 2 parameters, 1 given in ...

91:nobodyさん
 02/11/27 20:42 
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 を輸出しないので括弧が必要。

92:nobodyさん
 02/11/28 03:13 
use CGI':all';$w='\b(([A-Z][a-z]+){2,})';$f=script_name."/";opendir D,".";$/=() 
;($p)=(path_info||FrontPage)=~/$w/;if(open F,($m=param z)?">$p":$p){eval{flock 
F,2};$_=submit.endform.hr.pre CGI::escapeHTML($m||=<F>);eval{truncate F,0};seek 
F,0,0;print F$m;close F}$_=br.$_.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),$_,end_html 
 
 
-w は >>86 の環境では付けないとＣＧＩとして動かなかったんだけど・・ 
どうしてだろう？z maybe crash って warning 出すのはわかっていたけど 
ちゃんと動いていたような気がする。（エラーログ今度ちゃんと見て来よう。 
 
 
TextRule に Pod::Htmlを使おうとしたが、 
pod2html　はファイルを対象としているため実装を断念。 
残り一行じゃ TextRuleは辛いかな・・ＵＲＬのリンクくらいなら追加出来そう・・？

次ページ