七行プログラミング (452ﾚｽ)

七行プログラミング http://medaka.5ch.net/test/read.cgi/php/1036141603/

上下前次1-新
通常表示 512ﾊﾞｲﾄ分割 ﾚｽ栞
抽出解除 ﾚｽ栞

---

92: nobodyさん [sage] 02/11/28 03:13 ID:??? 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は辛いかな・・ＵＲＬのリンクくらいなら追加出来そう・・？ http://medaka.5ch.net/test/read.cgi/php/1036141603/92

93: nobodyさん [sage] 02/11/28 03:23 ID:??? あっ バグ・・・今気付いた。 open が失敗した時困るかな >>92 http://medaka.5ch.net/test/read.cgi/php/1036141603/93

96: nobodyさん [sage] 02/11/28 06:10 ID:??? >>92 成る程、そういう環境もありますか。 warning 吐きまくるのはヤだなぁと思っただけなんで、 shebang line は適宜変更でいいですかのぅ。 つか valid な HTML にはあまりこだわってませんか。 URL リンクはこうかな…。 s|(http://[\w!#-;=?-@~]+)|a{href,$1},$1|eg; >>93 困りました。:) http://medaka.5ch.net/test/read.cgi/php/1036141603/96

---

ﾒﾓ帳

(0/65535文字)

---

上下前次1-新書関写板覧索設栞歴

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ ｱﾎﾞﾝOFF

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.017s