【Perl】掲示板を使ろう! at PHP【Perl】掲示板を使ろう! - 暇つぶし2ch■コピペモード□スレを通常表示□オプションモード□このスレッドのURL■項目テキスト100:名無しさん@お腹いっぱい。 01/07/19 21:44 eval{flock(FILE,2)}; eval{flock(FILE,8)}; flockはevalをかければ非対応の環境でも致命的エラーにならない。 101:名無しさん@お腹いっぱい。 01/07/19 21:54 そんな貴方に set PERL5OPT=-m-flock flock.pmは自分で用意してね♥ 102:名無しさん@お腹いっぱい。 01/07/20 00:21 >>100 その代わり実は効いていないのに気がつかない可能性がある 103:名無しさん@お腹いっぱい。 01/07/20 01:19 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行 次ページ最新レス表示レスジャンプ類似スレ一覧スレッドの検索話題のニュースおまかせリストオプションしおりを挟むスレッドに書込スレッドの一覧暇つぶし2ch