七行プログラミング (452ﾚｽ)
上下前次1-新
抽出解除 ﾚｽ栞

---

92(2): 02/11/28 03:13 ID:??? AAS
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を使おうとしたが、
省2

---

93(1): 02/11/28 03:23 ID:??? AAS
あっ バグ・・・今気付いた。
open が失敗した時困るかな >>92

---

96: 02/11/28 06:10 ID:??? AAS
>>92
成る程、そういう環境もありますか。
warning 吐きまくるのはヤだなぁと思っただけなんで、
shebang line は適宜変更でいいですかのぅ。

つか valid な HTML にはあまりこだわってませんか。

URL リンクはこうかな…。
s|(http://[\w!#-;=?-@~]+)|a{href,$1},$1|eg;

>>93
困りました。:)

---

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

---

ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ ｱﾎﾞﾝOFF

---

ぬこの手 ぬこTOP 1.003s*