七行プログラミング

七行プログラミングat PHP

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

100:nobodyさん
 02/11/29 08:04 
rename の仕方: 
変更したいファイルにチェック、textfield に変更後の名前を入れて MV

101:nobodyさん
 02/11/29 09:06 
>>98 
お疲れ様 && ありがとう。色々と勉強になりました。 
 
no strict で bare word 使い始めた当たりから 
短くすることを優先させてました。use strictなしって時点で 
すでに気持ち悪かったｗので「汚くても動けばいいや」って感じだった 
 
ＨＴＭＬもチェックしていなかった位だから、当然拘っていませんでした 
（HTMLは、7行って時点で最初から諦めていたかもしれない 
 
ただ、valid な出力にするとなると、 
CGI.pm の textarea が rows,colsの属性の値をクオートしない。 
br, hr は、p,div,h[1-6] 等の親要素が必要 
等々、新たな課題が出てくるんじゃないかな？

103:nobodyさん
 02/11/29 11:06 
>>101 
ありゃ。本当に全然拘ってなかったのね。w 
なら 3 文字加えてピッタリ 6x79 。 
 
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} 
;eval{truncate F,0};seek F,0,0;print F$m||=<F>;close F}$_=pre(CGI::escapeHTML($ 
m)).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"),p(textarea(z,$m,6,60),br,submit),endform,hr,$_,end_html 
 
・hr はブロック要素なので無問題。 
・form 内の各要素がインライン要素なので p で囲む。 
・textarea の属性値クォートは 7wiki.cgi 側でなく CGI.pm 側の 
　問題だし、最近の CGI.pm なら直ってるので考えない。w 
 
これでかなり valid.

次ページ