七行プログラミング (452ﾚｽ)
七行プログラミング http://medaka.5ch.net/test/read.cgi/php/1036141603/
上
下
前
次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
19: nobodyさん [sage] 02/11/02 00:07 ID:??? tell FILE ↑が抜けてるにょ http://medaka.5ch.net/test/read.cgi/php/1036141603/19
20: nobodyさん [sage] 02/11/02 00:10 ID:??? print <<7LINE; ******************************************************************************* ******************************************************************************* ******************************************************************************* ******************************************************************************* ******************************************************************************* **********************************************
********************************* ******************************************************************************* 7LINE http://medaka.5ch.net/test/read.cgi/php/1036141603/20
21: nobodyさん [sage] 02/11/02 00:11 ID:??? >>19 （ ´,_ゝ`） ﾌﾟｯ http://medaka.5ch.net/test/read.cgi/php/1036141603/21
22: nobodyさん [sage] 02/11/02 00:19 ID:??? （； °▽°)FILEなくもいけた〜〜 http://medaka.5ch.net/test/read.cgi/php/1036141603/22
23: nobodyさん [] 02/11/02 00:51 ID:TEd9xaNd echo "aho1" echo "aho2" echo "aho3" echo "aho4" echo "aho5" echo "aho6" echo "aho7" http://medaka.5ch.net/test/read.cgi/php/1036141603/23
24: （ ´∀｀）ヮ-ィ [sage] 02/11/02 01:25 ID:??? 掲示板でけた〜〜 #!/usr/bin/perl if($ENV{'REQUEST_METHOD'}eq'POST'){read(STDIN,$b,$ENV{'CONTENT_LENGTH'}); foreach(split(/&/,$b)){($c,$d)=split(/=/,$_);$d=~tr/+/ /; $d=~s/%([a-f\d]{2})/pack('H2',$1)/egi;$form{$c}=$d}open(F,'>>z.txt'); print F "$form{y}\n";close F}print"Content-type:text/html\n\n<html> <form action=x.cgi method=post><input type=text name=y><input type=submit> </form><br><br>";open(
F,'z.txt');while(<F>){print "$_<br>\n"}print'</html>'; http://medaka.5ch.net/test/read.cgi/php/1036141603/24
25: nobodyさん [ ] 02/11/02 01:46 ID:??? 動きませぬ http://medaka.5ch.net/test/read.cgi/php/1036141603/25
26: 25 [ ] 02/11/02 01:49 ID:??? あ、動きましたｗ http://medaka.5ch.net/test/read.cgi/php/1036141603/26
27: nobodyさん [sage] 02/11/02 02:08 ID:??? >>1 Perl限定かよ。 http://medaka.5ch.net/test/read.cgi/php/1036141603/27
28: nobodyさん [sage] 02/11/02 06:30 ID:??? 昔のBASICの１画面プログラムを思い出したよ http://medaka.5ch.net/test/read.cgi/php/1036141603/28
29: nobodyさん [] 02/11/02 14:13 ID:1/HvBlpx Ｄｕｋｅまだ〜？ ﾁﾝﾁﾝ http://medaka.5ch.net/test/read.cgi/php/1036141603/29
30: nobodyさん [] 02/11/02 17:48 ID:Sny9GkFS てめーら七行もあるのにその程度のモンしか作れねーのかよ（ﾌﾟ http://medaka.5ch.net/test/read.cgi/php/1036141603/30
31: nobodyさん [sage] 02/11/02 17:53 ID:??? >>30 だからきみのすごい作品を待っています。ハイレベル期待しています。 もうできてる？ 今からつくる？ 今日中には書き込んでくれ。 http://medaka.5ch.net/test/read.cgi/php/1036141603/31
32: nobodyさん [] 02/11/02 20:55 ID:RJf4RKlR すごい作品まだ〜？ ﾁﾝﾁﾝ http://medaka.5ch.net/test/read.cgi/php/1036141603/32
33: nobodyさん [] 02/11/02 21:13 ID:aPBbHnBW 何本気になってんの？ http://medaka.5ch.net/test/read.cgi/php/1036141603/33
34: 末吉亮介 [] 02/11/02 21:15 ID:MUhjalxS http://plaza.rakuten.co.jp/a240a/ http://medaka.5ch.net/test/read.cgi/php/1036141603/34
35: nobodyさん [sage] 02/11/02 22:13 ID:??? >>33 作れないヤツはすっこんでてね（はぁと http://medaka.5ch.net/test/read.cgi/php/1036141603/35
36: nobodyさん [sage] 02/11/03 00:25 ID:??? >>30は、口だけ大将だったということか・・・ http://medaka.5ch.net/test/read.cgi/php/1036141603/36
37: nobodyさん [sage] 02/11/03 10:09 ID:??? 実際、Perlだったらかなりのものが出来てもおかしくはないかと。 ム板の7行スレは凄かった。 http://medaka.5ch.net/test/read.cgi/php/1036141603/37
38: nobodyさん [age] 02/11/03 14:13 ID:??? ム板マ板で相手にされない厨が集まる板はここですか？ http://medaka.5ch.net/test/read.cgi/php/1036141603/38
39: ユカリ [] 02/11/03 14:35 ID:8kfSttUc プランテック製の「 RX-2000? 」を改造済み にした、アイティーエス製の「 RX-2000? 」↓ http://user.auctions.yahoo.co.jp/jp/user/neo_uuronntya#.2ch.net/ 現在、本当に人気がある様です。 私も、この前、買いました。 関連ホームページ↓ http://www.h5.dion.ne.jp/~gekitoku/ http://www.h4.dion.ne.jp/~gekiyasu/ http://www.h5.dion.ne.jp/~gekirea/ http://www.h4.dion.ne.jp/~shinsetu/ http://medaka.5ch.net/test/read.cgi/php/1036141603/39
40: nobodyさん [sage] 02/11/03 14:48 ID:??? WebProg らしく。 --- cgi-lib.po --- my($m,$l,$i,$e,$x)=@ENV{'REQUEST_METHOD','CONTENT_LENGTH'};my$d=sub{$d= "Request to receive too much data: $l bytes\n";print"Content-Type: text/plain", "\n\n$d";die$d};sub ReadParse{$l>$$x?&$d:$m=~/POST/?($e=$l-read STDIN,$i,$l):( $i=$ENV{QUERY_STRING});local*I=pop;my@i=(split(/[&;]/,$i),($m?():@ARGV));for(@i ){tr/+/ /;s/%([\da-f]{2})/pack'H2',$1/egi for my($k,$v)=split/=/,$_,2;$I{$k}.= $I{$k}?"\0$v":$v}!$e&&scalar@i}${$x='
cgi_lib::maxdata'}=131072 --------------- cgi-lib.pl 互換。Perl4 不可、multipart 未対応。 require 'cgi-lib.po'; $cgi_lib::maxdata = 1024; # POST 時の上限サイズ ReadParse(*in); # or ReadParse(\%in); http://medaka.5ch.net/test/read.cgi/php/1036141603/40
41: ◆FruitsMIpE [sage] 02/11/03 18:15 ID:??? 名前入力欄つき掲示板 $q=$ENV{QUERY_STRING}; if($q){@p=split /[&;]/,$q; foreach(@p){($a,$b)=split "="; $b=~tr/+/ /; $b=~s/%([A-Za-z0-9]{2})/pack("C", hex($1))/eg; $i{$a}=$b;} open W, ">> b.log"; print W "$i{n}<>$i{m}\n"; close W;} print "Content-type: text/html\n\n<html>\n<head><title>掲示板</title></head>\n<body>\n"; open R, "b.log"; while(<R>){chomp; ($n,$m)=split "<>"; print "$n：$m<br>\n";}
close R; print qq{<hr>\n<form>Name<input type="text" name="n"> <input type="text" name="m" size="64"><input type="submit"></form>\n<hr>\n</body></html>\n}; exit; http://medaka.5ch.net/test/read.cgi/php/1036141603/41
42: ◆FruitsMIpE [sage] 02/11/03 18:27 ID:??? 改良 $q=$ENV{QUERY_STRING}; if($q){@p=split /[&;]/,$q; foreach(@p){($a,$b)=split "="; $b=~tr/+/ /; $b=~s/%([A-Za-z0-9]{2})/pack("C", hex($1))/eg; $i{$a}=$b;} open W, ">> b.log"; print W "$i{n}：$i{m}\n"; close W;} print "Content-type: text/html\n\n<html>\n<title>BBS</title>\n\n"; open R, "b.log"; while(<R>) {chomp; print "$_<br>\n";} close R; print qq{<hr>\n<form>Name<input type="text" name="n"> <input
type="text" name="m" size="64"> <input type="submit"> [<a href="b.cgi">Reload</a>] [<a href="../../">Back</a>]</form>\n<hr>\n</html>\n}; http://medaka.5ch.net/test/read.cgi/php/1036141603/42
43: nobodyさん [sage] 02/11/03 18:38 ID:??? >>24 を発展させてみた。一行掲示板。 --- 7bbs.cgi --- #!/usr/local/bin/perl $l='7bbs.log';if(read STDIN,$_,$ENV{'CONTENT_LENGTH'}){for(split/&/){$_=(split /=/)[1];tr/+/ /;s/%([a-f\d]{2})/pack'H2',$1/egi;push@r,$_}@r=(''.localtime,@r); open F,"+<$l";flock F,2;@l=(join(': ',@r),"<br>\n",<F>);truncate F,0;print F @l[0..49]}open F,$l;print join('><input type=',"Content-type: text/html\n\n". '<title></title><form action=7bbs.c
gi method=post','text name=n','text name=w', 'submit></form>'),<F> ---------------- 新しい順に表示。50件まで保存。 >>41 ネタが被るねぇ。ゴメンね。(´・ω・｀) http://medaka.5ch.net/test/read.cgi/php/1036141603/43
44: nobodyさん [sage] 02/11/03 19:17 ID:??? 動かねぇです大将！>>42>>43 >>42のは半角でも全角でも変な文字が保存されるです！モジコード変えてもダメだったです！ >>43のはファイルが作成されませぬ！ 私のミステイクでしょうか！ハラキリ！ http://medaka.5ch.net/test/read.cgi/php/1036141603/44
45: nobodyさん [sage] 02/11/03 19:22 ID:??? >>44 open F,"+<$l"; ←注目 つー事で、ログファイルは先に作っといて。 $l='7bbs.log'; のトコがログファイルのパスだから、よろ。 http://medaka.5ch.net/test/read.cgi/php/1036141603/45
46: nobodyさん [require使えば] 02/11/03 19:44 ID:??? １行でも書けるな。 http://medaka.5ch.net/test/read.cgi/php/1036141603/46
47: nobodyさん [sage] 02/11/03 20:07 ID:??? （ そんな事より１さん、ちょっと聞いてよ。スレとあんまり関係ないけどさ。 `ー‐―V――――――――――――――――――――――――――――― ;:'´ （ このあいだ、WebProg板へ行ったんですの。WebProg板。 _....._{{ 〃 ＼ そしたらなんかRuby!と書かれたレスが多発していましたわ。 , - ' ,..､､.ヾ{{フ'⌒`ヽ､ー―――V―――――――――――――――――― ／ ,:', -‐‐` ´ '´⌒ヽ ヾ:､ _....､､､､
（ で、よく見たらrubyistという名前の書き込みで、 . ,' ,'´ ,ィ ,ｨ ,' , ｀ヽ', ',-<´ , ｀ヽ.`ー――――V― 相手してもらえてないんです。 ,' .i /|. /.| { i, i, }. }_,,）) lﾆ二二ミヽ.､ ':, ,.: '´ ,_.....__｀ヽ､ ,..-‐-､),.....`_―――――― ! | ! .,'-.{ ! !|; |`､.}ﾞ!.! |. ! ヽ.ｌ ./ ,! ,,｀ヾ:､ ':, ./'´￣｀ヾ､､ヽ,.:'´ ,:‐:､ ,.-､ ヽ. ', ', |Vｧ=､ﾞ､ ｀ﾞ､!-_:ﾄ,ﾘ', l ! | ﾞﾚ__,〃_/ﾘ !.'; .} ./ｌ_|___ﾉ! ｌ `､ ', / //
`''} }.'; ', ヽ､', l:!Kノ}. f:_.)iﾞi: ﾘ ! l ル'￣｀` ´-､,ﾉﾉ l l .!,;:=､｀:.｀:>=､.j,｝ |__人(( _ﾉﾉノ | | l!iヽﾞ- ' , .!__:ﾉ ﾞ ,ﾘ l ﾘ'´ .|'￣ヽ __ ｀><ﾉ | {;:'ﾉ ﾉtrﾃ;､.Y ! ,--､ __`彡 ﾉ . ',|!!､ r‐┐ ｀ ノ' /,ｲ ! __ , ⌒'/!| | !.`ｰ‐'´, ﾞじ' ノ ! h. ._: ´ ｿ).（ 'i!ﾞ､ヽ､ ﾞｰ' _, ィ,:',:''´ ! !､ ｰ' ノｲ ! | | !､ !ﾌ ｀フ'ﾘ ! ﾙ'ヽ.._ _..､(ン ﾉ ） ﾞ:､ｨ､jヾｰ::: 'iﾍ ノ',ﾘ.／! .| |ｰ`┬､' ´
〃 l. トヾ､.ﾞ｀ｨ'' ´ヽ､/// ＼二|｀＼ｰ‐‐'´ ,､- '´ ヽ､ﾞ､ { ｀＞"､ ! ! ! | ｀>-､ | |､ ＿＿＿＿＿＿＿_∧＿＿＿＿＿ /＼＼ ', } //｀ヽ| ',.!ﾞ､ !／／ ﾞ!/ ! （ もうね、アホかと。馬鹿かと‥ http://medaka.5ch.net/test/read.cgi/php/1036141603/47
48: nobodyさん [] 02/11/03 21:17 ID:QK0oCR94 明文化 ・7行×79文字 ・Perl ・#!/usr/local/bin/perlは含まない。実質的なプログラムで七行。 ・スペースも1文字分。2バイト文字は2文字分。 でいいでしょうか？ http://medaka.5ch.net/test/read.cgi/php/1036141603/48
49: rubyist＠カラアゲうまうま [sage] 02/11/03 21:21 ID:??? perl版cc1だれか作れ http://medaka.5ch.net/test/read.cgi/php/1036141603/49
50: nobodyさん [sage] 02/11/03 22:32 ID:??? このスレを見たとき、 ム板かと思いますた。 http://medaka.5ch.net/test/read.cgi/php/1036141603/50
51: nobodyさん [sage] 02/11/03 22:34 ID:??? 掲示板は本家でもうかなり短くなってないか？ 別に委員だけど、もっと面白いﾈﾀがないかなと。 http://medaka.5ch.net/test/read.cgi/php/1036141603/51
52: 43 [sage] 02/11/03 23:08 ID:??? >>48 プログラムが Web 関連物なら言語は何でもいいんじゃ? シェバング行は C の #include みたいなモンだから…。 >>51 単に縮めるだけじゃなく、7行をギリギリまで使って機能増やすのも 楽しみの一つだよ。掲示板に食傷気味なのは同意するけど。(w つー事で改良。 --- 7bbs.cgi --- #!/usr/local/bin/perl $l='7bbs.log';if(read STDIN,$_,$ENV{CONTENT_LENGTH}){@r=''.localtime;for(split /&/){$_=(split/=/)[1];tr/+/ /;s/%([a-f\d]{2})/pack'H2',$1/egi;s/(["&<>])/'？'. unpack('C'
,$1).';'/eg;push@r,$_}open F,"+<$l";flock F,2;@l=(join(': ',@r). "<br>\n",<F>);truncate F,0;seek F,0,0;print F @l[0..49]}open F,$l;print join( '><input type=',"Content-type: text/html\n\n<title>7BBS</title><form action=". '7bbs.cgi method=post','text name=n','text name=w',"submit></form>\n"),<F> ---------------- ["&<>] を数値文字参照に変換。 http://medaka.5ch.net/test/read.cgi/php/1036141603/52
53: nobodyさん [sage] 02/11/03 23:18 ID:??? 7行のスレッドフロート型掲示板とかは無理？ http://medaka.5ch.net/test/read.cgi/php/1036141603/53
54: ◆FruitsMIpE [sage] 02/11/03 23:44 ID:??? >>43 Winではflock 使えなくてエラーに ヽ(*｀Д´)ﾉ ﾜｧｧﾝ >>44 ｶﾞ━━━━(;ﾟДﾟ)━━━━ﾝ !! すいませｎ原因わかりませｎ Windows環境でSJISならうまくいくんだけど・・ >>53 前に2ch型掲示板作ってみたけど、無理確定のような気がする。 誰か作れる人、いるかな http://medaka.5ch.net/test/read.cgi/php/1036141603/54
55: nobodyさん [] 02/11/04 06:56 ID:5+umhhBG ７行2ch型掲示板 ただし、かちゅ〜しゃがないとだめぽ、 read.cgiがないから読めないし、書きこみフォームもないから、あとsubject.txtの新スレは一番下になる。 flockもしていない、かちゅに依存するために変数名が長い。 下記のディレクトリ構成で成功 /test +--/bbs.cgi +--/subject.txt +--/dat/ #!/usr/local/bin/perl $t=time;read(STDIN,$b,$ENV{'CONTENT_LENGTH'});@p=split(/&/,$b);foreach (@p) {($a,$v)=split "=";$v=~tr/+/ /;$v=~s/%([A-Za-z0-9]{2})/pack("C", hex(
$1))/eg; $i{$a}=$v;}if(!$i{'key'}){$i{'key'}=$t;}open(F,">>./dat/$i{'key'}.dat"); print F "$i{'FROM'}<>$i{'mail'}<>$t<>$i{'MESSAGE'}<>$i{'subject'}\n";close(F); open(S,">>./subject.txt");print S "$i{'key'}.dat<>$i{'subject'}(1)\n"; close(S);exit; つーか激しく2ch型から離れているが。 http://medaka.5ch.net/test/read.cgi/php/1036141603/55
56: nobodyさん [sage] 02/11/04 09:38 ID:??? >>55 それは普通掲示板といいません（w win鯖では動いたけどな。 http://medaka.5ch.net/test/read.cgi/php/1036141603/56
57: nobodyさん [sage] 02/11/04 12:16 ID:??? やはりCGIだと、定型的な部分で多く取られてしまいますな。 http://medaka.5ch.net/test/read.cgi/php/1036141603/57
58: （ ´∀｀）でけた〜 [sage] 02/11/04 12:59 ID:??? [アクセス解析] CGI名： a.cgi 空ファイル用意： log そのままアクセスしてログ取り 引数に a をつけて解析結果表示 #!/usr/bin/perl &a if $ENV{QUERY_STRING}eq'a';($s,$m,$j,$d,$g,$y)=gmtime(time+9*60*60);$i=$ENV{ REMOTE_ADDR};$h=$ENV{REMOTE_HOST}||gethostbyaddr(pack('C4',split(/\./,$i)),2)|| $i;$y=sprintf("%d/%02d/%02d/ %02d:%02d:%02d",$y+=1900,++$g,$d,$j,$m,$s);open(F, '+<log');@d=<F>;unshift(@d,"$y,$h,$ENV{HTTP_USER_AGENT},$ENV{HTTP_REFERER}\n
"); seek(F,0,0);print F @d;sub a{print"Content-type:text/html\n\n";open(F,'log'); while(<F>){($t,$h,$u,$r)=split(/,/,$_);print"$t<br>$h<br>$u<br>$r<hr>"}exit} http://medaka.5ch.net/test/read.cgi/php/1036141603/58
59: nobodyさん [sage] 02/11/04 14:26 ID:??? で、実用性ある奴はあるのか？ http://medaka.5ch.net/test/read.cgi/php/1036141603/59
60: nobodyさん [] 02/11/04 15:47 ID:CMvXGJGy （･ε･）v ｷﾆｼﾅｲ! http://medaka.5ch.net/test/read.cgi/php/1036141603/60
61: nobodyさん [sage] 02/11/04 20:59 ID:??? HTML4.01strictとかどうよｗ http://medaka.5ch.net/test/read.cgi/php/1036141603/61
62: nobodyさん [sage] 02/11/04 23:14 ID:??? >>57 試しにHTMLを分離して作ってみたら大分縮んだ。 ttp://boobar.hp.infoseek.co.jp/7bbs2/7bbs2_0.0.1.tar.gz >>58 縮めてみた。 #!/usr/bin/perl if($ENV{QUERY_STRING}eq'a'){open F,'log';print"Content-Type: text/html\n\n",map join('<br>',split/,/).'<hr>',<F>;exit}$i=$ENV{REMOTE_ADDR};$h=$ENV{REMOTE_HOST} ||gethostbyaddr(pack('C4',split/\./,$i),2)||$i;($s,$m,$j,$d,$g,$y)=localtime; open F,'+<log';eval{flock F,2};@d=(sprintf('%d/%02d/%0
2d %02d:%02d:%02d',1900+ $y,$g+1,$d,$j,$m,$s).",$h,$ENV{HTTP_USER_AGENT},$ENV{HTTP_REFERER}\n",<F>); truncate F,0;seek F,0,0;print F @d http://medaka.5ch.net/test/read.cgi/php/1036141603/62
63: age [age] 02/11/05 18:48 ID:??? age http://medaka.5ch.net/test/read.cgi/php/1036141603/63
64: nobodyさん [] 02/11/14 07:16 ID:M/ZRCXHw あげ http://medaka.5ch.net/test/read.cgi/php/1036141603/64
65: nobodyさん [] 02/11/20 18:28 ID:707UhyRv 7行Wikiくれ。 http://medaka.5ch.net/test/read.cgi/php/1036141603/65
66: nobodyさん [sage] 02/11/21 07:14 ID:??? ---- 7wiki.cgi #!/usr/local/bin/perl -w use strict; use CGI qw/:standard/; use AnyDBM_File; use Fcntl; my$id=$ENV{'QUERY_STRING'}||'FrontPage';my$msg=param('msg')||''; my$url='./7wiki.cgi'; tie(my%DB,'AnyDBM_File','wiki',O_CREAT|O_RDWR,0666)or die; if ($msg){$DB{$id}=$msg} $msg=escapeHTML $DB{$id}; untie(%DB);print header; print qq(<form action="$url?$id" method="POST"><input type="submit"><b>$id</b> <br /><textarea name="msg" row
s="6" cols="60">$msg</textarea></form><hr />); $msg=~s/\b([A-Z][a-z]+([A-Z][a-z]+)+)\b/<a href="$url?$1">$1<\/a>/g;print $msg; http://medaka.5ch.net/test/read.cgi/php/1036141603/66
67: nobodyさん [sage] 02/11/21 19:40 ID:??? >>66 #!/usr/local/bin/perl -w use strict;use CGI':standard';use AnyDBM_File;use Fcntl;tie(my%D,'AnyDBM_File', '7wiki',O_CREAT|O_RDWR,0666)||die;my$i=$ENV{QUERY_STRING}||'FrontPage';$_= escapeHTML($D{$i}=param('m')||$D{$i});untie%D;print header(),qq(<form action="7wiki.cgi?$i" method="post"><input type="submit" /><b>$i</b><br /> <textarea name="m" rows="6" cols="60">$_</textarea></form><hr />); s|\b([A-Z
][a-z]+([A-Z][a-z]+)+)\b|<a href="7wiki.cgi?$1">$1</a>|g;print \b 要る? http://medaka.5ch.net/test/read.cgi/php/1036141603/67
68: nobodyさん [] 02/11/21 22:28 ID:mGPCTII6 >>67 thx ... WikiName の正規表現は \b([A-Z][a-z]+){2,}\b って書けるみたいだね。 \b 要るかどうかしらないけど、個人的には欲しい。 # http://c2.com/cgi/wiki?LinkPattern > s|\b([A-Z][a-z]+([A-Z][a-z]+)+)\b|<a href="7wiki.cgi?$1">$1</a>|g; < s|\b([A-Z][a-z]+){2,}\b|a "7wiki.cgi?$1",$1|ge; 多少、汚くても良いのなら、 - use Fcntl やめて O_CREAT|O_RDWR は定数で - s/standard/all/; tr/"//d; s/AnyDBM/DBM/g; s' /''g; - s/use strict;/; s/\bmy\b/g; -
etc .. ・・・で、４〜５行くらいにはダイエット出来るかな。 短いwiki・・・他に、こんなのもあるよ。 http://c2.com/cgi/wiki?ShortestWikiContest http://medaka.5ch.net/test/read.cgi/php/1036141603/68
69: nobodyさん [sage] 02/11/21 22:40 ID:??? 間違えた・・ s|\b([A-Z][a-z]+){2,}\b|a{href=>"7wiki.cgi?$1"},$1|ge; http://medaka.5ch.net/test/read.cgi/php/1036141603/69
70: nobodyさん [sage] 02/11/21 22:52 ID:??? 括弧わすれてた・・・ゴメン（再び修正 \b(([A-Z][a-z]+){2,})\b http://medaka.5ch.net/test/read.cgi/php/1036141603/70
71: nobodyさん [sage] 02/11/22 07:28 ID:??? use CGI':all';use SDBM_File;$i='7wiki.cgi';$j=$ENV{QUERY_STRING}||'FrontPage'; tie%D,'SDBM_File',$i,258,438or die;$_=$D{$j}=param('m')||$D{$j};untie%D;put header,startform('post',"$i?$j"),submit,b($j),br,textarea('m',$_,6,60),endform ,hr;$_=escapeHTML$_;s|\b(([A-Z][a-z]+){2,})\b|a{href=>"$i?$1"},$1|ge;put$_ http://medaka.5ch.net/test/read.cgi/php/1036141603/71
72: nobodyさん [sage] 02/11/22 14:36 ID:??? Good job. http://medaka.5ch.net/test/read.cgi/php/1036141603/72
73: nobodyさん [sage] 02/11/22 18:30 ID:??? 折角なので副産物も（ワンライナーだけど れぎゅれーしょん ちぇっか usage: ./7rc.pl < target_script.pl #! perl -nw chomp;length>79||$.>7?die:print"line $. OK\n" http://medaka.5ch.net/test/read.cgi/php/1036141603/73
74: nobodyさん [sage] 02/11/24 15:39 ID:??? >>71 use Fcntl; はいらないのか？ http://medaka.5ch.net/test/read.cgi/php/1036141603/74
75: nobodyさん [sage] 02/11/24 17:47 ID:??? use Fcntl; O_CREAT|O_RDWR を纏めて 286（tie の引数 定数部分は環境依存するかも知れないので /usr/include/sys/fcntl.h を参照 http://medaka.5ch.net/test/read.cgi/php/1036141603/75
76: nobodyさん [sage] 02/11/25 00:58 ID:??? DB_File なら use した時点で O_CREAT も O_RDWR も使えるようになる罠。 use DB_File; print join '/', O_CREAT => O_CREAT, O_RDWR => O_RDWR; そして O_CREAT は実際 512 だったり 256 だったりする罠。 http://medaka.5ch.net/test/read.cgi/php/1036141603/76
77: nobodyさん [sage] 02/11/25 06:28 ID:??? 余った行で僅かばかり実用的にしてみる。 #!/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) http://medaka.5ch.net/test/read.cgi/php/1036141603/77
78: nobodyさん [sage] 02/11/25 23:38 ID:??? #! 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,end
form,hr,pre($_),end_html 一覧を付けてみた・・・（残り：１行と１０字 :all tag で全部輸入できなかった？:html2 とかでも無理かな？ http://medaka.5ch.net/test/read.cgi/php/1036141603/78
79: nobodyさん [sage] 02/11/26 00:26 ID:??? < $_=escapeHTML($m=param('m')||$m);seek F,0,0;print F $m; > $_=escapeHTML $m=param('m')||$m;seek F,0,0;print F$m; http://medaka.5ch.net/test/read.cgi/php/1036141603/79
80: nobodyさん [sage] 02/11/26 00:30 ID:??? < .ul map{li"".localtime time-86400*-M," $_"}sort{-M$a<=>-M$b}grep{/^$w$/}glob"*" > .ul map{li"".localtime time-86400*-M,$_}sort{-M$a<=>-M$b}grep{/^$w$/}glob"*" http://medaka.5ch.net/test/read.cgi/php/1036141603/80
81: 74 [sage] 02/11/26 00:51 ID:??? >>75 勉強になりました。 http://medaka.5ch.net/test/read.cgi/php/1036141603/81
82: nobodyさん [sage] 02/11/26 01:21 ID:??? use CGI':all';$w='\b(([A-Z][a-z]+){2,})';($p)=($ENV{QUERY_STRING}||FrontPage)=~ /$w/;$f=script_name;open(F,'+'.(-f$p?'<':'>').$p)||die;eval{flock F,2};read F,$ m,-s$p;$_=escapeHTML$m=param(z)||$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(0,"$f?$p"),textarea (z,$m,6,60),br,submit,endform,hr,pre($_),end_html h
ttp://medaka.5ch.net/test/read.cgi/php/1036141603/82
83: nobodyさん [sage] 02/11/26 04:49 ID:??? >>78 ごめん、CGI.pm 2.89 置いたパスを use lib し忘れたままテストしてた。 5.005_03 同梱のは 2.46 で、この辺だと escapeHTML はどのタグにも 含まれてない。submit() を呼んだ時点で main に定義されるのかな。 #! perl use CGI':all';$f=script_name;$w='\b(([A-Z][a-z]+){2,})';($p)=($ENV{QUERY_STRING }||FrontPage)=~/$w/;open(F,-f$p?"+<$p":"+>$p")||die;eval{flock F,2};$/=();$_= escapeHTML$m=param(z)||<F>;truncate F,0;seek F,0,0;print F$m;close F;$_=join hr ,
endform,pre($_),ul map{li localtime((stat$_)[9])." $_"}sort{-M$a<=>-M$b}grep /$w$/,<*>;s/$w/a{href=>"$f?$1"},$1/eg;put header,start_html($p),startform(0, "$f?$p"),h1($p),textarea(z,$m,6,60),br,submit,$_,end_html 1 byte 長くなった。むぅ。 http://medaka.5ch.net/test/read.cgi/php/1036141603/83
84: nobodyさん [sage] 02/11/26 06:11 ID:??? 書き忘れたけど、78-82 はWin/ActivePerlで作ってました。 他の環境に移したら CGI.pm 2.56 で同様のエラーが出たので パッケージ名をつけてCGI::escapeHTMLで対応。 もしくは、モジュールを新しくする。でいいかな＞対策 NOTE QUERY_STRING を PATH_INFO に変更して url の区切りを ? -> / に。 # 勿論、 s/// のスラッシュも他の記号に変更する。 (stat)[9] BUG ページ読むだけでも書き込みしてるので タイムスタンプが。。 http://medaka.5ch.net/test/read.cgi/php/1036141603/84
85: nobodyさん [sage] 02/11/26 22:06 ID:??? >>84 パッケージ名付けた方が優しいかな。＞ escapeHTML タイムスタンプのバグフィクス版。以下の環境で動作。 ・Perl 5.005_03, CGI.pm 2.46 ・Win98SE, AN-HTTPD 1.41g ・FreeBSD 4.7R, Apache/1.3.27 #!/usr/local/bin/perl use CGI':all';$w='\b(([A-Z][a-z]+){2,})';($p)=($ENV{PATH_INFO}||FrontPage)=~/$w /x;if(open F,($m=param z)?">$p":$p){eval{flock F,2};$/=();$_=CGI::escapeHTML($m ||=<F>);truncate F,0;seek F,0,0;print F$m;close F}opendir D,'./';$_=join hr, en
dform,pre($_),ul map{li localtime((stat)[9])." $_"}sort{-M$a<=>-M$b}grep/$w$/ ,readdir D;$f=script_name;s|$w|a{href=>"$f/$1"},$1|eg;put header,start_html($p) ,startform(0,"$f/$p"),h1($p),textarea(z,$m,6,60),br,submit,$_,end_html AN-HTTPD だとグロブ効かなかったので readdir に変更。 i-httpd だと PATH_INFO 使えなかったけど、まぁこれは 少数派という事で。あともしかしたら MacPerl が truncate で引っかかるやも。 http://medaka.5ch.net/test/read.cgi/php/1036141603/85
86: nobodyさん [sage] 02/11/27 00:19 ID:??? CGI.pm 2.752, perl 5.005_03 build for sun4-solaris Apache 1.3.27 #! perl -w 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} ;$_=CGI::escapeHTML$m||=<F>;eval{truncate F,0};seek F,0,0;print F$m;close F}$_. =hr.ul((map{li"".localtime((stat)[9]),$_}sort{-M$a<=>-M$b}grep/$w$/,readdir D)[ 0..9]);s|$w|a{href=>"$f/$1"},$1|eg;put header,start_
html$p),h1($p),startform(0 ,"$f/$p"),textarea(z,$m,6,60),br,submit,endform,pre($_),end_html 一覧の表示数制限機能追加。 truncate は eval で対応できるかな？＞MacPerl http://medaka.5ch.net/test/read.cgi/php/1036141603/86
87: nobodyさん [sage] 02/11/27 01:56 ID:??? #! perl -w use CGI':all';$w='\b(([A-Z][a-z]+){2,})';$/=();($p)=(path_info||FrontPage)=~/$w /x;$f=script_name."/";opendir D,'.';if(open F,($m=param z)?">$p":$p){eval{flock F,2};$_=CGI::escapeHTML$m||=<F>;eval{truncate F,0};seek F,0,0;print F$m;close F }$_.=hr.ul((map{li"".localtime((stat)[9]),$_}sort{-M$a<=>-M$b}grep/$w$/,readdir D)[0..14]);s|$w|a{href=>$f.$1},$1|eg;put header,start_html($p),h1($p),startform (0,$f.$p),textarea(z,$m,6,60),br,submi
t,endform,pre($_),end_html -1byte http://medaka.5ch.net/test/read.cgi/php/1036141603/87
88: nobodyさん [sage] 02/11/27 06:40 ID:??? #! perl -w use CGI':all';@c=qw/white eeeeff/;$d=0;$e=path_info();$f=script_name;*p=*param; $h=DELETE;$i=RENAME;$j=COPY;$k=FILES;opendir D,"./$e";if(p$h){unlink p$k}put header,start_html('7files'),startform(0,$t),table(Tr([th({bgcolor=>ddddff},['', qw/Name Size LastModified/]),(map{td({bgcolor=>$c[$d++%2]},[checkbox($k,0,$_,'' ),g($_)." ".a({href=>"$f/$_"},$_),-s,"".localtime((stat)[9])])}sort{$a cmp $b} grep/^[^.]/,readdir D)])),(map{submit$_}($i,$j,$h))
,endform,end_html;sub g{$t= -d$_[0]?'folder':'text';img{src=>"/icons/$t.gif",alt=>$t}} ファイル削除 CgI あぱっち用 RENAME と COPY は未実装。もうちょっと痩せないとなぁ・・ WikiName のリンク処理（存在しないページのリンクは？に。 s|$w|(-f$1?'':$1).a{href=>$f.$1},-f$1?$1:'?'|eg; http://medaka.5ch.net/test/read.cgi/php/1036141603/88
89: nobodyさん [sage] 02/11/27 08:37 ID:??? 検索エンジン <? fopen("http://www.yahoo.co.jp");?> http://medaka.5ch.net/test/read.cgi/php/1036141603/89
90: nobodyさん [sage] 02/11/27 09:55 ID:??? >>89 Warning: fopen() expects at least 2 parameters, 1 given in ... http://medaka.5ch.net/test/read.cgi/php/1036141603/90
91: nobodyさん [sage] 02/11/27 20:42 ID:??? 7wiki.cgi 、一旦まとめ。(w #! perl use CGI':all';$w='\b(([A-Z][a-z]+){2,})';($p)=(path_info||FrontPage)=~/$w/;$/=( );$f=script_name."/";opendir D,".";if(open F,($m=param z)?">$p":$p){eval{flock F,2};$_=CGI::escapeHTML($m||=<F>);eval{truncate F,0};seek F,0,0;print F$m;close F}$_=pre($_).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),startfo
rm(0,$f.$p),textarea(z,$m,6,60),br,submit,endform,$_,end_html ・bare word が存在するので perl -w は不可。 ・古い CGI.pm は escapeHTML を輸出しないので括弧が必要。 http://medaka.5ch.net/test/read.cgi/php/1036141603/91
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).texta
rea(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
94: nobodyさん [sage] 02/11/28 05:30 ID:??? >>88 アイコンと th 無くして、あと目に付いたトコだけザッと。 #! perl -w use CGI':all';*p=*param;$d=path_info;$t=opendir D,".$d";$F=F;($c=$f=script_name )=~s|/[^/]+$||;$R=REN;$C=CP;$D=DEL;p$D&&unlink p$F;put header,start_html(7files ),startform(0,$f),table(Tr[map{$i="$d/$_";($l,$s)=-d".$i"?($f.$i,'DIR'):($c.$i, -s _);td({bgcolor,(white,eeeeff)[$t++%2]},[checkbox($F,0,$_,''),a({href,$l},$_) ,$s,"".localtime((stat)[9])])}sort grep!/^\./,readdir D]),(map{submit
$_}$R,$C, $D),endform,end_html http://medaka.5ch.net/test/read.cgi/php/1036141603/94
95: nobodyさん [sage] 02/11/28 05:55 ID:??? >>94 修正…。 use CGI':all';($c=$f=script_name)=~s|/[^/]+$||;$d=path_info;$t=opendir D,".$d"; $F=F;$M=MV;$C=CP;$R=RM;*p=*param;p$D&&unlink p$F;put header,start_html('7files' ),startform(0,$f),table(Tr[map{$i="$d/$_";($l,$s)=-d".$i"?($f.$i,'DIR'):($c.$i, -s _);td({bgcolor,(white,eeeeff)[$t++%2]},[checkbox($F,0,$_,''),a({href,$l},$_) ,$s,"".localtime((stat)[9])])}sort grep!/^\./,readdir D]),(map{submit$_}$M,$C, $R),endform,end_html http://medaka.5ch.net/te
st/read.cgi/php/1036141603/95
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
97: nobodyさん [sage] 02/11/28 11:46 ID:??? >困りました。:) ごめん。パズルに夢中でperl -cしかチェックしてなかったｗ 書きこみ、 新規ページ作成 テスト、以後気を付けます。テスト書こうっと ＨＴＭＬの構文チェックもしてません。出力はCGI.pm任せなので、 少なくともwelformedにはなってるはずだけど・・ 7wiki.cgi 6行76桁 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;p
rint 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").textarea(z,$m,6,60),br,submit.endform.hr.$_,end_html http://medaka.5ch.net/test/read.cgi/php/1036141603/97
98: nobodyさん [sage] 02/11/29 06:36 ID:??? >>97 うん、well-formed ではあるけど、pre に hr や ul が入ってるから valid じゃないよね。 別にいちゃもん付けてるんじゃ無くて、七行に収まってる状態で更に 数 byte の為に valid な出力を諦めるか否かは好みの問題だから、 何としても縮める方針でやってるのかな、と。挙動が変更されたコード 見たら、何を意図してるか大体分かるでしょ。 で、俺は shebang 込みで七行派だから、7wiki.cgi に関しては >>97 か 下ので完成気分。shebang 無し七行で続けるなら、それはそれで参加 さ
せてもらうけどね。 #! perl -w 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"),textarea(z,$m,6,60),br,submit,endform,hr,$
_,end_html http://medaka.5ch.net/test/read.cgi/php/1036141603/98
99: nobodyさん [sage] 02/11/29 08:01 ID:??? 7files.cgi use CGI':all';*p=*param;($c=$f=script_name)=~s|/[^/]+$||;$d=path_info;opendir D ,$e=".$d/";sub cp{}$F=p(F);$N=$e.p(N);($_=p(S))=~/MV/?rename$F,$N:/CP/?cp$F,$N: /RM/?unlink$F:0;put header,start_html('7files'),startform(0,"$f$d"),table(Tr[ map{$i="$d/$_";($l,$s)=-d".$i"?($f.$i,DIR):($c.$i,-s _);td({bgcolor,(silver, white)[$t++%2]},[checkbox(F,0,".$i",''),a({href,$l},$_),$s,"".localtime((stat)[ 9])])}sort grep!/^\./,readdir D]),textfield(N),map(submit(S,
$_),MV,CP,RM), endform,end_html rename 実装。copy が悩み処ですな。 http://medaka.5ch.net/test/read.cgi/php/1036141603/99
100: nobodyさん [sage] 02/11/29 08:04 ID:??? rename の仕方: 変更したいファイルにチェック、textfield に変更後の名前を入れて MV http://medaka.5ch.net/test/read.cgi/php/1036141603/100
101: nobodyさん [sage] 02/11/29 09:06 ID:??? >>98 お疲れ様 && ありがとう。色々と勉強になりました。 no strict で bare word 使い始めた当たりから 短くすることを優先させてました。use strictなしって時点で すでに気持ち悪かったｗので「汚くても動けばいいや」って感じだった ＨＴＭＬもチェックしていなかった位だから、当然拘っていませんでした （HTMLは、7行って時点で最初から諦めていたかもしれない ただ、valid な出力にするとなると、 CGI.pm の textarea が rows,colsの属性の値をクオートしない。 br, hr は、p,div,h[1-
6] 等の親要素が必要 等々、新たな課題が出てくるんじゃないかな？ http://medaka.5ch.net/test/read.cgi/php/1036141603/101
102: nobodyさん [sage] 02/11/29 09:30 ID:??? 動作チェックしてないけど。 use File::Copy; sub cp{ map{ -f$_&©($_,"copy_of_$_") }p(F) } http://medaka.5ch.net/test/read.cgi/php/1036141603/102
103: nobodyさん [sage] 02/11/29 11:06 ID:??? >>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. http://medaka.5ch.net/test/read.cgi/php/1036141603/103
104: nobodyさん [sage] 02/11/29 11:54 ID:??? >>102 そか…モジュールという手が…。(´Д｀; use CGI':all';use File::Copy;$d=path_info;($c=$f=script_name)=~s|/[^/]+$||;*p=* param;opendir D,$e=".$d/";$F=p(F);$N=$e.p(N);$w=($_=p(S))=~/MV/?rename$F,$N:/CP /x?copy$F,$N:/RM/?unlink$F:1;put header,start_html('7files'),startform(0,"$f$d" ),table(Tr[map{$i="$d/$_";($l,$s)=-d".$i"?($f.$i,DIR):($c.$i,-s _);td({bgcolor, (silver,white)[$t++%2]},[checkbox(F,0,".$i",''),a({href,$l},$_),$s,"".localtime ((stat)[9])])}
sort grep!/^\./,readdir D]),textfield(N),map(submit(S,$_),MV,CP, RM),endform,end_html copy の仕方も rename と一緒。 http://medaka.5ch.net/test/read.cgi/php/1036141603/104
105: nobodyさん [sage] 02/11/30 03:07 ID:??? > ありゃ。本当に全然拘ってなかったのね。w えぇ。行末の桁揃えに夢中だったので。。ｗ use CGI':all';use File::Copy;$d=path_info;*p=*param;opendir D,$e=".$d/";$F=p(F) ;$N=$e.p(N);($_=p(S))=~/MV/?move$F,$N:/CP/?copy$F,$N:/RM/?unlink p(F):1;($c=$f= script_name)=~s|/[^/]+$||;put header,start_html('7files'),startform(0,$f.$d), table(Tr[map{$i="$d/$_";($l,$s)=-d".$i"?($f.$i,DIR):($c.$i,-s _);td({bgcolor,( white,silver)[$t^=1]},[checkbox(F,0,".$i",''),a({href,$l},$_)
,$s,"".localtime(( stat)[9])])}sort grep!/^\./,readdir D]),textfield(N),map(submit(S,$_),MV,CP,RM) ,endform,end_html - rename --> File::Copy#move に変更。 ファイルをチェックして、テキストにディレクトリ名を入れてＭＶで ファイルをディレクトリに移動します。 = TODO mkdir, rmdir http://medaka.5ch.net/test/read.cgi/php/1036141603/105
106: nobodyさん [sage] 02/12/01 01:22 ID:??? mkdir, rmdir 実装。特にヒネりもなく…。 use CGI':all';use File::Copy;$d=path_info;($c=$f=script_name)=~s|/[^/]+$||;*p=* param;opendir D,$e=".$d/";$F=p(F);$N=$e.p(N);$_=p(S);/MV/?move$F,$N:/CP/?copy$F ,$N:/RM/?unlink$F:/MD/?mkdir$N,511:/RD/?rmdir$F:1;put header,start_html('7files '),startform(0,$f.$d),table(Tr[map{$i="$d/$_";($l,$s)=-d".$i"?($f.$i,DIR):($c.$ i,-s _);td({bgcolor,(white,silver)[$t^=1]},[checkbox(F,0,".$i",''),a({href,$l}, $_),$s,"".localtime((stat
)[9])])}sort grep!/^\./,readdir D]),textfield(N),map( submit(S,$_),MV,CP,RM,MD,RD),endform,end_html table を何とかせんと、劇的には縮まらな気。 http://medaka.5ch.net/test/read.cgi/php/1036141603/106
107: nobodyさん [sage] 02/12/01 05:42 ID:??? bgcolorを削って、chdirにしてみた・・ use CGI':all';use File::Copy;$d=path_info;*p=*param;chdir".$d";$N=p N;$F=p F;$_ =p S;/MV/?move$F,$N:/CP/?copy$F,$N:/RM/?unlink$F:/MD/?mkdir$N,511:/RD/?rmdir$F: 1;opendir D,".";($c=$f=script_name)=~s|/[^/]+$||;put header,start_html('7files' ),startform(0,$f.$d),table(Tr[map{td[checkbox(F,0,$_,''),a({href,-d$_?"$f$d/$_" :"$c$d/$_"},$_),-s||DIR,"".localtime((stat)[9])]}sort grep!/^\./,readdir D]), textfield(N),map(submit(S,$_),
MV,CP,RM,MD,RD),endform,end_html p(F); を p F; って表記するのも環境／バージョンに依存するのかな？ http://medaka.5ch.net/test/read.cgi/php/1036141603/107
108: nobodyさん [sage] 02/12/01 07:42 ID:??? give up 気味。(´Д｀; use CGI':all';use File::Copy;$d=path_info;*b=*param;chdir".$d";$N=b N;$F=b F;%m =qw(MV move$F,$N CP copy$F,$N RM unlink$F MD mkdir$N,511 RD rmdir$F);eval$m{b S };opendir D,".";($c=$f=script_name)=~s|/[^/]+$||;put header,start_html('7files' ),startform(0,$f.$d),table(Tr[map{td[checkbox(F,0,$_,''),a({href,(-d$_?$f:$c). "$d/$_"},$_),-s||DIR,"".localtime((stat)[9])]}sort grep!/^\./,readdir D]), textfield(N),(map{submit S,$_}keys%m),endform,en
d_html param のエイリアスを b にしたのは、p 要素の p() を 使えるようにする為の布石。 > p(F); を p F; って表記 大丈夫っぽいです。 http://medaka.5ch.net/test/read.cgi/php/1036141603/108
109: nobodyさん [sage] 02/12/01 08:40 ID:??? ディレクトリは別にサイズ取れない訳じゃないので -s||DIR は駄目ですな…。 http://medaka.5ch.net/test/read.cgi/php/1036141603/109
110: nobodyさん [sage] 02/12/01 12:51 ID:??? >109 Win/ActivePerlだとディレクトリのサイズ０が返ってきていた これも環境に依存するのか。。 -d _?DIR:-s _ でok ? use CGI':all';use File::Copy;$_='$d=path_info;*b=*param;chz".$d";$N=b N;$F=b F; %m=qw(MV move$F,$N CP copy$F,$N RM unlink$F MD mkz$N,511 RD rmz$F);eval$m{b S} ;openz D,".";($c=$f=script_name)=~s|/[^/]+$||;put header,start_html("7files") ,startform(0,$f.$d),table(Tr[map{td[checkbox(F,0,$_,""),a({href,(-d$_?$f:$c) ."$d/$_"},$_),-d _?DIR:-s _,"".local
time((stat)[9])]}sort grep/^[^.]/,readz D]),textfield(N),(map{submit S,$_}keys%m),endform,end_html';s/z/dir/g;eval 置換してスクリプト長くなってるし。。。そろそろ give up >108 のファイルサイズを直して、完成かな http://medaka.5ch.net/test/read.cgi/php/1036141603/110
111: nobodyさん [sage] 02/12/01 14:28 ID:??? せっかくだから空ファイル作成 (MF) など付けてみる。 use CGI':all';use File::Copy;$d=path_info;*b=*param;chdir".$d";$N=b N;$F=b F;%m =(qw(MV move$F,$N CP copy$F,$N RM unlink$F MD mkdir$N,511 RD rmdir$F MF),'open F,">$N"');eval$m{b S};opendir D,".";($c=$f=script_name)=~s|/[^/]+$||;put header ,start_html("7files"),startform(0,$f.$d),table(Tr[map{td[checkbox(F,0,$_,""),a( {href,(-d$_?$f:$c)."$d/$_"},$_),-d$_?DIR:-s,"".localtime((stat)[9])]}sort grep! /^\./,readdi
r D]),p(textfield(N),map{submit S,$_}keys%m),endform,end_html http://medaka.5ch.net/test/read.cgi/php/1036141603/111
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
113: nobodyさん [sage] 02/12/02 07:39 ID:??? 7rss.cgi > item(title($_),link"$s.$_")." < item(title($_),link"$s.cgi/$_")." http://medaka.5ch.net/test/read.cgi/php/1036141603/113
114: nobodyさん [sage] 02/12/02 08:06 ID:??? #7search.cgi - v0.02 fixed some bugs use CGI':all';($c=$f=script_name)=~s|/[^/]+$||;$s=param S;if($s){opendir D,"."; map{$t=$_;if(open F,$t){eval{flock F,2};while(<F>){chomp;if(/\Q$s\E/io){push@r, li(a({href,"$c/7wiki.cgi/$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 - v0.02 show latest 15 articles use CGI qw/:all channel item tex
tinput 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.cgi/$_"}sort{-M$a<=>-M$b}grep /^[^.]+$/,readdir D)[0..14],textinput(title($w),link("$s/7search.cgi"),name S), "\n</rdf:RDF>"; http://medaka.5ch.net/
test/read.cgi/php/1036141603/114
115: nobodyさん [sage] 02/12/02 17:31 ID:??? # 7rss.cgi v0.03 use CGI qw/:all channel item textinput link name/;opendir D,".";$w='7wiki';($p) =url=~m|^(.+)/[^/]+$|;put header('text/xml'),qq|<?xml version="1.0"?>\n<rdf:RD| ,'F xmlns:rdf="http://www.w3c.org/1999/02/22-rdf-syntax-ns#" xmlns="http://my.' ,'netscape.com/rdf/simple/0.9/">',channel(title($w),link"$p/$w.cgi"),(map{item title($_),link"$p/$w.cgi/$_"}sort{-M$a<=>-M$b}grep/^[^.]+$/,readdir D)[0..14], textinput(title($w),link("$p/7se
arch.cgi"),name S),"\n</rdf:RDF>"; http://medaka.5ch.net/test/read.cgi/php/1036141603/115
116: nobodyさん [] 02/12/21 03:14 ID:RF/wn3c8 7threadｷﾎﾞﾝﾇ http://medaka.5ch.net/test/read.cgi/php/1036141603/116
117: nobodyさん [sage] 02/12/30 09:38 ID:??? 拙作をまとめていた isweb のサイト、広告ウザいので引っ越し。 ついでに配布体裁整え。http://calorymate.s15.xrea.com/ 7wiki と 7files 、参加作という事でサイトに載っけていいですか? http://medaka.5ch.net/test/read.cgi/php/1036141603/117
118: 'a';$happy = new Year; [sage] 02/12/31 15:36 ID:??? >>117 Take It free. ＜一応、ベースとなるものを書いたモノです 自分が代表してﾚｽしていいのかわかんないけど ＆＆ このスレッド的にはどうなのか知らないけど・・・、 このまま過去ログに埋もれて日の目を見ないよりも、 公開して保守して貰えるのなら、そっちの方がいいよな て事でお願いします。 ついでに、7rss, 7search も載せてもらえるとうれしいな。 package Year;sub new{bless{},shift} http://medaka.5ch.net/test/read.cgi/php/1036141603/118
ﾒﾓ帳
(0/65535文字)
上
下
前
次
1-
新
書
関
写
板
覧
索
設
栞
歴
あと 334 ﾚｽあります
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.027s