七行プログラミング

七行プログラミング ..

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

77:nobodyさん
 02/11/25 06:28 
余った行で僅かばかり実用的にしてみる。 
 
#!/usr/local/bin/perl -w 
use CGI qw(:all escapeHTML);use DB_File;$j=$ENV{QUERY_STRING}||'FrontPage';($f) 
=$0=~m|([^/]+)(\.cgi)$|;open(L,'+<&='.($d=tie%D,'DB_File',$f,O_CREAT|O_RDWR or 
die)->fd)||die;eval{flock L,2};$_=escapeHTML($m=$D{$j}=param('m')||$D{$j});$d-> 
sync;$d=untie%D;s/\b(([A-Z][a-z]+){2,})/a{href=>"$f.cgi?$1"},$1/ge;s/\x0d\x0a| 
\x0d|\x0a/<br>/gx;put header,title("$f - $j"),startform('post',"$f.cgi?$j"), 
submit,b($j),br,textarea('m',$m,6,60),endform,hr,$_ 
 
陽に輸入してやらないと上のタイミングで escapeHTML 使えなかったよ。 
(FreeBSD 4.7R, Perl 5.005_03, CGI.pm 2.89)

78:nobodyさん
 02/11/25 23:38 
#! perl 
use CGI':all';$w='\b(([A-Z][a-z]+){2,})';($p)=($ENV{QUERY_STRING}||'FrontPage') 
=~/$w/;$f='7wiki.cgi';$o=-f$p?'<':'>';open F,"+$o$p"or die;eval{flock F,2};read 
F,$m,-s$p;$_=escapeHTML($m=param('m')||$m);seek F,0,0;print F $m;close F;$_.=hr 
.ul map{li"".localtime time-86400*-M," $_"}sort{-M$a<=>-M$b}grep{/^$w$/}glob"*" 
;s/$w/a{href=>"$f?$1"},$1/ge;put header,start_html($p),h1($p),startform('post', 
"$f?$p"),textarea('m',$m,6,60),br,submit,endform,hr,pre($_),end_html 
 
一覧を付けてみた・・・（残り：１行と１０字 
 
:all tag で全部輸入できなかった？:html2 とかでも無理かな？

次ページ