【Perl】掲示板を使ろう！

【Perl】掲示板を使ろう！ (504ﾚｽ)
上下前次 1-新

88(1): 名無しさん＠お腹いっぱい。 2001/07/17(火)19:13 ID:??? AAS
なして最悪？

89: 名無しさん＠お腹いっぱい。 2001/07/17(火)22:22 ID:??? AAS
>>85
> while (<FILE>)よりも@line <FILE>のほうが
なんでそんな結論になったのか知らないけど、普通ダメ。過去ログ読めよ。
> ANHTTP環境ではflock不可
HTTPDとflockは関係ありません。
> 全読み＞全書き込みvs追加モード
質問の意味がわかりません。

なんか基本的なところがわかってないんじゃない？
CGI-MLとかの過去ログでも漁って勉強してきましょう。

>>88
省1

90(1): 名無しさん＠お腹いっぱい。 2001/07/18(水)01:34 ID:??? AAS
>>85
> while (<FILE>)よりも@line <FILE>のほうが、読み込み時に
> 早くcloseを行うのでよさげ
いくらclose()したって、ねぇ…。
89さんの言う通り、避けるべきかと。
「負荷」とか「メモリ」という言葉を（以下略

91(3): 名無しさん＠お腹いっぱい。 2001/07/18(水)13:28 ID:aJuOjafs(1) AAS
>>90
それは今になってみたら分かります。が、
初心者はこんなことを思っていたという、、、、。

＞> ANHTTP環境ではflock不可
＞HTTPDとflockは関係ありません。
御免なさい、WIN95＋ActivePerl+〜というべきでした。

＞> 全読み＞全書き込みvs追加モード
＞質問の意味がわかりません。
何で追加モードがあるのに、わざわざ全読み全書き込みするのか､という
ことです。

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

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

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

ぬこの手ぬこTOP 0.012s