七行プログラミング

七行プログラミング ..

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

86:nobodyさん
 02/11/27 00:19 
CGI.pm 2.752, perl 5.005_03 build for sun4-solaris Apache 1.3.27 
 
#! perl -w 
use CGI':all';$w='\b(([A-Z][a-z]+){2,})';$f=script_name;$/=();($p)=(path_info|| 
FrontPage)=~/$w/;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}$_. 
=hr.ul((map{li"".localtime((stat)[9]),$_}sort{-M$a<=>-M$b}grep/$w$/,readdir D)[ 
0..9]);s|$w|a{href=>"$f/$1"},$1|eg;put header,start_html$p),h1($p),startform(0 
,"$f/$p"),textarea(z,$m,6,60),br,submit,endform,pre($_),end_html 
 
一覧の表示数制限機能追加。 
truncate は eval で対応できるかな？＞MacPerl

87:nobodyさん
 02/11/27 01:56 
#! perl -w 
use CGI':all';$w='\b(([A-Z][a-z]+){2,})';$/=();($p)=(path_info||FrontPage)=~/$w 
/x;$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 
}$_.=hr.ul((map{li"".localtime((stat)[9]),$_}sort{-M$a<=>-M$b}grep/$w$/,readdir 
D)[0..14]);s|$w|a{href=>$f.$1},$1|eg;put header,start_html($p),h1($p),startform 
(0,$f.$p),textarea(z,$m,6,60),br,submit,endform,pre($_),end_html 
 
-1byte

次ページ