自作CGIを評価するスレ

**nobodyさん** · 03/06/24 15:40

↓これでもこわれる？（CSVの処理はPerlメモ参考にしてます）
use strict;
use Fcntl qw(:flock);
$tmpfile = "$datafile".".$$.". time() .".csv";　　#万が一リネーム失敗したときのために、
　　　　　　　　　　#ユニークなファイル名にしておく

open (LOCKF, ">$datafile"."_lockf") or die("cannot open:$!");　　#ロックファイルを作成する
　　　　　　　　　　#（★注：ロックファイルは、各CSVごとにユニークに）
　　flock (LOCKF, LOCK_EX);　　#ロックファイルをflockする
　　open(IN, "< $datafile") or die("cannot open:$!"); # 読みのみモードで開く
　　　　open(TMP,"> $tmpfile"); #テンポラリファイルを作成
　　　　　　while ($line = <IN>){
　　　　　　　　$line .= <IN> while ($line =~ tr/"// % 2 and !eof(IN));
　　　　　　　　$line =~ s/(?:\x0D\x0A|[\x0D\x0A])?$/,/;
　　　　　　　　@values = map {/^"(.*)"$/s ? scalar($_ = $1, s/""/"/g, $_) : $_}
　　　　　　　　 ($line =~ /("[^"]*(?:""[^"]*)*"|[^,]*),/g);
　　　　　　　　#必要なものだけをEUCにして、出力時にSJISにする
　　　　　　　　foreach $value (@values){
　　　　　　　　　　&jcode::convert(\$value, "euc");
　　　　　　　　};
　　　　　　　　#CSV形式に変換
　　　　　　　　$newline = join ',', map {(s/"/""/g or /[\r\n,]/) ? qq("$_") : $_} @values;

　　　　　　　　print TMP "$newline\n" ;#テンポラリファイルに１レコード書き込み
　　　　　　}
　　　　close TMP;
　　close IN;
　　unlink $datafile;
　　rename ($tmpfile, $datafile) or die ("cannot rename : $!");
close LOCKF;

**３７４** · 03/06/24 15:41

＞絶対壊れないファイルロックってある訳ない

この根拠がどこからくるのかわからないが、
少なくともとてつもないアクセス集中に対応できるように非ブロックモードで
タイムアウトを備えてないとまず無理だということは教えておこう。

**378** · 03/06/24 15:41

あ、EUCにしてからSJISにもどすの忘れてるけど、そこは気にしないで

**371** · 03/06/24 15:46

> どんなロックしててもファイルは壊れるんだから、

そんなことはない。

というか、上(大崎氏の)のルーチンでファイル壊れたんならファイルシステムに
不備があるか、打ち間違いがあるかパーミッションやらの設定を誤ってるかどれか。
ファイルシステム上でrenameが衝突しないという条件の元でならうまく行くはず。

アクセス集中でファイルが壊れるのはロックの機構に不備がある
だけで、正しい状況下で行われたUNIX系OSでのflockでは、ファイルシステム
にバグがあるか、ファイルシステム自体のクラッシュでもない限り壊れない。

>>375
flockはNFS越しの場合に失敗するから、ファイスシステムを予め
調べておく必要がある。
NFS越しだとPOSIXモジュール使うかfcntl使う必要があった気がする。

>>376
> どんなに集中アクセスを受けても、
> 絶対壊れないファイルロックってある訳ない。
> あったら、ぜひ見て見たい。

非ネットワークファイルシステム＋UNIX系OSでのflock。stableなバージョン上で
これで壊れたって話は逆にあったら見てみたい。

**371** · 03/06/24 15:48

>>377
ネットワークファイルシステムを使ってる場合はね。
それ以外で壊れるという話は(ファイルシステム開発中のバグ以外は)
聞いたことない。再現できたら結構すごいと思うが。

**371** · 03/06/24 15:54

変な憶測並べる前にFAQくらいみんな読もうよ。

http://elib.cs.berkeley.edu/~loretta/perl/nmanual/pod/perlfaq5/How_can_I_lock_a_file_.html

**nobodyさん** · 03/06/24 18:50

追加書き込みすれば壊れない。

**371** · 03/06/24 19:10

>>384
2つのプロセスが同時に追加書込しようとしたら、
その部分は壊れるよ。

**nobodyさん** · 03/06/24 20:17

>>371
って言うかOSが関与しないファイルロックで信頼できるアルゴリズムってあるの？

**nobodyさん** · 03/06/24 20:18

>>385
何を以て壊れるとするかだな。

**378** · 03/06/24 20:27

>>378
はどうですか？

**nobodyさん** · 03/06/24 20:34

>>388
ええ、ばっちりシステムコールのflockがいらっしゃいますね。

**371** · 03/06/24 20:45

>>386
symlinkにしろ、rewriteにしろ、mkdirにしろ、OSがファイルシステム上で衝突しないように
設計されているという大前提で作られてるし、実際衝突するかどうかはOS次第なので、
OSに非依存で汎用可能なアルゴリズムっていうのは原理的に不可能じゃないかと。

**nobodyさん** · 03/06/24 20:47

>>390
その意見には激しく同意。
じゃあ、議論するだけ無駄だと思うわけだ。

**nobodyさん** · 03/06/24 20:48

＞OSがファイルシステム上で衝突しないように設計されているという大前提で作られてるし。

OS側でAtomicでもプログラム側がそうでなけりゃ・・・。

**nobodyさん** · 03/06/24 21:00

>>373-392
スレ違い。
ファイルロックについてのスレあるから、
そこで熱く語ってくれ。

**nobodyさん** · 03/06/25 00:00

require './my_flock.pl';
while (1) {

　　while ( not defined ($lock = &my_flock()) ) {};
　　　　open (IN, "./count.txt");
　　　　$data = <IN>;
　　　　close (IN);
　　&my_funlock($lock);

　　print ++$data. "\n";

　　while ( not defined ($lock = &my_flock()) ) {};
　　　　open (OUT, ">./count.txt");
　　　　print OUT $data. "\n";
　　　　close (OUT);
　　&my_funlock($lock);

　　if ($data >= 10000) {
　　　　last;
　　}
}

>>371のその辺のファイルロックを別ファイルに取って呼び出してる。
これを、二つのプロセスで実行してみろ。
無事に10000までカウントなんぞできんぞ。

**３７４** · 03/06/25 00:21

>>394
まともに使えないならいっそ使わないほうが・・・

**nobodyさん** · 03/06/25 00:39

>>395
はぁ？
全体に一度だけかけろとか言うのか？
それでも壊れる。

何がまともに使えないだよ・・・
ルーチン呼び出すのに使えるも使えないもないだろヴォケ。
文句言う前に試せやハゲ。
試して、壊れなかったら文句言いにこいや。

**３７４** · 03/06/25 00:47

ルーチンをまともに使えないﾔｼが晒されるスレはここでつか？

**nobodyさん** · 03/06/25 00:57

>>397
だから。
試せってよ・・・。
試しもしないで、使えてねーとか、使い方悪いとか。
そんな事言われても、説得力ねーっちゅーの。

こういう使い方したらファイル壊れないとか、
このタイミングでルーチン呼び出したら大丈夫だとか、

まー試しもしないで語ってるヤツに、
ロクな答えなんて返ってきそうにないけどな。

**371** · 03/06/25 00:59

>>396
> 全体に一度だけかけろとか言うのか？

だってそうしないとカウントが飛んじゃうでしょ。

> 試して、壊れなかったら文句言いにこいや。

一度に5プロセス動かして1000までやってみたけど壊れないね。
FreeBSD2.2.2 + Perl5.6.0だけど。

OS何使ってて壊れるの？ > 396

**371** · 03/06/25 01:03

プロセスを7つに増やしてテスト中。
時々ロックファイルが消えるな・・・。renameしかしてないはずなので、
ファイルシステムのバグか？

でもデータが壊れるということは今のところない模様。テスト続行中。

**371** · 03/06/25 01:13

FreeBSD2.2.8 + Perl 5.6.0でも実験したところ、20000件超えてるけど、特に問題なし。
FreeBSD2.2.2の方も、10000件行ってエラーなし。
合計30000件実験してみたけど衝突は起こってない模様(プロセスの譲り合いで片方のプロセスが
ブロックする現象は見られたが)。

単にrenameシステムコールが衝突するようなファイルシステムを持つOSを使ってるだけ
とか、そういうオチじゃなくて？>>398

**371** · 03/06/25 01:22

ファイルが消える現象は、ロックファイルをディレクトリにすることで回避
# mkdir lockdir/lockfile

で、20プロセス同時起動で、30000件やってみたけど、全く問題なし。
さすがに30000回連続で20プロセスが同時に1つのファイルにアクセス
する状況はありえないだろうから、少なくともウチの環境上では
きちんとロック機構が機能してると思われる。

で、たった2プロセス同時起動で10000件持たないファイルシステムを
持つ環境がどんな環境なのかとても気になるので早く教えてください>>398
あなたの言う条件↓は満たしましたよ。

> 文句言う前に試せやハゲ。
> 試して、壊れなかったら文句言いにこいや。

**nobodyさん** · 03/06/25 01:30

おっと、ご苦労さん。
マジで？
ファイル壊れない？
こっちの環境は、Win2kだけど。

> 単にrenameシステムコールが衝突するようなファイルシステムを持つOSを使ってるだけ
んな訳ない。
2kで、そんなバグ聞いた事ない。

ずっとテスト環境は2kだったからなぁ～。
とりあえず、こっちもVineの環境があるから、そっちでも試す。

>で、たった2プロセス同時起動で10000件持たないファイルシステムを
>持つ環境がどんな環境なのかとても気になるので早く教えてください>>398
煽りですか。
あんた、一言多いね。

**371** · 03/06/25 01:49

> こっちの環境は、Win2kだけど。

多分そのせいじゃないかなぁ。ファイルシステム何になってます？
こっちは今のところ30プロセス同時起動で30万件ノンストップで突破してるので、
スクリプト自体に問題があるとは思えない。
まぁ、このルーチンはrenameの堅牢性に頼ってるので、その点において汎用性は
薄いということを証明する形にはなったかも。

> 2kで、そんなバグ聞いた事ない。

1秒間に同じファイルを数十回renameする必要性ってあまりないからなぁ。
renameのファイルの取り合いって普通の状況だとまず起こりえないし。
ソース読んだら分かると思うけど、renameの空振り以外に原因は考えにくい
ので、再現性あるなら追試してレポート出してみたら？

**nobodyさん** · 03/06/25 02:14

>>404
ファイルシステムは、もちろんNTFS
Vineで試してみた。
たしかに、2kの時は途中ファイルが壊れてカウントが１に戻ったりしたけど、
Vineはそんな事なかった。
・・・が、おかしい。
３つのプロセスで動かしたが、ログがおかしい。
同じ数字のカウントをする場面がある。
３つのプロセスでカウントしていったら、
同じ数字がカウントのログとして出るのはおかしいでしょ？

そっちでは、ちゃんとカウントしていってる？

**371** · 03/06/25 02:28

>>405
>>394のソース直した？部分的でなく、全体をロックで囲まないと誤動作するよ。
print文の直上直下にあるunlockとlockの2行を外せばうまく行くと思う。

**nobodyさん** · 03/06/25 02:44

>>406
あ・・・悪い。
修正してなかった。
ちゃんと動いてる。
もっと沢山のプロセスと、もっと沢山のループで試したかったけど、
Vineが入ってるPCのCPUが弱いんでやめた。

なんだ・・・今回の実験で、2kがいかに糞なのかが証明されたのか・・・？

結果は、壊れないファイルロックが存在したって事か？
・・・俺が、間違ってますた。　ｽﾏｿ

**371** · 03/06/25 11:01

>>407
> 結果は、壊れないファイルロックが存在したって事か？

昨日、あのまま30プロセス同時起動のまま寝て、今朝見たら400万件を
突破してました。もちろんノンストップで。

30プロセスが400万回連続で殺到しても平気だということなんで、
少なくともウチの環境では、ほぼ「絶対に壊れないロック機構」と言い切って
差し支えないと思う。

どうでもいいけど、このテストスクリプトだと、count.txtを書き込みオープンした
瞬間にプロセスが落ちるとカウンタリセットされるよね。堅牢なスクリプトを作ろうと
思ったらそこまで気を遣う必要があるかも。

>>377
flockに書き換えて同じ事やってみたけど、20プロセス10万件で壊れずに
行ってます。やっぱりOSの問題か、flock over networkが原因ではないかと。

スレ違いなようなので、この辺で。

**nobodyさん** · 03/06/25 14:12

結論的には何が一番？

**368** · 03/06/25 18:02

>>393さんがおっしゃってる通りたしかにスレ違いですが、
とても興味深い話題をありがとうございます。

>>402さんがおっしゃってることを試す価値はありそうなので、
とりあえずファイルを使うロックから、
ディレクトリを使うロックに変えてみたいと思います。

**nobodyさん** · 03/06/25 22:47

>>410
ないよ。flockが一番。

**nobodyさん** · 03/06/25 22:57

>>411
NFS越しでも？

**nobodyさん** · 03/06/26 06:18

**nobodyさん** · 03/06/26 09:03

NFSなんか使うなよ(;´Д`)

**412** · 03/06/26 10:55

>>414
お客さんでそういうトコ、多いんですよ（萎
だから仕事でflock使う際は、インストール先の
OSとファイルシステムは必ず確認。

**nobodyさん** · 03/06/26 11:36

なるほど(;´Д`)

**nobodyさん** · 03/06/26 12:53

>>414
十分有り得るよ。うちの大学もそうだし。

**nobodyさん** · 03/06/26 21:01

>>417
レガシーな大学でつね。

◆5vUH/J4K/c · 03/07/05 05:02

**nobodyさん** · 03/07/06 16:49

別スレでrename失敗どうたらこうたら、言ってるんですが、
そんなにrename失敗することあるんですか？

**nobodyさん** · 03/07/06 16:50

権限がなければ

**nobodyさん** · 03/07/06 17:08

権限があれば100%renameできるんですね？

**nobodyさん** · 03/07/06 17:34

誰がそんなことを言った？

**nobodyさん** · 03/07/06 21:37

⇒と⇔の違い知ってるか？大馬鹿者>>422

**nobodyさん** · 03/07/06 21:38

L⇔R

**nobodyさん** · 03/07/06 21:48

横浜⇔東京

**nobodyさん** · 03/07/06 23:37

とんちんかんちん一休さんの>>422

**nobodyさん** · 03/07/06 23:40

将軍が彪の追い出しに成功してボリボリ食われちゃう一休さんの>422

**nobodyさん** · 03/07/07 11:59

-=⇒

**山崎渉** · 03/07/15 11:08

　__∧＿∧_
　|（　　＾＾）|　＜寝るぽ（＾＾）
　|＼⌒⌒⌒＼
　＼ |⌒⌒⌒~|　　　　　　　　　山崎渉
　　 ~￣￣￣￣

**nobodyさん** · 03/07/25 23:38

あげ

_ · 03/07/25 23:47

http://homepage.mac.com/hiroyuki44/hankaku09.html

**山崎渉** · 03/08/02 02:24

　　 ∧＿∧
　　（　　＾＾）＜ぬるぽ（＾＾）

**ぼるじょあ** ◆ySd1dMH5Gk · 03/08/02 04:52

　　　　∧＿∧　 ∧＿∧
ﾋﾟｭ.ｰ　（　・３・） (　　＾＾）＜これからも僕たちを応援して下さいね（＾＾）。
　　＝〔~∪￣￣￣∪￣￣〕
　　＝ ◎――――――◎ 　　　　　　　　　　　　　　　　　　　　　山崎渉&ぼるじょあ

**nobodyさん** · 03/08/06 01:58

まだ評価していただけますか？

**nobodyさん** · 03/08/06 02:05

どうぞ

**435** · 03/08/06 02:10

それでは。

ttp://www.42ch.net/UploaderSmall/source/1060103401.zip

昔作った掲示板です。今ではもうこんなにかけません。

**nobodyさん** · 03/08/06 02:44

>>437
ぱっとみですが、スコープや、名前空間を理解していらっしゃるのでよく勉強されてると思われます。
私の趣味的にはグロブを使わないようにするともっとよさげかと・・・

**nobodyさん** · 03/08/06 03:48

ttp://www.42ch.net/UploaderSmall/source/1060108917.zip
良かったらお願いします。
使い方はcgi呼び出して?ってリンク見ると大体書いてあります。
典型的な我流でCGIしか書いたことの無い人のソースだとは思います。
非常識な部分があればご指摘頂きたいです。

#普段タブ使っているのですが、環境に依存しそうなので
#アップの際に、全てスペースに変換しました。
#個人的な情報も消してあります。ご理解ください。

**向こうの472=475** · 03/08/06 10:05

>>439
コーディングスレの469さんか。(w

名前空間の扱いに振り回されてる感じがする。
基本的にパッケージ名や定数のハードコーディングは避けた方がいいし、
依存し合うものを別ファイルに分けると見通しが悪くなるだけだよ。

どうしても分けたいのなら各パーツはもっと役割分担を
はっきりさせて汎用性を上げ、OO なスタイルで組むが吉。

**nobodyさん** · 03/08/06 10:38

>>440
ここ過疎なので人すくなくてばれるだろうとは思ってました。。。
分けるのは、基本的に改造向けではじめました。
（HTML部分を分ける、とか。）
あと、機能追加のたびに追加したりとかって感じです。
最初はあまり深く考えないで分けていたんですが
最近えらい悩むようになってしまって
つきつめるとOOPにするしかないような気もしてきてしまします。

次になにか0から書くことがあったら、OOで書きたいとは思います。

これは今ある程度完成してしまってますし
身内で使ってくださる方がいるのであまりスタイルを変えるつもりはないです。

総書き直しでOOにしようとか毎晩のように思ったりするのですが
なかなか手出しする気力も時間も・・・

やっぱOOかー

**441** · 03/08/06 10:58

しかもコーディングスレであとで言われたとこ
直す前のうｐしてた　ｳﾜｰﾝ

**nobodyさん** · 03/08/12 15:36

>>442
age

**山崎渉** · 03/08/15 22:37

　　　 (⌒V⌒)
　　　│ ＾＾ │＜これからも僕を応援して下さいね（＾＾）。
　　⊂|　　　　|つ
　　　（＿）（＿）　　　　　　　　　　　　　　　　　　　　　　山崎パン

**nobodyさん** · 03/08/30 22:39

52 名前：nobodyさん：03/08/30 20:46 ID:???
>>50
自作CGIを評価するスレ
http://pc2.2ch.net/test/read.cgi/php/1049514428/

**nobodyさん** · 03/08/31 01:55

Blogの試作公開

http://ex.1000gex.net/blog.zip

common.phpで初期設定。

排他制御も何も入れてないがとりあえず動いた。
これからトラックバックを盛り込むけど難儀するだろうなぁ

**nobodyさん** · 03/08/31 02:19

何？評価して欲しいの？
ただの宣伝？

**nobodyさん** · 03/08/31 02:27

ダメ出しきのん。

SAFE_MODEでさっそく引っかかったが

**nobodyさん** · 03/08/31 02:54

微妙な物作るな

**ガイキチ厨房** · 03/08/31 06:44

PHPでカウンタを作ってみたのですが、どなたかご意見下さい。

http://popup3.tok2.com/home/program/cgi-bin/uploader/source/File:0011.txt

**nobodyさん** · 03/08/31 11:38

こちら素人だが、ざっと読んで気づいた点を。
script書き始めなら上々の滑り出しだと思う。

■L38の $ip のダブルクウォートは意図不明。

■” と ’ が混在してるけど、このスクリプトで使われてる ” は上記をのぞいて ’ に統一可能。

■L41は、$newdata = $newcont . '<>' . $_SERVER['REMOTE_ADDR'] ; と書けば十分なのでは。

■関数名とレフトブラケットの間に半角スペースがあったり無かったりする。これは趣味だから
どう書いてもいいと思うが、普通は入れない。制御語（ifとかforとか）の後には入れる。そうすることで
関数と制御構造を見分けやすくする。カラーリング機能のないエディタではこの方が見やすい気もする。
いずれにせよ、どっちかに統一したほうがよいと思われ。

■切り詰めを忘れている。ので、現データが 13<>127.127.127.127 で上書きデータが、14<>25.25.25.25 だった
場合、14<>25.25.25.257.127 に。書き込んだ後で、ftruncate(); を使ってファイルを切り詰める必要あり。

**nobodyさん** · 03/08/31 11:40

■L29の rewind(); は意図不明。
ログファイルが壊れる（例えば 8424<>127.0.0.1420<>127.0.0.8420<>127.0.0.842のように）から
入れたのなら、アイディアとしては◎だが、スマートな処理とはいえないかと。

■あと、排他制御にバグがあるのでは。
ロックがかかっていても、fopen(); も flock(); も、 warning や fatal error （noticeも）を吐かないため、
処理が続行する。排他制御になってもならなくてもこのスクリプトは処理を最後まで実行するので、flock(); は
ちゃんと働いてない。
実際には起こらないかも知れないが、論理上、ロックがかかっているために L32 の fgets(); が失敗して
$buf に false が入ってカウンターが0に戻る可能性がある。L26でロックが取れなかった場合、
つまり前のリクエストを処理中の可能性がある場合、書き込みをスキップするかスクリプトを終了
するかブロックモードで待機させる必要があると思う。http://jp.php.net/flockにあるとおり、flock(); は
失敗すると false を返す。

■同じ理由で、前のロックが邪魔してロックがかかっていないのに書き込みに進行してしまうことがある。
書き込みがいくつも重なると、dat の内容がが妙なことになる予感。ここらあたりを rewind(); が力技で
解消しているように見える。

**nobodyさん** · 03/08/31 21:50

本7に対してそこまでしなくていいのに

**nobodyさん** · 03/08/31 21:56

ちなみにサンプルページ

http://s2.arigato3.net/~hon7/blog/

ハイブリッドP2Pによるトラックバックを考えてます

**nobodyさん** · 03/09/01 00:56

まずsageろ
話はそれからだ

**nobodyさん** · 03/09/01 01:41

相変わらず発言が電波過ぎる…

**ガイキチ厨房** · 03/09/01 16:10

>>452

詳しく指摘していただきありがとうございます。
とりあえず''に統一し、関数名とレフトブラケットの間のスペースを
制御構造のみ入れるようにしました。

また、書き込み処理を行った後に、

　// ファイルを切り詰める
　ftruncate($fp, ftell($fp));

という処理を加えました。

ロックのバグについてなのですが、Googleで調べたところ、
flockはデフォルトでブロックモードになっているらしいのですが、

http://itbtech.itboost.co.jp/perl/perl_06.php

よろしくお願いします。

**ガイキチ厨房** · 03/09/01 18:57

すいませんURL間違えました。正しくはこちらです。

http://itbtech.itboost.co.jp/php/php_04.php

**nobodyさん** · 03/09/01 23:17

Perlでも評価してもらえます？

**nobodyさん** · 03/09/02 01:39

>>459
>>1

**nobodyさん** · 03/09/02 16:15

>457
ああごめん。Manualみたらおもっくそそう書いてあった、、。
flockでとまるから一般の環境なら多分大丈夫だね。
こっちの検証スクリプトの間違いなのでflockとrewindの話しはなかったことに。
秒間50リクエストくらいでは問題なかったです（php4.3.0 apache1.3.27 RHLinux）。
ftruncate ( $fp , ftell ( $fp ) ) ; は ( $fp , strlen ( $newdata ) ) ; なんちゅう書き方もある。

**ガイキチ厨房** · 03/09/02 19:51

なるほど、参考になりました。ありがとうございます。

**nobodyさん** · 03/09/03 02:03

とある会社の部活動のHPを管理している者です。

Web上で部の共有資産の貸し出し申し込み等の管理を行えるといいなぁ、と思いいろいろとCGIを探してはいるのですがなかなか見つかりません。
探しているのは、次のようなCGIです。

１．画面で借りたい物を選択・自分の名前・貸出期間等の入力、申し込み
２．画面上では「貸し出し中」等に表記が変化（それか削除されるなど、申し込みが行えない状態に変化）
３．sendmailが使えないサーバなので、申し込みがあったことをログに吐き出し、管理人が定期的にそれをチェックし貸し出す

こういうものです。
サーバはinfoseekのiswebでPerl、Python、Ruby、PHPが使えます。

ショッピングカートCGIを活用してもいいなと思ったのですが、sendmailを利用する物がほとんどで、上記のようにログにのみはき出す物はあったことはあったのですがシェアウェア（\15K！）でした。
それほど資産の数が多いわけでもなく、貸し出し回数もそんなに多くないので、15000円もかけるわけにはいきません。
出来れば無料、もしくは１～２千円程度で利用できるCGIがありましたら、教えてください。

よろしくおねがいします。

**nobodyさん** · 03/09/03 04:27

>>463
>>1

**sage** · 03/09/03 12:28

>464

463です

え～と。
スレ違いだ、ということですか…？

…すいませんでした。

**nobodyさん** · 03/09/03 13:26

sageはmail欄でｗ。
どっかに「こんなCGI探してます」的なスレあったハズだよ。

**nobodyさん** · 03/09/03 13:44

>>465
＞スレ違いだ、ということですか…？
スレ違いじゃないと思うんだったら自作CGIへのリンク貼れよ。
自作CGIを評価するスレなんだからさ。

**nobodyさん** · 03/09/03 18:02

【CGI】こんなCGI探してますver.10【素材】
http://pc2.2ch.net/test/read.cgi/hp/1059878840/l50
Web製作板でつ。

**463** · 03/09/04 00:28

>>464
>>467
ご迷惑をおかけしました。

>>466
>>468
そこに行ってみます。ありがとうございます

**nobodyさん** · 03/10/02 12:00

**nobodyさん** · 03/10/02 22:11

perlでRead-Write Lockを実装してみますた。

複数プロセスでの10,000件書き込み耐久試験もクリアしたっぽいです。
ただ、ちょっと遅いように感じるのですがどでしょ？

http://do.sakura.ne.jp/~junkroom/cgi-bin/megabbs/lounge/index.html

**nobodyさん** · 03/10/02 22:50

flockがあるし。

**nobodyさん** · 03/10/07 02:23

知識ゼロからがんばってXML化にこぎつけました。
スタイルシートだけでWebデザインが可能です。
PHP4+MySQL

http://arigato3.s36.xrea.com/x/bbs.php

**nobodyさん** · 03/10/07 03:18

>>473
すごいね。どのくらいすごいのかいまいちわからんけど。
どのくらい時間かかった？

**nobodyさん** · 03/10/07 04:42

>>474
http://pc2.2ch.net/test/read.cgi/hosting/1065223105/

以後放置で。

**nobodyさん** · 03/10/07 06:12

>>473
ダメXMLの見本として宣伝してもいいですか？っていうくらいダメなXML。

**手裏剣** · 03/10/07 06:29

だめ見本
http://www.muzie.co.jp/cgi-bin/artist.cgi?id=a016219

**nobodyさん** · 03/10/07 09:34

>>476=印刷屋をクビになったオヤジ

**nobodyさん** · 03/10/07 09:34

>>474
片手間で１週間ぐらい

**nobodyさん** · 03/10/07 18:52

> 知識ゼロからがんばって　XML化にこぎつけました。
　　　　　　　　　　　＿＿＿Λ＿＿＿＿
　　　　　　　　　　　｜知識ゼロのまま｜

**nobodyさん** · 03/10/07 21:30

常識や社会性は？

**nobodyさん** · 03/10/08 10:35

よいＸＭＬの見本が見たい。

**nobodyさん** · 03/10/19 04:34

●●●マスコミの「盗聴／盗撮」は許されるの？その４●●●　　　http://natto.2ch.net/mass/kako/994/994602694.html
62 名前：文責：名無しさん投稿日： 2001/07/10(火) 12:21
小型盗聴器、電話盗聴、web(電子メール)盗聴、郵便物の開封、
集合住宅の隣に引っ越してきて壁に聴診器、または集音マイクを向ける。
関係者からの聞き込み、ごみあさり、ストーキングにより行動パーターンの把握、
行動パターンを調べた上での待ち伏せ。全部、人海戦術を使えば十分可能です。

323 名前：文責：名無しさん投稿日： 2001/07/30(月) 20:48
集団で盗聴なり、付きまといなり、身辺調査なりした後で、集めた個人情報を利用して、
メディアを通じて本人にしかわからないように「監視してる」とほのめかしたり。
待ち伏せや尾行などしておいて、本人の前で「監視してるぞお～」と、嫌がらせをしてみたりする。
これを一定期間継続して繰り返す。
一定期間、上記の嫌がらせを繰り返すと、加害者がすでに嫌がらせをしていなくても、
被害者は、ずう～っと嫌がらせが続けられてると思い込んでしまう。
（痴漢の被害者が、外であった人が全員痴漢だと思い込むのと同じ）
それと同じように、ここのスレッドに書かれている、盗聴した情報を二次利用する嫌がらせを
やっていないときでも、被害者は自分から自分と関わりがある
情報をメディアから探し出して自分に関係があるのではないかとこじつけてしまう（関係妄想）。
関係妄想を引き起こすように嫌がらせを行うそれ自体がマインドコントロールの一過程である。
被害者が関係妄想を引き起こした時点で今度は精神病にかかったと噂を流して、さらにからかう真似をする。
ノイローゼになるように追い込んで、更に自殺するように持っていこうとする。　　　　　
被害者がこういった心理状態になるのを嫌がらせの関係者は経験的に知っているのだろう。

**nobodyさん** · 03/12/07 15:31

>>482
ここ
http://www.google.com/search?q=%E3%83%89%E3%83%A9%E3%82%A4%E3%83%9E%E3%83%86%E3%82%A3%E3%83%BC%E3%83%8B&ie=UTF-8&btnI=I%27m+Feeling+Lucky

**nobodyさん** · 03/12/09 13:27

すいません、午前中探したんですけど、見つかりませんでした。

パソコンと携帯３社兼用の掲示板で、スレッドまたはツリー表示でかつ
パスワードで入る人の管理が出来るＣＧＩご存じありませんか？
スレッド、パスワードどちらかだけだとあったんですが・・・。

**nobodyさん** · 03/12/10 13:25

誤爆でしたとさ

**ＳＥＲＡ** · 03/12/10 21:19

箱庭諸島PHP版の改造版、箱庭諸島S.Eを今日公開配布開始しました。

**nobodyさん** · 03/12/12 00:32

で、評価しろと？

**nobodyさん** · 03/12/19 17:18

http://erobon.e-un.jp/
これはどうでしょうか？
デザイン以外は自分で作りました。

**nobodyさん** · 03/12/19 19:33

>>489
ここはCGI評価スレです

**nobodyさん** · 03/12/20 01:11

>>490
CGIです。
サーバーサイドで動いているのでCGIです。
もっと勉強してください。

**nobodyさん** · 03/12/20 01:18

>>491
titleタグはmetaの後に書いてくらはい

**nobodyさん** · 03/12/20 01:26

>491-492 ネタは他所でやれよ馬鹿

**nobodyさん** · 03/12/20 01:27

>>492
いま検索して調べたら
metaタグの後にtitleタグを書いてました。

**nobodyさん** · 03/12/20 02:56

>>491
あのね、見た目とかを評価してもらうスレじゃないの
ソースを公開してちょうだい

**nobodyさん** · 03/12/20 02:58

> サーバーサイドで動いているのでCGIです。

CGIは動いたりしない。

**nobodyさん** · 03/12/20 03:19

＞もっと勉強してください。

悪代官が黄門様に無礼者と言ってるのを思い出しちゃったｗ

**nobodyさん** · 03/12/20 10:48

>>496
CGIとはWEBサーバーがWEBブラウザからの要求に応じてプログラム
を起動するための仕組みです。

”CGIは動いたりしない。”
馬鹿か？

**nobodyさん** · 03/12/20 10:49

>>498

俺は悪代官だよ~Ｗ~

**nobodyさん** · 03/12/20 13:51

>498-499

**nobodyさん** · 03/12/20 13:55

ヘタレが。

**nobodyさん** · 03/12/20 14:07

CGIはシステムでも仕掛けでもない。
インターフィエスの一仕様。

モジュールからプロセス作ることもできるが、
あれもCGI？

**nobodyさん** · 03/12/20 18:53

>>502
どうせperl=cgiとか
まだ思ってるアフォだろ？

**HTTP/1.1 200 OK** · 03/12/20 21:23

unlessはほかの言語と混同するからやめれ
とか書いてある本があった気がする
ほかの言語を使わなければいいだけの話なのに・・・

**nobodyさん** · 03/12/21 00:57

＞＞５０４
ﾏｼﾞ？

それって、if ははほかの言語と混同するからやめれというのと同じことだよね

**nobodyさん** · 03/12/21 15:53

汎用的なプログラミングの作法を身につける為なんじゃないかな？if だと他の言語でも大抵応用が効く。
同じような理由でperlの$_（暗黙の代入）はなるべく使うなとか書いてる本もあったよ。

**nobodyさん** · 03/12/22 08:45

>>506
なんだそりゃ？(藁
じゃあ混同しやすい elsif は使わないほうがいいってことか？

**nobodyさん** · 03/12/22 15:58

頭の弱いのが何人か・・

**nobodyさん** · 03/12/26 11:25

>>508
差別はｲｸﾅｲ!
何国ってのがどこのことだか知らんが，何国の人に失礼だよ(藁

**nobodyさん** · 03/12/26 20:54

>>509
ﾊｧ？
あたまのよわいのがなんにんか・・　って書いてあるが、どう読んだら何国の人になるんだ？

502,504,506,508が(ry

**nobodyさん** · 03/12/26 21:46

洒落だろ

**nobodyさん** · 03/12/27 06:08

>>510
「なにじんか」って読んだんだろ。>>511の言うように洒落だろうがつまらん。

**nobodyさん** · 03/12/31 15:09

表計算ができるランキングCGIを作ってみたので評価お願いします。
http://ssr.xrea.jp

けっこういい出来に仕上がったと思うけど、初めての人は操作にとまどうかも

**nobodyさん** · 04/01/05 13:20

>>513
落としたYo
とりあえず使えそう・面白そうな物だったら、朴らせてもらうわ（ｗ

**nobodyさん** · 04/01/12 07:57

age

**nobodyさん** · 04/01/17 13:56

携帯＆PC対応の掲示板作りました。
http://fine.tok2.com/home/moritomo/cgi/career/career_bbs.cgi
です。

**nobodyさん** · 04/01/17 14:22

>>516
それで金を取ろうと思う神経を疑うよ

**nobodyさん** · 04/01/17 18:12

上と下に出てる「1」って何だ？

**nobodyさん** · 04/01/17 19:01

>>516
http://fine.tok2.com/home/moritomo/cgi/accesstakelog.txt
http://fine.tok2.com/home/moritomo/cgi/admin_remote_log.txt
http://fine.tok2.com/home/moritomo/cgi/akusesu.txt
http://fine.tok2.com/home/moritomo/cgi/countlog.txt
http://fine.tok2.com/home/moritomo/cgi/hatugen.txt
http://fine.tok2.com/home/moritomo/cgi/newaccesslog.txt
http://fine.tok2.com/home/moritomo/cgi/newcount.txt
http://fine.tok2.com/home/moritomo/cgi/newdomain.txt

以下略

ヴァカですか？

**nobodyさん** · 04/01/17 19:15

>>516
ディレクトリ丸見えだねぇ

**nobodyさん** · 04/01/18 02:22

ところで、ちゃんと評価してるのって最初のほうだけだね。

**nobodyさん** · 04/01/18 03:41

>>521
・ここは見た目じゃなくコードを評価するスレだ。
・use strict; しろ。
・perlstyle 読め。
・デカいの持ってきても面倒だから読まんぞ。

…のどれかに該当していたら、まともなレスは返ってこない。

**nobodyさん** · 04/01/18 21:22

コードの見た目を評価するスレの間違い。

**>>516** · 04/01/25 15:17

DirectoryIndexの設定をしているtoktokも問題かと思うが。

Forbiddenにしたみたいだけど、
せめてファイル名変えなよ。

**nobodyさん** · 04/03/06 14:54

誰も居ない……ケチつけるなら今のうち。

if-elsifの書き方、
if{
..
}elsif{
..
}
より
if{
..
}
elsif{
..
}
の方が俺にとっては読み易いんだｺﾝﾁｸｼｮｰ。

**nobodyさん** · 04/03/19 18:15

>>522
perlstyleなんて知らなかった…ありがとう、勉強になったよ。

**nobodyさん** · 04/05/03 22:01

>>526
> perlstyle
ﾊｧ?

**nobodyさん** · 04/05/09 20:52

例えば既成の掲示板のCGIとかから

require 'axlog.pl';
AxLog::getlog('ログファイル名','ログ最大記録数');

の用に呼び出して使うアクセス解析。

何となく作ったんですが評価お願いします。

アクセス解析 http://torihamlog.s55.xrea.com/search/axlog.pl.txt
ログビューワー http://torihamlog.s55.xrea.com/search/axlogv.cgi.txt

ここにログビューワを設置して、それにアクセス解析しこんでます。
リモホとかIPとか晒す事になるので困る人は見ないで下さい。
パスワードは　1234　です。
http://torihamlog.s55.xrea.com/search/axlogv.cgi

念のため…コレ呼び出すとログを削除します。
http://torihamlog.s55.xrea.com/search/dellog.cgi

**528** · 04/05/09 21:13

すいません、上の奴.txtで終わってるのに何故か実行しようとしてエラーになるので
ファイル名変更しました。

アクセス解析 http://torihamlog.s55.xrea.com/search/axlog_pl.txt
ログビューワー http://torihamlog.s55.xrea.com/search/axlogv_cgi.txt

**nobodyさん** · 04/05/09 21:49

>>529
とりあえず axlog.pl をザッと見た感じ。

> 39: my $logfile = ($_[0]) ? $_[0] : "log.dat";
my $logfile = $_[0] || "log.dat";
か
my $logfile = defined $_[0] && length $_[0] ? $_[0] : "log.dat";

> 48: $ENV{'TZ'} = "JST-9";
local するか、呼び出し元と条件を揃える (設定しない) 。

> 58 ～ 62
my($path) = $ENV{'SCRIPT_NAME'} =~ m|^(.*/)|;

ログに ASCII 以外の文字を吐くのはあまりお勧めしない。

あと axlog.pl.txt や axlog.cgi.txt でも「.pl」や「.cgi」は含まれて
いるので CGI プログラムとして動く。Apache のマニュアル参照。

**nobodyさん** · 04/05/09 22:26

>>529
axlogv.cgi 。

> 6: use vars qw/$pw $logfile $gzip_send $gzip/;
不要。

> 47 ～ 53:
my $gzip = $^O =~ /Win/
　　? "gzip.exe -1 -c"
　　: "/bin/gzip -1 -c"
;

> 69: if ($mode eq "css") { Style_Sheets(); }
わざわざ CGI で吐かせる理由は?

> 74: else { print "Status: 403 Forbidden\n\n"; exit; }
エラーメッセージを吐いた方が親切。

> 256: Content-type: text/plain; charset=Shift_JIS
text/css

**528** · 04/05/10 19:23

>>530-531
評価ありがとうございます。
色々参考になります。

cssについてはファイルを一つにまとめたかったからです。
やっぱあんまり良くないですか？

>> 74: else { print "Status: 403 Forbidden\n\n"; exit; }
>エラーメッセージを吐いた方が親切。

if ($mode eq "css") { Style_Sheets(); }
elsif ($pass ne $pw) { Error('パスワードが違います。') }
elsif (($pass eq $pw) && ($mode eq "view") && ($ENV{'REQUEST_METHOD'} eq "POST")) { View(); }
else { Pass_form(); }

こうゆう風にしようと思っています。

**nobodyさん** · 04/05/11 00:31

>>532
・CSS を変更する為にスクリプトを編集する危険を冒す必要がある。
・外部に CSS を持つのに対し、常に二倍の回数実行される。
・CSS を使い回す時に悩む事になる。

これらのデメリットを考慮の上で、なお一つにまとめるメリットの方が
勝ると判断したならいいんじゃないか?

**528** · 04/05/14 20:45

>>532
自己レス
すげー馬鹿なこと書いていた

if ($mode eq "css") { Style_Sheets(); }
elsif (($pass) && ($pass ne $pw)) { Error('パスワードが違います。') }
elsif (($pass eq $pw) && ($mode eq "view") && ($ENV{'REQUEST_METHOD'} eq "POST")) { View(); }
else { Pass_form(); }

たぶんコレでいいかな…

作った動機はなんとなくなんだけど、実用性とかどうでせう？
一応CGIの設置とかできて、ほんのちょっとだけいじれる程度人向けのつもりです。

◆u2YjtUz8MU · 04/07/02 01:32

いろいろわからんことだらけで作りましたが
添削して下しさい。
【スクリプト】http://www.tcn.ne.jp/~majima/dog/quiz.txt
【動作例】http://www.tcn.ne.jp/~majima/dog/quiz/quiz.cgi

**nobodyさん** · 04/07/03 23:32

>>535
むずい

**nobodyさん** · 04/07/04 05:07

>>535
とりあえず画像のファイル名を変えた方が良いよｗ
２０点頂きました

**nobodyさん** · 04/07/04 05:12

>>535
もじゅーるは使えない鯖なんでつか？
使えるんなら使ったほうがいいでつよ。
Image::Magick、CGI、Jcode等々
何に使うのかは自分で調べてね。

EUCで書いたり表示したりしたほうがいいと思うけど、Shift_JISでやりたいのなら反対しないさ。

所々myを付けているが、どうせなら全部に付けちゃいな。
strictしろってこった。
ついでにHTML的にも4.01strict すれば？

**ager** · 04/07/09 18:40

age

**nobodyさん** · 04/10/08 20:39:40

タイトル::時刻::内容\n

というようなデータが数行あるような場合
それらを読んできて切り分けるって処理を
してます。
これの評価お願いします。

sub split_data{

my @ref,@tmp,%hush;
@tmp = @_;

for (@tmp){
chomp;
($hush{title},$hush{time},$hush{contents}) = split /::/;
push (@ref,{%hush});
}

return(@ref);

}

@tmp = ("a::b::c\n","d::e::f\n","g::h::i\n");

@ref = split_data(@tmp)

for(0..$#ref){
print "title:".$ref[$_]->{title};
print " time:".$ref[$_]->{time};
print " contents:".$ref[$_]->{contents}."\n";
}

**nobodyさん** · 04/10/09 00:21:55

>>540
myで複数宣言するときは()がいる
hushじゃなくてたぶんhashね．連想配列っていみなら

ハッシュのスライスを使うとエレガントかも
@hash{qw/title time contents/} = split /::/;

foreachつかえよ
for(...$#ref)

**540** · 04/10/09 02:08:52

541>

>ハッシュのスライスを使うとエレガントかも
>@hash{qw/title time contents/} = split /::/;

ありがと、参考になりました。

my は複数でも()いりませんよ。バージョンによるだろうけど
最後に、今更foreach使ってる人いるんですか？w

**nobodyさん** · 04/10/09 02:43:14

>>542
#--- test.p ---
use strict;
my $foo, $bar, $baz;
__END__

> /usr/local/bin/perl -v
This is perl, v5.8.5 built for i386-freebsd-64int
<snip>
> /usr/local/bin/perl -wc test.p
Parentheses missing around "my" list at test.p line 2.
Global symbol "$bar" requires explicit package name at test.p line 2.
Global symbol "$baz" requires explicit package name at test.p line 2.
test.p had compilation errors.

> /usr/bin/perl -v
This is perl, version 5.005_03 built for i386-freebsd
<snip>
> /usr/bin/perl -wc test.p
Parens missing around "my" list at test.p line 2.
Global symbol "$bar" requires explicit package name at test.p line 2.
Global symbol "$baz" requires explicit package name at test.p line 2.
test.p had compilation errors.

**nobodyさん** · 04/10/09 03:20:52

>>541 >foreachつかえよ
>>542 >今更foreach使ってる人いるんですか？w

for と foreach は単なるシノニムなので、その表現は正しくないな。
foreach (LIST) BLOCK を for (LIST) BLOCK と略せるのと同様に、
for (EXPR; EXPR; EXPR) BLOCK を foreach (EXPR; EXPR; EXPR)
BLOCK と書いてもエラーにならない。

foreach ループを意味するところで foreach と「書け」という >>541 の
アドヴァイスは論拠の確かな正しいものだ。しかし Perl では C 風の
for ループを使う機会が foreach ループに比べて圧倒的に少ない上、
人間の目からも for ループと foreach ループの区別は容易なので、
砕けた流暢な Perl を目指すならこだわる必要のない部分だと思うな。

**nobodyさん** · 04/10/09 05:06:54

>>540
%hush(多分hash?)の宣言の位置。
GCのコストを考慮した場合に、変数の再利用をするはあるけど...、
ループないで初期化してないとフィールドの数が少ない時に困るよ。

split/::/の代わりに正規表現を使ってデータを切り出すと、
データのチェックとsplitを同時にできて便利。

chompはデータ格納前に済ませておいた方が良いんじゃないかな。chomp(@tmp)
もしくは、大抵はファイルから読み込むだろうからその時に。

**540** · 04/10/09 05:35:12

>>544
どうもありがとう。foreachは普通に使えるんだろうけど、
大抵forで済ませてしまうのです。言い方悪かったです、スイマセン。

>>545
ありがとうございます。

>ループないで初期化してないとフィールドの数が少ない時に困るよ。
というのは、forのループ内で undef(%hush); (ほんとはhashでしたw)
でいいですか？
あと、フィールドの数が少ない時というのはどういうことでしょうか？

>split/::/の代わりに正規表現を使ってデータを切り出すと
どう書いたらいいのか思いつきません。宜しかったらご教授下さい。

>chompはデータ格納前に済ませておいた方が良いんじゃないかな。
そうですね。

open(FH,"file_name");
@tmp = <FH>;
chomp(@tmp);
close(FH);

**541** · 04/10/09 11:14:32

言いたかったのはforeach (@ref)にしろよってことね
別にfor (@ref)でもいいかもしれんが
あと>>543読んだか？ myは複数宣言するときは()いる

>>546
>ループ内で初期化
for(hoge){
my %hash;
statement;
}
こういう事だと思う

**540** · 04/10/09 12:28:12

my () つけなくてもエラー出てないです。　という事は
省略も可って事ではないでしょうか？

**nobodyさん** · 04/10/09 14:26:51

>>548
エラーにならないのは strict 'vars' 宣言が無いからだ。
my $foo, $bar, $baz; という文自体は文法的には間違いじゃないが、
my は , より優先順位が高いので、my($foo), $bar, $baz; と書くのと
等価になる。

#--- test.p ---
my $foo, $bar, $baz;
print defined $main::{$_} ? "'$_' is global.\n" : "'$_' is rexical.\n"
　　for qw(foo bar baz);
__END__

> perl -w test.p
Parentheses missing around "my" list at test.p line 1.
Useless use of a variable in void context at test.p line 1.
Useless use of a variable in void context at test.p line 1.
Name "main::bar" used only once: possible typo at test.p line 1.
Name "main::baz" used only once: possible typo at test.p line 1.
'foo' is rexical.
'bar' is global.
'baz' is global.

**nobodyさん** · 04/10/09 17:41:00

>>546
> あと、フィールドの数が少ない時というのはどういうことでしょうか？
これは、今回のケースでは問題なかったです。

でも、変数を再利用する時は気を付けないと、前の値が残っていたり、
意図しない場所の値を書き換えてしまったりするので注意。
例えば、pushの所を \%hash とりファレンスを使うように変更した場合。

my (@ref, %hash);
foreach (@_) {
# @refの中の前の値を上書きすることになる
# {%hash}とした場合は、@refにはいってる値はコピーなので影響ない
@hash[qw/title time contents/] = split/::/;
push(@ref, \%hash);
}

my (@ref);
foreach (@_) {
my %hash;
@hash[qw/title time contents/] = split/::/;
# {%hash} でも期待通りに動作するが、余分なコピーを生成
push(@ref, \%hash);
}

速度とかを重視するなら >>540 が効率良さそうだけど、(多分)
バグとかみつかった場合に変数のスコープが広いと特定するのが困難になる。

>>542
> my は複数でも()いりませんよ。バージョンによるだろうけど
他の方に指摘のある通り。
最低限 use strict; use warnings;(もしくは -w) を宣言してないとPerlは教えてくれない。

**nobodyさん** · 04/10/09 18:04:19

ここってものすごいでかいスクリプトでも細かい所まで見てくれるの？

**nobodyさん** · 04/10/09 18:09:49

>>550 何かおかしな日本語だった。訂正
s/他の方に/他の方からも/

あと、正規表現を使った方法を書き忘れてたのでついでに、、
例えば time が整数の場合の例

if (/^(.+)::(\d+)::(.+)$/) {
@hash{qw/title time contents/} = ($1, $2, $3)
}

**nobodyさん** · 04/10/09 19:39:15

>>551
読むに耐えうる書き方＆内容ならな。
KENTレベルなら却下

**nobodyさん** · 04/10/09 22:16:04

>>553
オブジェクト指向とか頑張ってやってみたけど中途半端になったようなのでも大丈夫ですか？

**nobodyさん** · 04/10/09 22:37:35

何書いたって叩かれるんだから、結城出していいと思う

**540** · 04/10/09 23:53:30

ほんとにこんなに色々な方が、教えてくださるとは思ってませんでした。
どうもありがとうございます。
特にエレガントな方法を教えてくださった５４２氏
ハイレベルな（少なくとも今の私には）指摘をしてくれた
５４５＝５５０＝５５２氏には感謝します。
その他あのようなケチなコードに意見を下さった方々ありがとう。

またお世話になるかもしれません。m(_ _)m

**nobodyさん** · 04/10/10 20:44:07

> my は複数でも()いりませんよ。バージョンによるだろうけど
> 最後に、今更foreach使ってる人いるんですか？w
こんなこと言うやつはもう来なくていい

**540** · 04/10/11 01:40:27

ごめんね

**nobodyさん** · 04/10/11 09:04:30

>>558
とっとと消えろ

**nobodyさん** · 04/10/18 16:42:05

>>557
同意。

かぼ · 04/10/22 19:30:44

評価お願いします。
http://members14.tsukaeru.net/skycat/quan/quan.cgi

**nobodyさん** · 04/10/22 20:13:06

>>561
コード晒せって馬鹿

**nobodyさん** · 05/01/23 00:46:42

誘導されてきました。
評価というか不具合の問題です

初めてperl書いてみました。
簡易的な計算のプログラムを作ってみたんですがうまく動作しません。

ちょっと見て頂き、不具合等御指摘下さい
特定の計算式で、入力（1項目だけセレクトボックスにより選択）した数値を計算するものです。

ソース
http://tool-ya.ddo.jp/2ch/trash-box/contents.jsp?file=20050123003423509.txt

URL
http://sr-cafe.chu.jp/kok/calc.html

**nobodyさん** · 05/01/23 03:00:10

>>563
ｿｰｽはﾏﾝﾄﾞｸｻｲのでちゃんと読んでないけど、
文字コードと改行コードの問題の様な希ｶﾞｽ。

**nobodyさん** · 05/01/23 13:10:26

>>563
calc.html

×　<SELECT name="set" name="s1">
○　<SELECT name="s1">

**nobodyさん** · 05/01/23 20:04:18

>>563
ReadFormData(*FORM);　→　%FORM=&ReadFormData;
print <<END_OF_DATA;　→　print <<"END_OF_DATA";
Content-type: text/html;　→　Content-type: text/html\n\n

以下　sub ReadFormDataの修正
local(*FORM) = @_;　→　my %FORM=();
local($buf, $tmp, $name, $value);　→　my($buf, $tmp, $name, $value);
return %FORM;　←　最後に追加

**nobodyさん** · 05/01/24 11:42:30

>>566
改行コード２つとダブルクォーテーション必要無くね？

**nobodyさん** · 05/01/24 12:10:13

\n\nはいらんね。
ヒアドキュメントのダブルクォートはどちらかというとあったほうが・・・

**563** · 05/01/25 02:27:15

ありがとうございます。
>>566サンの通りにしたり、色々試してるんですがまだ動かないです…
printが閉まってなくてフォームの値を処理出来てないんでしょうか…

**nobodyさん** · 05/01/25 04:00:44

>>569
うちのサーバでスクリプト試したんだけどちゃんと動くぜ。
おまい、サーバに嫌われてるんだ。きっと。

問題は　print <<END_OF_DATA ～ END_OF_DATA　までか、
まさかと思うがパーミッションか、perlの指定。

一度　print <<END_OF_DATA ～ END_OF_DATA　を
たいした行数じゃないんだし、print "～\n"; に置き換えてみ。
それからコメント行やめろ。余計見づらくなる。

**566** · 05/01/25 04:01:58

>>569
今試したら566の変更だけで動いたわけだが。
Content-typeの行はそのままでも良いみたい。
動かないとしたらCGIの設置方法の問題。
まさかとは思うがローカルでテストしてるよね？

**nobodyさん** · 05/01/25 04:03:19

→まさかとは思ってない法則

**566** · 05/01/25 04:07:06

つーか563のソースのままでも、ちゃんと結果出るじゃん。
問題はコードではない予感。

**nobodyさん** · 05/01/25 04:14:49

>>573
経験で言うとさ、ヒアドキュメントはサーバの機嫌で、最初はうまく動作して
くれないことがある。Cookieなんか入れるとどうも変なんだよな。
そういうとき俺はメンドーでも print "～\n" に置換えてやる。すると、あとは
「ヒアドキュメントでも読込んでやるかぁ」ってことでサーバは折り合ってくれる。

**nobodyさん** · 05/01/25 04:27:07

>>574
コンピュータに機嫌も何もねーだろ。

**nobodyさん** · 05/01/25 04:34:21

いや、あるんだって。コード書く時も、こうした方が処理が楽だろ、とか
ムリしなくっていいから、とか気を使ってやると機嫌よくなる。ほんとだぜ。

**nobodyさん** · 05/01/25 06:20:53

>>576
お前が何も分かって無いだけ