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

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

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

---

112: nobodyさん [sage] 02/12/02 07:11 ID:??? Rss出力と検索機能 4 7wiki.cgi ---- 7search.cgi use CGI':all';$f=script_name;$s=param S;opendir D,".";if($s){map{$t=$_;if(open F,$t){eval{flock F,2};while(<F>){chomp;if(/\Q$s\E/io){push(@r,li(a{href,$t},$t) ," - $_");last}}close F}}sort grep/^[^.]+$/,readdir D}put header,start_html( '7search'),startform(0,$f),p(textfield(S),submit),endform,hr,ul(@r),end_html ---- 7rss.cgi use CGI qw/:all channel item textinput link name/;($p)=script_name=~m|(.+)/[^/] +$|x;$s=server_name.$p;opendir D,".";$w='7wiki';put"Content-type:text/xml\n\n", qq|<?xml version="1.0"?>\n<rdf:RDF xmlns:rdf="http://www.w3c.org/1999/02/22-r|, q|df-syntax-ns#" xmlns="http://my.netscape.com/rdf/simple/0.9/">|,channel(title ($w),link"$s/$w.cgi"),(map{item(title($_),link"$s.$_")."\n"}sort grep/^[^.]+$/, readdir D),textinput(title($w),link("$s/7search.cgi"),name(S)),"\n</rdf:RDF>"; # CGI.pm v2.69 以降 or c2.67 wiz xhtml tag - link() の動作がちょっと不安。 http://medaka.5ch.net/test/read.cgi/php/1036141603/112

---

ﾒﾓ帳

(0/65535文字)

---

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

---

あと 340 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ

---

Google検索

Wikipedia

---

ぬこの手 ぬこTOP 0.012s