【Perl】掲示板を使ろう！ (504ﾚｽ)
上下前次1-新
92: 名無しさん＠お腹いっぱい。 2001/07/18(水)19:10 ID:??? AAS
>>91
つまり貴方には「全読み込み+全書き込み」と「追加書き」が同じ様に思えると？
正直ワケ分かりませんが。
93: 名無しさん＠お腹いっぱい。 2001/07/19(木)04:20 ID:??? AAS
>>91
追加は追加。増える一方。
書き換えも行わない。
全読み全書きは、中途での処理の可能性を残している。
本当に全部書いてるのか？
加えて、書き換えてるんなら同じじゃない。
実際にテストして考えてから書き込んでくれ。
94(2): 名無しさん＠お腹いっぱい。 2001/07/19(木)04:23 ID:??? AAS
>>91
flockは evalかけろ。
95(1): 名無しさん＠お腹いっぱい。 2001/07/19(木)13:12 ID:??? AAS
（既存の掲示板スクリプトは）何で追加モードが・・・
ってこと？
そういうのばかりでもないし、そうする必要があるのかもしれないし、
ただ馬鹿なだけかもしれない。
どっちにしろ他人のスクリプトなんてどうで良い。
96(1): 名無しさん＠お腹いっぱい。 2001/07/19(木)15:48 ID:??? AAS
>>94
flockはevalかけるな。
97: 名無しさん＠お腹いっぱい。 [＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿] 2001/07/19(木)17:50 ID:??? AAS
.
98: 名無しさん＠お腹いっぱい。 2001/07/19(木)19:13 ID:FUSlV7zU(1) AAS
>>95
納得｡ レス感謝
あとはレス行為に感謝
99: 名無しさん＠お腹いっぱい。 2001/07/19(木)21:37 ID:1tfXBWXc(1) AAS
>>96 >>94
どっちなの
100(1): 名無しさん＠お腹いっぱい。 2001/07/19(木)21:44 ID:??? AAS
eval{flock(FILE,2)};
eval{flock(FILE,8)};
flockはevalをかければ非対応の環境でも致命的エラーにならない。
101: 名無しさん＠お腹いっぱい。 2001/07/19(木)21:54 ID:??? AAS
そんな貴方に
set PERL5OPT=-m-flock
flock.pmは自分で用意してね♥
102: 名無しさん＠お腹いっぱい。 2001/07/20(金)00:21 ID:??? AAS
>>100
その代わり実は効いていないのに気がつかない可能性がある
103(4): 名無しさん＠お腹いっぱい。 2001/07/20(金)01:19 ID:AwYw1thE(1/4) AAS
#!/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行
104: 103 2001/07/20(金)01:29 ID:AwYw1thE(2/4) AAS
一時間で書いたから最低なソースだ。
素人丸出し。
でも一応動く。
動けばいいよね。
だめ？
105: 名無しさん＠お腹いっぱい。 2001/07/20(金)01:32 ID:WE74UShE(1/2) AAS
？
106: 名無しさん＠お腹いっぱい。 2001/07/20(金)01:34 ID:WE74UShE(2/2) AAS
あっ 掲示板か ゴメ
107: わ、 2001/07/20(金)03:36 ID:O.8zSDuM(1) AAS
age
108: 103 2001/07/20(金)21:47 ID:AwYw1thE(3/4) AAS
#!/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;
少しだけ短くなったかな？
109: 103 = 108 2001/07/20(金)22:30 ID:AwYw1thE(4/4) AAS
なんかアドバイスきぼーん。
もっと短くしたいです。
110: 名無しさん＠お腹いっぱい。 2001/07/20(金)22:33 ID:??? AAS
CGI.pmをつかって「もっと短く」と言われてもなぁ…と思ってしまう。
111: 103 2001/07/21(土)10:50 ID:??? AAS
#!/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はデフォルトで自分自身らしい。
名無しさん => 名無し #これはどうでもいいか・・・。
これで横に長いが何とか４行
上下前次1-新書関写板覧索設栞歴
あと 393 ﾚｽあります
ｽﾚ情報 赤ﾚｽ抽出 画像ﾚｽ抽出 歴の未読ｽﾚ AAｻﾑﾈｲﾙ
ぬこの手 ぬこTOP 0.014s