【Perl】掲示板を使ろう！ (506ﾚｽ)
【Perl】掲示板を使ろう！ http://medaka.5ch.io/test/read.cgi/php/988890976/
上
下
前
次
1-
新
通常表示
512ﾊﾞｲﾄ分割
ﾚｽ栞
92: 名無しさん＠お腹いっぱい。 [sage] 2001/07/18(水) 19:10 ID:??? >>91 つまり貴方には「全読み込み+全書き込み」と「追加書き」が同じ様に思えると？ 正直ワケ分かりませんが。 http://medaka.5ch.io/test/read.cgi/php/988890976/92
93: 名無しさん＠お腹いっぱい。 [sage] 2001/07/19(木) 04:20 ID:??? >>91 追加は追加。増える一方。 書き換えも行わない。 全読み全書きは、中途での処理の可能性を残している。 本当に全部書いてるのか？ 加えて、書き換えてるんなら同じじゃない。 実際にテストして考えてから書き込んでくれ。 http://medaka.5ch.io/test/read.cgi/php/988890976/93
94: 名無しさん＠お腹いっぱい。 [sage] 2001/07/19(木) 04:23 ID:??? >>91 flockは evalかけろ。 http://medaka.5ch.io/test/read.cgi/php/988890976/94
95: 名無しさん＠お腹いっぱい。 [sage] 2001/07/19(木) 13:12 ID:??? （既存の掲示板スクリプトは）何で追加モードが・・・ ってこと？ そういうのばかりでもないし、そうする必要があるのかもしれないし、 ただ馬鹿なだけかもしれない。 どっちにしろ他人のスクリプトなんてどうで良い。 http://medaka.5ch.io/test/read.cgi/php/988890976/95
96: 名無しさん＠お腹いっぱい。 [sage] 2001/07/19(木) 15:48 ID:??? >>94 flockはevalかけるな。 http://medaka.5ch.io/test/read.cgi/php/988890976/96
97: 名無しさん＠お腹いっぱい。 [＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿] 2001/07/19(木) 17:50 ID:??? . http://medaka.5ch.io/test/read.cgi/php/988890976/97
98: 名無しさん＠お腹いっぱい。 [] 2001/07/19(木) 19:13 ID:FUSlV7zU >>95 納得｡ レス感謝 あとはレス行為に感謝 http://medaka.5ch.io/test/read.cgi/php/988890976/98
99: 名無しさん＠お腹いっぱい。 [] 2001/07/19(木) 21:37 ID:1tfXBWXc >>96 >>94 どっちなの http://medaka.5ch.io/test/read.cgi/php/988890976/99
100: 名無しさん＠お腹いっぱい。 [sage] 2001/07/19(木) 21:44 ID:??? eval{flock(FILE,2)}; eval{flock(FILE,8)}; flockはevalをかければ非対応の環境でも致命的エラーにならない。 http://medaka.5ch.io/test/read.cgi/php/988890976/100
101: 名無しさん＠お腹いっぱい。 [sage] 2001/07/19(木) 21:54 ID:??? そんな貴方に set PERL5OPT=-m-flock flock.pmは自分で用意してね♥ http://medaka.5ch.io/test/read.cgi/php/988890976/101
102: 名無しさん＠お腹いっぱい。 [sage] 2001/07/20(金) 00:21 ID:??? >>100 その代わり実は効いていないのに気がつかない可能性がある http://medaka.5ch.io/test/read.cgi/php/988890976/102
103: 名無しさん＠お腹いっぱい。 [] 2001/07/20(金) 01:19 ID:AwYw1thE #!/usr/local/bin/perl use CGI $a=new CGI;print"Content-type: text/html\n\n<form action=n.cgi>"; print"<input name=n><input name=t>\n";$n=$a->param('n'),$t=$a->param('t'); if($t){$t=~s/,|<|>|:/*/g;if(!$n){$n="名無しさん＠お腹いっぱい";}open(I,">>y"),print I"$n,$t\n";} open(I,"y"),@I=<I>;for($i=$#i;$i>$#i-10;$i--){($j,$k)=split(/\,/,$I[$i]),print"<hr>$j: $k";} 5行 http://medaka.5ch.io/test/read.cgi/php/988890976/103
104: 103 [] 2001/07/20(金) 01:29 ID:AwYw1thE 一時間で書いたから最低なソースだ。 素人丸出し。 でも一応動く。 動けばいいよね。 だめ？ http://medaka.5ch.io/test/read.cgi/php/988890976/104
105: 名無しさん＠お腹いっぱい。 [] 2001/07/20(金) 01:32 ID:WE74UShE ？ http://medaka.5ch.io/test/read.cgi/php/988890976/105
106: 名無しさん＠お腹いっぱい。 [] 2001/07/20(金) 01:34 ID:WE74UShE あっ 掲示板か ゴメ http://medaka.5ch.io/test/read.cgi/php/988890976/106
107: わ、 [] 2001/07/20(金) 03:36 ID:O.8zSDuM age http://medaka.5ch.io/test/read.cgi/php/988890976/107
108: 103 [] 2001/07/20(金) 21:47 ID:AwYw1thE #!/usr/local/bin/perl use CGI $a=new CGI;print$a->header,"<form action=n.cgi><input name=b><br><input name=c>";($b,$c)=($a->param('b'),$a->param('c')); if($c){$c=~s/<|>|:/*/g;if(!$b){$b="名無しさん";}open(A,">>d"); print A"<hr>$b:$c\n";}open(A,"d");@e=<A>;@f=reverse(@e);print @f; 少しだけ短くなったかな？ http://medaka.5ch.io/test/read.cgi/php/988890976/108
109: 103 = 108 [] 2001/07/20(金) 22:30 ID:AwYw1thE なんかアドバイスきぼーん。 もっと短くしたいです。 http://medaka.5ch.io/test/read.cgi/php/988890976/109
110: 名無しさん＠お腹いっぱい。 [sage] 2001/07/20(金) 22:33 ID:??? CGI.pmをつかって「もっと短く」と言われてもなぁ…と思ってしまう。 http://medaka.5ch.io/test/read.cgi/php/988890976/110
111: 103 [sage] 2001/07/21(土) 10:50 ID:??? #!/usr/local/bin/perl use CGI $a=new CGI;print$a->header,"<form><input name=b><br><input name=c>"; ($b,$c)=($a->param('b'),$a->param('c'));if($c){$c=~s/<|>|:/*/g;if(!$b){$b="名無し";} open(A,">>d");print A"<hr>$b:$c\n";}open(A,"d");@e=<A>;@f=reverse(@e);print @f; <form action=n.cgi> => <form> #actionはデフォルトで自分自身らしい。 名無しさん => 名無し #これはどうでもいいか・・・。 これで横に長いが何とか４行 http://medaka.5ch.io/test/read.cgi/php/988890976/111
ﾒﾓ帳
(0/65535文字)
上
下
前
次
1-
新
書
関
写
板
覧
索
設
栞
歴
あと 395 ﾚｽあります
ｽﾚ情報
赤ﾚｽ抽出
画像ﾚｽ抽出
歴の未読ｽﾚ
AAｻﾑﾈｲﾙ
Google検索
Wikipedia
ぬこの手
ぬこTOP
0.680s*