自分の作ったCGIをみんなに評価してもらうスレだよ。言語は問わないよ。
よほどプログラムが短くないかぎりはアプロダにでもアップしてね。
自作CGIを評価するスレ
1Premature end of script headers : /this/thread
03/04/05 12:47ID:tIET0nhf03/04/05 12:58ID:???
乙
03/04/05 14:40ID:???
03/04/05 15:00ID:???
PHPもOKなの？
03/04/05 15:51ID:???
WebProgならなんでもいいんじゃネーノ？
03/04/05 17:41ID:???
CGIならいいんだろ？
11マリモーマ ◆r6PDGT6Xd2
03/04/05 18:33ID:4Hc1kYlW 僕の作った CGIは どう？ http://777.or.nu/cgi.html
12nobodyさん
03/04/05 18:43ID:??? 絵に描いたような一直線ソースだな
13nobodyさん
03/04/05 18:57ID:??? もうちょいスコープとか意識したほうがいいんじゃない？
殆どグローバル変数・・・
殆どグローバル変数・・・
14nobodyさん
03/04/05 18:59ID:??? ・どっかからコピーした部分以外で使われる変数が全てグローバル
・関数名から内容が想像できない(re,fot,ur,re2,wr2lok,co.gc等 sub ge {} は結構引いた）
・スタイルに一貫性がない
・$FORMの扱いがｷﾓｲ
・symlinkロックしてるが解除はどこでやってんだ？
・関数名から内容が想像できない(re,fot,ur,re2,wr2lok,co.gc等 sub ge {} は結構引いた）
・スタイルに一貫性がない
・$FORMの扱いがｷﾓｲ
・symlinkロックしてるが解除はどこでやってんだ？
15nobodyさん
03/04/05 19:05ID:??? >>14
5番目訂正しとく。
・symlinkロックしてないから解除はやらなくてもいいんだけどロックしないってことか。
sub lok{
if($lock == 0){return;}
local($wait) = 4;
while (!symlink(".", $lock)) {
if ($wait-- <= 0) {
&error("$(B%m%C%/%U%!%$%k$,B8:_$7$F$^$9!#(B");
}
sleep 1;
}
}
$ grep '$lock' ch/*
ch/sub.cgi: if($lock == 0){return;}
ch/sub.cgi: while (!symlink(".", $lock)) {
これじゃあ$lockは常に0だよ・・・
まあ$lockに値を入れたところで解除できんから1回しか書き込めんのだけどね。
5番目訂正しとく。
・symlinkロックしてないから解除はやらなくてもいいんだけどロックしないってことか。
sub lok{
if($lock == 0){return;}
local($wait) = 4;
while (!symlink(".", $lock)) {
if ($wait-- <= 0) {
&error("$(B%m%C%/%U%!%$%k$,B8:_$7$F$^$9!#(B");
}
sleep 1;
}
}
$ grep '$lock' ch/*
ch/sub.cgi: if($lock == 0){return;}
ch/sub.cgi: while (!symlink(".", $lock)) {
これじゃあ$lockは常に0だよ・・・
まあ$lockに値を入れたところで解除できんから1回しか書き込めんのだけどね。
16マリモーマ ◆r6PDGT6Xd2
03/04/05 21:18ID:4Hc1kYlW なるほど いろいろなアドバイス サンクス
17これ自信作だぜ
03/04/05 22:52ID:qMi3a/lA18これ自信作だぜ
03/04/05 23:35ID:qMi3a/lA tail -f /var/log/httpd/accesslog
見たけど誰もアクセスして来ないや。
皆臆病者だね。
見たけど誰もアクセスして来ないや。
皆臆病者だね。
19nobodyさん
03/04/05 23:45ID:??? お前がきもいから人気無いだけだろ。とんだ勘違い野郎だな。
204
03/04/06 00:23ID:t3fZoblF よかったら批判ください。
もうちょいコード直してから、URL晒します。
もうちょいコード直してから、URL晒します。
21nobodyさん
03/04/06 00:26ID:??? 元から批判が欲しいとは
224
03/04/06 00:28ID:t3fZoblF 批判以外もらってもどうしようもない..
ほめてもらったら何も意味がないっす。
ほめてもらったら何も意味がないっす。
24nobodyさん
03/04/06 00:39ID:??? >>17
ソース見たらDOCTYPEがXHTMLだったけどぱっと見ても明らかに間違えまくってたのでチェックしてみた。
チェックの結果は以下のとおりです。
http://oasis.minidns.net/ を XHTML1.0 Transitional としてチェックしました。
19個のエラーがありました。このHTMLは 4点です。タグが 9種類 14組使われています。文字コードは Shift JIS のようです。
先頭の数字はエラーのおおまかな重要度を 0〜9 で示しています(減点数ではありません)。少ない数字は軽く、9 になるほど致命的です。0 は減点対象外のごく軽度のエラーで (グレイのかっこつき) でメッセージされています。
9: line 1: このXML宣言は正しくありません。 → 解説 23
6: line 5: <html> には xmlns 属性が必要です。 → 解説 86
2: line 5: <html> には lang 属性を指定するようにしましょう。 → 解説 116
2: line 5: <html> には xml:lang 属性を指定するようにしましょう。 → 解説 116
ソース見たらDOCTYPEがXHTMLだったけどぱっと見ても明らかに間違えまくってたのでチェックしてみた。
チェックの結果は以下のとおりです。
http://oasis.minidns.net/ を XHTML1.0 Transitional としてチェックしました。
19個のエラーがありました。このHTMLは 4点です。タグが 9種類 14組使われています。文字コードは Shift JIS のようです。
先頭の数字はエラーのおおまかな重要度を 0〜9 で示しています(減点数ではありません)。少ない数字は軽く、9 になるほど致命的です。0 は減点対象外のごく軽度のエラーで (グレイのかっこつき) でメッセージされています。
9: line 1: このXML宣言は正しくありません。 → 解説 23
6: line 5: <html> には xmlns 属性が必要です。 → 解説 86
2: line 5: <html> には lang 属性を指定するようにしましょう。 → 解説 116
2: line 5: <html> には xml:lang 属性を指定するようにしましょう。 → 解説 116
25nobodyさん
03/04/06 00:39ID:??? 0: line 6: (<head>〜</head> 内に <link rev="made" href="mailto:〜" /> が含まれていません。) → 解説 121
0: line 6: (<head>〜</head> 内に <link rel="next" href="〜" /> などのナヴィゲーション用のリンクが含まれていません。) → 解説 122
1: line 6: <p> と </p> の間が空です。 → 解説 51
1: line 6: <body> での色指定が不完全です。text 属性も含めるようにしましょう。 → 解説 149
0: line 7: (<input type="text"> には tabindex 属性を指定するようにしましょう。) → 解説 166
0: line 7: (<input type="file"> には tabindex 属性を指定するようにしましょう。) → 解説 166
1: line 7: <input type="text"> には value 属性で初期値となるテキストを指定しておきましょう。 → 解説 160
0: line 7: (<input type="text"> には tabindex 属性を指定するようにしましょう。) → 解説 166
0: line 7: (<input type="submit"> には tabindex 属性を指定するようにしましょう。) → 解説 166
1: line 7: <input type="text"> には value 属性で初期値となるテキストを指定しておきましょう。 → 解説 160
0: line 7: (<input> には accesskey 属性を指定するようにしましょう。) → 解説 167
0: line 7: (<input> には accesskey 属性を指定するようにしましょう。) → 解説 167
0: line 7: (<input> には accesskey 属性を指定するようにしましょう。) → 解説 167
0: line 7: (<input> には accesskey 属性を指定するようにしましょう。) → 解説 167
9: line 7: </html> の後にまだ何かテキストがあります。 → 解説 231
0: line 6: (<head>〜</head> 内に <link rel="next" href="〜" /> などのナヴィゲーション用のリンクが含まれていません。) → 解説 122
1: line 6: <p> と </p> の間が空です。 → 解説 51
1: line 6: <body> での色指定が不完全です。text 属性も含めるようにしましょう。 → 解説 149
0: line 7: (<input type="text"> には tabindex 属性を指定するようにしましょう。) → 解説 166
0: line 7: (<input type="file"> には tabindex 属性を指定するようにしましょう。) → 解説 166
1: line 7: <input type="text"> には value 属性で初期値となるテキストを指定しておきましょう。 → 解説 160
0: line 7: (<input type="text"> には tabindex 属性を指定するようにしましょう。) → 解説 166
0: line 7: (<input type="submit"> には tabindex 属性を指定するようにしましょう。) → 解説 166
1: line 7: <input type="text"> には value 属性で初期値となるテキストを指定しておきましょう。 → 解説 160
0: line 7: (<input> には accesskey 属性を指定するようにしましょう。) → 解説 167
0: line 7: (<input> には accesskey 属性を指定するようにしましょう。) → 解説 167
0: line 7: (<input> には accesskey 属性を指定するようにしましょう。) → 解説 167
0: line 7: (<input> には accesskey 属性を指定するようにしましょう。) → 解説 167
9: line 7: </html> の後にまだ何かテキストがあります。 → 解説 231
264
03/04/06 00:40ID:t3fZoblF なぜか、2重カキコデスカ!?と
274
03/04/06 00:41ID:t3fZoblF HTMLがDOCTYPE無し、気分によって大文字小文字が混じっている
のはNGですか？
のはNGですか？
28nobodyさん
03/04/06 00:45ID:??? あ、ゴメン。エラーのせいで最後の方が減点食らってるのね。
本来のドキュメント（最初の</html>まで）でチェックしてみた。
XHTML1.0 Transitional としてチェックしました。
19個のエラーがありました。このHTMLは 8点です。タグが 9種類 14組使われています。
先頭の数字はエラーのおおまかな重要度を 0〜9 で示しています(減点数ではありません)。少ない数字は軽く、9 になるほど致命的です。0 は減点対象外のごく軽度のエラーで (グレイのかっこつき) でメッセージされています。
9: line 1: このXML宣言は正しくありません。 → 解説 23
6: line 5: <html> には xmlns 属性が必要です。 → 解説 86
2: line 5: <html> には lang 属性を指定するようにしましょう。 → 解説 116
（以下略）
本来のドキュメント（最初の</html>まで）でチェックしてみた。
XHTML1.0 Transitional としてチェックしました。
19個のエラーがありました。このHTMLは 8点です。タグが 9種類 14組使われています。
先頭の数字はエラーのおおまかな重要度を 0〜9 で示しています(減点数ではありません)。少ない数字は軽く、9 になるほど致命的です。0 は減点対象外のごく軽度のエラーで (グレイのかっこつき) でメッセージされています。
9: line 1: このXML宣言は正しくありません。 → 解説 23
6: line 5: <html> には xmlns 属性が必要です。 → 解説 86
2: line 5: <html> には lang 属性を指定するようにしましょう。 → 解説 116
（以下略）
304
03/04/06 00:53ID:t3fZoblF ほう、今自分で見ててすでに数箇所突っ込みどころがあったよ。
もう少し。
もう少し。
314
03/04/06 00:58ID:t3fZoblF ついでにオレはここの4ではない。
32nobodyさん
03/04/06 00:59ID:??? 評価して欲しいやつはトリップつけれや
344 ◆R.zOhOehsw
03/04/06 01:29ID:t3fZoblF PERLですが、まずいですか？
35nobodyさん
03/04/06 01:34ID:??? いえ、さっさと貼っちゃってよん。
36あぼーん
03/04/06 01:41ID:??? ______________
／:＼.＿＿＿_＼
|:￣＼(∩´∀｀) ＼ ＜先生！こんなのがありました！
|:在 |:￣￣ U￣:|
http://saitama.gasuki.com/aomori/
／:＼.＿＿＿_＼
|:￣＼(∩´∀｀) ＼ ＜先生！こんなのがありました！
|:在 |:￣￣ U￣:|
http://saitama.gasuki.com/aomori/
374 ◆R.zOhOehsw
03/04/06 01:56ID:t3fZoblF BBS: http://hex51.darktech.org/cgi-bin/the/bbs.pl
SRC: http://hex51.darktech.org/the.txt
言語: PERL
ネタ元: http://thebbs.jp/
糞ほど批判いただければ幸いです。
書き込みまくっても糞スレたてまくっても結構。
SRC: http://hex51.darktech.org/the.txt
言語: PERL
ネタ元: http://thebbs.jp/
糞ほど批判いただければ幸いです。
書き込みまくっても糞スレたてまくっても結構。
38nobodyさん
03/04/06 02:04ID:???394 ◆R.zOhOehsw
03/04/06 02:08ID:t3fZoblF 意見どうも。
もっとアルゴリズムを勉強しれってことですね？
もっとアルゴリズムを勉強しれってことですね？
40nobodyさん
03/04/06 02:22ID:??? ・myが気になる。
・一行書き出すのにヒアドキュメント使うのは何故？
・かと思えばqq連発で使ってたり…
・１．入力 ２．処理 ３．出力 という風に処理を分けよう
・自作自演防止はハッシュとかじゃ駄目なのかい？
・FORMの処理が2回書いてあったりして無駄
・HEADリクエストは面白いね。
・一行書き出すのにヒアドキュメント使うのは何故？
・かと思えばqq連発で使ってたり…
・１．入力 ２．処理 ３．出力 という風に処理を分けよう
・自作自演防止はハッシュとかじゃ駄目なのかい？
・FORMの処理が2回書いてあったりして無駄
・HEADリクエストは面白いね。
41nobodyさん
03/04/06 02:32ID:??? かなり恥ずかしいのですが、他人の意見を一度でも聞いてみたくて…
http://kabocha.org/jelfe/
↑のサイトの
http://kabocha.org/jelfe/cgi/ybbs.html
↑のページに
山口_BBS2.00b1
↑って言う私のCGIがあるのですが、いかがな物でしょうか。
ただし「携帯のEZ専用」なので皆様の中には意味を理解しかねる出力があるかもしれません。
ああ、ついに２ちゃんねるに晒してしまったよ…
冷静に考えると恥ずかしいけど…、プロの方（？）に見てもらいたい気持ちが上のようだ…。
変なところあったらけなしてくれてもけっこうです、むしろけなして下さい。
http://kabocha.org/jelfe/
↑のサイトの
http://kabocha.org/jelfe/cgi/ybbs.html
↑のページに
山口_BBS2.00b1
↑って言う私のCGIがあるのですが、いかがな物でしょうか。
ただし「携帯のEZ専用」なので皆様の中には意味を理解しかねる出力があるかもしれません。
ああ、ついに２ちゃんねるに晒してしまったよ…
冷静に考えると恥ずかしいけど…、プロの方（？）に見てもらいたい気持ちが上のようだ…。
変なところあったらけなしてくれてもけっこうです、むしろけなして下さい。
42nobodyさん
03/04/06 02:35ID:??? myもいいんだけど、実質グローバルと同じだな。
処理毎に｛ ｝で囲んで使わなきゃ意味ないだろ。
処理毎に｛ ｝で囲んで使わなきゃ意味ないだろ。
434 ◆R.zOhOehsw
03/04/06 02:47ID:t3fZoblF ご意見どうも。
>・一行書き出すのにヒアドキュメント使うのは何故？
エディタで折り返すのが気になるので..
>・かと思えばqq連発で使ってたり…
Emacsなので、ヒアドキュメントだと表示する特殊によって
自動のタブがおかしくなるのです..
全部個人的なことですね..修正します。
myに関しては、ちょっと調べてみます。
その他の意見に関しても、もう一度よく考え直してみます。
>・一行書き出すのにヒアドキュメント使うのは何故？
エディタで折り返すのが気になるので..
>・かと思えばqq連発で使ってたり…
Emacsなので、ヒアドキュメントだと表示する特殊によって
自動のタブがおかしくなるのです..
全部個人的なことですね..修正します。
myに関しては、ちょっと調べてみます。
その他の意見に関しても、もう一度よく考え直してみます。
444 ◆R.zOhOehsw
03/04/06 02:49ID:t3fZoblF >特殊
特殊文字、記号です。
特殊文字、記号です。
45nobodyさん
03/04/06 02:50ID:???46nobodyさん
03/04/06 02:53ID:??? >>41
2193行目 $error_name = @_[0]; → $error_name = $_[0];でいいだろ
あちこちの変数、もうちょっとスコープを考えてレキシカルに
するとかしたほうがいい。
問題ないけど、読み取りopenに < をつけたりつけなかったりなどしてるのを
書き方統一したら？
他の部分なんかでも統一させる書き方をくせにしたほうが可読性良くなるし。
吐いてるhdmlはすぐにテストできないから見ていない。
2193行目 $error_name = @_[0]; → $error_name = $_[0];でいいだろ
あちこちの変数、もうちょっとスコープを考えてレキシカルに
するとかしたほうがいい。
問題ないけど、読み取りopenに < をつけたりつけなかったりなどしてるのを
書き方統一したら？
他の部分なんかでも統一させる書き方をくせにしたほうが可読性良くなるし。
吐いてるhdmlはすぐにテストできないから見ていない。
474 ◆R.zOhOehsw
03/04/06 03:00ID:t3fZoblF484 ◆R.zOhOehsw
03/04/06 03:03ID:t3fZoblF もしかして、mainで書いた関数は、mainに含まれますか..汗
勝手に、関数を覗いた部分がmail{}となるのかと思ってました。
勝手に、関数を覗いた部分がmail{}となるのかと思ってました。
49nobodyさん
03/04/06 03:04ID:??? >>47
＞mainで、my使うと、別の関数から書きかえれないのでは？
「別の関数」が良く分からんが、mainパッケージに属している関数では
my $a = 1;
print $a,"\n";
&routine;
print $a,"\n";
sub routine {$a = 3;}
$ perl hoge.pl
1
3
となる。
＞mainで、my使うと、別の関数から書きかえれないのでは？
「別の関数」が良く分からんが、mainパッケージに属している関数では
my $a = 1;
print $a,"\n";
&routine;
print $a,"\n";
sub routine {$a = 3;}
$ perl hoge.pl
1
3
となる。
50nobodyさん
03/04/06 03:05ID:??? #!/usr/bin/perl
require "hage.pl";
my $a = 1;
print $a,"\n";
&hage::routine;
print $a,"\n";
＃ ↓はhage.pl
#!/usr/bin/perl
package hage;
sub routine {$a = 3;}
1;
では、
$ perl hoge.pl
1
1
となる（安全
require "hage.pl";
my $a = 1;
print $a,"\n";
&hage::routine;
print $a,"\n";
＃ ↓はhage.pl
#!/usr/bin/perl
package hage;
sub routine {$a = 3;}
1;
では、
$ perl hoge.pl
1
1
となる（安全
524 ◆R.zOhOehsw
03/04/06 03:08ID:t3fZoblF はい、よく分かりました。
ありがとうございます。
ありがとうございます。
53４１
03/04/06 03:11ID:??? >>46
御意見ありがとう御座います。
こんなに早く返って来るなんて…。感激です。
…と言うより、私の記述が雑なので簡単に変な所が見つかってるだけなのだろうか。複雑な気分…汗
もし、ヒマな方がいらっしゃいましたらまだまだ御意見をたくさんお聞かせ下さい。
御意見ありがとう御座います。
こんなに早く返って来るなんて…。感激です。
…と言うより、私の記述が雑なので簡単に変な所が見つかってるだけなのだろうか。複雑な気分…汗
もし、ヒマな方がいらっしゃいましたらまだまだ御意見をたくさんお聞かせ下さい。
54nobodyさん
03/04/06 03:13ID:??? どれどれ。ちょっと見てみるか。
55nobodyさん
03/04/06 03:16ID:??? >>53
Name "main::get_time_yday_2" used only once: possible typo at H:\Work\山口BBS200b1\ybbs.cgi line 2336.
Name "main::get_time_isdst_3" used only once: possible typo at H:\Work\山口BBS200b1\ybbs.cgi line 2339.
Name "main::get_time_isdst_2" used only once: possible typo at H:\Work\山口BBS200b1\ybbs.cgi line 2336.
Name "main::get_time_wday_3" used only once: possible typo at H:\Work\山口BBS200b1\ybbs.cgi line 2339.
Name "main::mail_jcph" used only once: possible typo at H:\Work\山口BBS200b1\ybbs.cgi line 2071.
Name "main::get_time_yday" used only once: possible typo at H:\Work\山口BBS200b1\ybbs.cgi line 2333.
Name "main::get_time_sec_3" used only once: possible typo at H:\Work\山口BBS200b1\ybbs.cgi line 2338.
Name "main::get_time_wday_2" used only once: possible typo at H:\Work\山口BBS200b1\ybbs.cgi line 2336.
Name "main::get_time_sec" used only once: possible typo at H:\Work\山口BBS200b1\ybbs.cgi line 2332.
Name "main::get_time_wday" used only once: possible typo at H:\Work\山口BBS200b1\ybbs.cgi line 2333.
Name "main::get_time_isdst" used only once: possible typo at H:\Work\山口BBS200b1\ybbs.cgi line 2333.
Name "main::get_time_sec_2" used only once: possible typo at H:\Work\山口BBS200b1\ybbs.cgi line 2335.
Name "main::main_user_agent" used only once: possible typo at H:\Work\山口BBS200b1\ybbs.cgi line 434.
Name "main::get_time_yday_3" used only once: possible typo at H:\Work\山口BBS200b1\ybbs.cgi line 2339.
Name "main::get_time_yday_2" used only once: possible typo at H:\Work\山口BBS200b1\ybbs.cgi line 2336.
Name "main::get_time_isdst_3" used only once: possible typo at H:\Work\山口BBS200b1\ybbs.cgi line 2339.
Name "main::get_time_isdst_2" used only once: possible typo at H:\Work\山口BBS200b1\ybbs.cgi line 2336.
Name "main::get_time_wday_3" used only once: possible typo at H:\Work\山口BBS200b1\ybbs.cgi line 2339.
Name "main::mail_jcph" used only once: possible typo at H:\Work\山口BBS200b1\ybbs.cgi line 2071.
Name "main::get_time_yday" used only once: possible typo at H:\Work\山口BBS200b1\ybbs.cgi line 2333.
Name "main::get_time_sec_3" used only once: possible typo at H:\Work\山口BBS200b1\ybbs.cgi line 2338.
Name "main::get_time_wday_2" used only once: possible typo at H:\Work\山口BBS200b1\ybbs.cgi line 2336.
Name "main::get_time_sec" used only once: possible typo at H:\Work\山口BBS200b1\ybbs.cgi line 2332.
Name "main::get_time_wday" used only once: possible typo at H:\Work\山口BBS200b1\ybbs.cgi line 2333.
Name "main::get_time_isdst" used only once: possible typo at H:\Work\山口BBS200b1\ybbs.cgi line 2333.
Name "main::get_time_sec_2" used only once: possible typo at H:\Work\山口BBS200b1\ybbs.cgi line 2335.
Name "main::main_user_agent" used only once: possible typo at H:\Work\山口BBS200b1\ybbs.cgi line 434.
Name "main::get_time_yday_3" used only once: possible typo at H:\Work\山口BBS200b1\ybbs.cgi line 2339.
57nobodyさん
03/04/06 03:31ID:??? 他人が書いたソースって見てると面白いもんだねぇ・・・
58nobodyさん
03/04/06 03:31ID:??? つーか、でかっ
10KB超えるCGIなんて作ったこと無い・・・。
10KB超えるCGIなんて作ったこと無い・・・。
59nobodyさん
03/04/06 03:32ID:??? ・receive_error ifはいるのか？
・localの意味が分からないならmyを使おう
・クラックを気にするならcryptを使おう
・684行目はどういう意味？
・=はエスケープしなくていいよ
・PCと携帯を同時に扱うなら、途中までは両者に依存しない処理にしておいて
最後の最後いざ出力するという時に振り分けると綺麗になるよ
・localの意味が分からないならmyを使おう
・クラックを気にするならcryptを使おう
・684行目はどういう意味？
・=はエスケープしなくていいよ
・PCと携帯を同時に扱うなら、途中までは両者に依存しない処理にしておいて
最後の最後いざ出力するという時に振り分けると綺麗になるよ
61nobodyさん
03/04/06 03:38ID:??? ・最初（〜300行目）のqqはなんだ？
まぁあとは4氏にも共通するけど、インデントがおかしいのと
記述に一貫性がないのが気になるね。
サブルーチンがそこそこ見られるのは良いと思う（ただ、もう少しstrictに書こう）
これは個人的な趣味だけど、俺はグローバルなオプションはハッシュにする。
%option =(board_name => "hoge", max_mes => 50 ); みたいに。
まぁあとは4氏にも共通するけど、インデントがおかしいのと
記述に一貫性がないのが気になるね。
サブルーチンがそこそこ見られるのは良いと思う（ただ、もう少しstrictに書こう）
これは個人的な趣味だけど、俺はグローバルなオプションはハッシュにする。
%option =(board_name => "hoge", max_mes => 50 ); みたいに。
624 ◆R.zOhOehsw
03/04/06 03:45ID:t3fZoblF >>61
なるほど。
今までファイルから読んだ設定なんかはハッシュにしてましたが、
CGIだと初心者設置者が混乱するかと思って、できるだけ
見た目で分かりそうにしたつもりでしたが、ハッシュのがｲｶｽ。
なるほど。
今までファイルから読んだ設定なんかはハッシュにしてましたが、
CGIだと初心者設置者が混乱するかと思って、できるだけ
見た目で分かりそうにしたつもりでしたが、ハッシュのがｲｶｽ。
63nobodyさん
03/04/06 03:49ID:??? あと、自分的趣味をいうと、subの変数はことごとく局所変数にするほうがいいと思うなぁ
sub ayaya{
my $num = shift;
$num++;
return($num);
}
みたいな形でやっとくほうが誤動作しにくい。
sub ayaya{
my $num = shift;
$num++;
return($num);
}
みたいな形でやっとくほうが誤動作しにくい。
64４１
03/04/06 03:52ID:??? >>54-60
もう早こんなに…！ありがとう御座います。
最初はなんか晒すの恥ずかしいと思ってたけど、晒して良かったなぁ…（嬉
>>55-56
はい、タイムの所めちゃくちゃです。自分でもここは直さねば！と思ってました。
ありがたく直させてもらいます。
>>57
そうですか。私のレベルだと他人の記述は自分と進めかたが違うので見てると疲れてしまいます。
そんな私はperlしかできず、初めて１年くらいになります。面白いと言って頂けて幸いです。
>>58
＞・receive_error ifはいるのか？
はい、これは利用者のかたが「0」と設定した場合、
バイト数無制限にするため、判定にかけません。
＞・localの意味が分からないならmyを使おう
ごもっともです。言われてみると私もlocalの意味が分かりません。汗
＞・クラックを気にするならcryptを使おう
cryptって分からないので調べてみますね。今は取り敢えず返事を急いでます。
＞・684行目はどういう意味？
これは、携帯用なのでパケ代の節約です。
＆ｎｂｓｐ；だと半角20文字で改行と同じになります。（多くの携帯は横が半角20文字）
で、携帯はパケ代（受信料）が深刻なので、
＆ｎｂｓｐ；２０コ。つまり120バイトを＜ＢＲ＞とし、４バイトに抑えます。
これで受信料は1/30になります。相手が携帯ならではの記述です。
＞・=はエスケープしなくていいよ
はい。
＞・PCと携帯を同時に扱うなら、途中までは両者に依存しない処理にしておいて
＞ 最後の最後いざ出力するという時に振り分けると綺麗になるよ
ついつい手抜きでガーッとコピーしてしまいました。汗
もう早こんなに…！ありがとう御座います。
最初はなんか晒すの恥ずかしいと思ってたけど、晒して良かったなぁ…（嬉
>>55-56
はい、タイムの所めちゃくちゃです。自分でもここは直さねば！と思ってました。
ありがたく直させてもらいます。
>>57
そうですか。私のレベルだと他人の記述は自分と進めかたが違うので見てると疲れてしまいます。
そんな私はperlしかできず、初めて１年くらいになります。面白いと言って頂けて幸いです。
>>58
＞・receive_error ifはいるのか？
はい、これは利用者のかたが「0」と設定した場合、
バイト数無制限にするため、判定にかけません。
＞・localの意味が分からないならmyを使おう
ごもっともです。言われてみると私もlocalの意味が分かりません。汗
＞・クラックを気にするならcryptを使おう
cryptって分からないので調べてみますね。今は取り敢えず返事を急いでます。
＞・684行目はどういう意味？
これは、携帯用なのでパケ代の節約です。
＆ｎｂｓｐ；だと半角20文字で改行と同じになります。（多くの携帯は横が半角20文字）
で、携帯はパケ代（受信料）が深刻なので、
＆ｎｂｓｐ；２０コ。つまり120バイトを＜ＢＲ＞とし、４バイトに抑えます。
これで受信料は1/30になります。相手が携帯ならではの記述です。
＞・=はエスケープしなくていいよ
はい。
＞・PCと携帯を同時に扱うなら、途中までは両者に依存しない処理にしておいて
＞ 最後の最後いざ出力するという時に振り分けると綺麗になるよ
ついつい手抜きでガーッとコピーしてしまいました。汗
654 ◆R.zOhOehsw
03/04/06 04:01ID:t3fZoblF localは宣言した{}内から読んだ関数内からでも参照できる。かな..
$cry = crypt('passwd', 'sl');
で、DESというので暗号化します。slはsaltで2byteとります。
暗号化されてた文字列(13byte)の先頭2byteに入りますから、
パスワードを検査するときに、同じsaltでもう一度暗号化して、
暗号済みのものと同じになれば同じパスワードです。
ん、いい説明探したほうが早いか..
$cry = crypt('passwd', 'sl');
で、DESというので暗号化します。slはsaltで2byteとります。
暗号化されてた文字列(13byte)の先頭2byteに入りますから、
パスワードを検査するときに、同じsaltでもう一度暗号化して、
暗号済みのものと同じになれば同じパスワードです。
ん、いい説明探したほうが早いか..
66nobodyさん
03/04/06 04:18ID:??? ハッシュを普通の変数のように使うのってだめですか？
68nobodyさん
03/04/06 04:23ID:??? #○ログファイル
$def_log_file = q[./log.txt];
これは納得できるが
#○一度に表示されるレスの件数。
#[3〜6]推奨。多く設定すると端末側で読み込めない場合があります。
$def_mess_page = qq[5];
こっちをダブルクオートで囲むのはなぜ？
数値をクオートで囲まれると変な気がする…
$def_log_file = q[./log.txt];
これは納得できるが
#○一度に表示されるレスの件数。
#[3〜6]推奨。多く設定すると端末側で読み込めない場合があります。
$def_mess_page = qq[5];
こっちをダブルクオートで囲むのはなぜ？
数値をクオートで囲まれると変な気がする…
70nobodyさん
03/04/06 04:32ID:??? myは本当は局所的に使うためなのはしってるんだけど
どうしてもその前後で値が必要になったりすることが多いので
サブルーチンなら先頭に全部まとめて書いてる・・・
どうしてもその前後で値が必要になったりすることが多いので
サブルーチンなら先頭に全部まとめて書いてる・・・
72４１
03/04/06 04:37ID:??? >>61
＞・最初（〜300行目）のqqはなんだ？
qq自体の意味でしょうか…？qならシングルクウォートでqqならダブルです。
入力は、ご使用していただく方に任意で入力してもらいます。量が多くてめんどうな気がしますけど…。
＞インデントがおかしいのと
＞記述に一貫性がないのが気になるね。
つまり見にくいと…。私の中では今までで１番気をつけた記述だったりしますが…
頑張ります。
サブルーチンがそこそこ見られるのは良いと思う（ただ、もう少しstrictに書こう）
strictってなんだろう、汗。調べてみます。
＞これは個人的な趣味だけど、俺はグローバルなオプションはハッシュにする。
＞%option =(board_name => "hoge", max_mes => 50 ); みたいに。
そうですか、私はこの記述で
「グローバルな変数の先頭にmain」をつけ、
「ルーチンのみの変数の先頭にルーチン名」を付けたのですが、
名前が長くなりすぎて失敗してしまいました。
>>65
どうもです。
もしかしたら、返事を飛ばしてしまった方が居るかもしれませんがすみません。
明日からでも記述の整理をしたいと思います。
まだまだなにかありましたら、お願いします。ヒマな方は眺めてやって下さい。
当たり前ですが、全部読んで参項にさせてもらってます。
＞・最初（〜300行目）のqqはなんだ？
qq自体の意味でしょうか…？qならシングルクウォートでqqならダブルです。
入力は、ご使用していただく方に任意で入力してもらいます。量が多くてめんどうな気がしますけど…。
＞インデントがおかしいのと
＞記述に一貫性がないのが気になるね。
つまり見にくいと…。私の中では今までで１番気をつけた記述だったりしますが…
頑張ります。
サブルーチンがそこそこ見られるのは良いと思う（ただ、もう少しstrictに書こう）
strictってなんだろう、汗。調べてみます。
＞これは個人的な趣味だけど、俺はグローバルなオプションはハッシュにする。
＞%option =(board_name => "hoge", max_mes => 50 ); みたいに。
そうですか、私はこの記述で
「グローバルな変数の先頭にmain」をつけ、
「ルーチンのみの変数の先頭にルーチン名」を付けたのですが、
名前が長くなりすぎて失敗してしまいました。
>>65
どうもです。
もしかしたら、返事を飛ばしてしまった方が居るかもしれませんがすみません。
明日からでも記述の整理をしたいと思います。
まだまだなにかありましたら、お願いします。ヒマな方は眺めてやって下さい。
当たり前ですが、全部読んで参項にさせてもらってます。
73４１ ◆hht1jkpw9E
03/04/06 04:43ID:???74nobodyさん
03/04/06 04:47ID:???75nobodyさん
03/04/06 04:48ID:??? >>71
激しく意味不明なやつになっちまったけど
sub saitama{
my ($value,$saitama,$hoge);
foreach $value (@_){
($saitama,$hoge) = split(/,/,$value);
if($saitama == $hoge){ return 1; }
}
return 0;
}
こんなやつもだめ？ってこと
激しく意味不明なやつになっちまったけど
sub saitama{
my ($value,$saitama,$hoge);
foreach $value (@_){
($saitama,$hoge) = split(/,/,$value);
if($saitama == $hoge){ return 1; }
}
return 0;
}
こんなやつもだめ？ってこと
76nobodyさん
03/04/06 04:53ID:??? って言うか最近多い「4」って香具師は「4番」ではなく、コテハン？
普通に紛らわしい。なんとかしてほしい。
普通に紛らわしい。なんとかしてほしい。
77nobodyさん
03/04/06 04:55ID:??? このスレタイっておかしくない？
× 自作CGIを評価するスレ
○ 自作CGIを評価してもらえるスレ
○ 自作CGIを評価していただくスレ
じゃない？
× 自作CGIを評価するスレ
○ 自作CGIを評価してもらえるスレ
○ 自作CGIを評価していただくスレ
じゃない？
7871
03/04/06 04:55ID:??? >>75
sub saitama{
my $ret = 0;
foreach my $value (@_){
my ($saitama,$hoge) = split(/,/,$value);
if($saitama == $hoge){
$ret = 1;
last;
}
}
return $ret;
}
私ならこう書くかな
sub saitama{
my $ret = 0;
foreach my $value (@_){
my ($saitama,$hoge) = split(/,/,$value);
if($saitama == $hoge){
$ret = 1;
last;
}
}
return $ret;
}
私ならこう書くかな
7975
03/04/06 05:00ID:??? まぁ意識しろって言われたら
漏れならこう書くんだけど
sub saitama{
foreach my $value (@_){
my ($saitama,$hoge) = split(/,/,$value);
if($saitama == $hoge){ return 1; }
}
return 0;
}
78のコードと比べるとどっちのほうが
好まれるのかい？まぁ下らんと言えば下らないのだが・・・
>>73
use strict 使ってみたら？
漏れならこう書くんだけど
sub saitama{
foreach my $value (@_){
my ($saitama,$hoge) = split(/,/,$value);
if($saitama == $hoge){ return 1; }
}
return 0;
}
78のコードと比べるとどっちのほうが
好まれるのかい？まぁ下らんと言えば下らないのだが・・・
>>73
use strict 使ってみたら？
8071
03/04/06 05:03ID:??? まぁ、書き捨てにするか後から見やすく書くかのレベルになる罠（ｗ
8237 ◆0wPZQfeVoI
03/04/06 05:07ID:t3fZoblF83nobodyさん
03/04/06 05:09ID:??? >>79
漏れは 何回も使う関数的なやつは結構まともに書いてるけど
本体が長くなるからただ分けただけのサブルーチン的なものだと
かなりだらしないわ。
一応strictなコードでmod_perlで動いてる
漏れは 何回も使う関数的なやつは結構まともに書いてるけど
本体が長くなるからただ分けただけのサブルーチン的なものだと
かなりだらしないわ。
一応strictなコードでmod_perlで動いてる
84nobodyさん
03/04/06 05:10ID:??? 「出口は一つ」をかたくなに守るのは「gotoを意地でも使わない」と同様に愚行だ。
エラー処理でも
if (真) {
if (真) {
if (真) {
# 何か処理
} else {
$ret = 0;
}
} else {
$ret = 0;
}
} else {
$ret = 0;
}
より
if (偽) {return 0;}
if (偽) {return 0;}
if (偽) {return 0;}
# 何か処理
の方が圧倒的に見やすいだろう。だから俺は>>79だな。
エラー処理でも
if (真) {
if (真) {
if (真) {
# 何か処理
} else {
$ret = 0;
}
} else {
$ret = 0;
}
} else {
$ret = 0;
}
より
if (偽) {return 0;}
if (偽) {return 0;}
if (偽) {return 0;}
# 何か処理
の方が圧倒的に見やすいだろう。だから俺は>>79だな。
85nobodyさん
03/04/06 05:12ID:??? 「エラー処理を先にやれ」っていう格言をどっかで見た。
それ以上続けるのが無意味と分かっている場合に
だらだらと引きずるのは良くない。すぱっとreturnすべき。
それ以上続けるのが無意味と分かっている場合に
だらだらと引きずるのは良くない。すぱっとreturnすべき。
8671
03/04/06 05:13ID:??? >>84
まぁ、別に好きなように書けばいいんだけど、
グローバル変数の値をサブルーチンから出力することもあるし・・・
それ以前に、どのレベルで言ってるかつーのが気になる所かもなぁ
ちなみにgotoは使わないよ。必要ないから(w
まぁ、別に好きなように書けばいいんだけど、
グローバル変数の値をサブルーチンから出力することもあるし・・・
それ以前に、どのレベルで言ってるかつーのが気になる所かもなぁ
ちなみにgotoは使わないよ。必要ないから(w
8737 ◆0wPZQfeVoI
03/04/06 05:15ID:t3fZoblF8879
03/04/06 05:16ID:???9137 ◆0wPZQfeVoI
03/04/06 05:26ID:t3fZoblF >>89さん
そのためには1度しか使わない処理でも無駄にサブルーチン作って、
見やすくすることも必要でしょうか？
趣味で作るので、自分以外がソース読むことが無かったため
とりあえず、自分が読めれば気にしなかったのですが。
そのためには1度しか使わない処理でも無駄にサブルーチン作って、
見やすくすることも必要でしょうか？
趣味で作るので、自分以外がソース読むことが無かったため
とりあえず、自分が読めれば気にしなかったのですが。
9237 ◆0wPZQfeVoI
03/04/06 05:29ID:t3fZoblF9371
03/04/06 05:31ID:???9479
03/04/06 05:32ID:??? >>92
エラーで止める優先度あるの？
unless ($a < 100){&error("$aが100以下じゃありません");}
unless ($b eq 'GET'){&error("$bがgetじゃありません");}
〜〜
でいいと思うが・・・
エラーで止める優先度あるの？
unless ($a < 100){&error("$aが100以下じゃありません");}
unless ($b eq 'GET'){&error("$bがgetじゃありません");}
〜〜
でいいと思うが・・・
96nobodyさん
03/04/06 05:38ID:???97nobodyさん
03/04/06 05:40ID:??? ×エラー処理が同一に
○エラー処理の部分に同一の処理を
プログラム言語の前に日本語勉強してきます。。。
○エラー処理の部分に同一の処理を
プログラム言語の前に日本語勉強してきます。。。
9837 ◆0wPZQfeVoI
03/04/06 05:40ID:t3fZoblF10079
03/04/06 05:43ID:??? 関係無いが・・・漏れはエラー処理の場合
第一引数は数値だよ第二引数になんかメモ
sub error内でエラーログに記録する内容とかを振り分けることができる
perlだけじゃないが でかいやつになると
エラーメッセージ一覧表だけで数KBになる・・
第一引数は数値だよ第二引数になんかメモ
sub error内でエラーログに記録する内容とかを振り分けることができる
perlだけじゃないが でかいやつになると
エラーメッセージ一覧表だけで数KBになる・・
10137 ◆0wPZQfeVoI
03/04/06 05:43ID:t3fZoblFレスを投稿する
ニュース
- 【富士山】「考え方がズルい」市長発言にクライマー猛反発「アルピニストが育たなくなる」6000人超の反対署名を本日提出 [ぐれ★]
- 【W杯】ブラジルに敗れた森保監督「これからも世界一を目指して日本のために頑張りたい」★5 [ネギうどん★]
- 【🇰🇷🇯🇵】日の丸を描いたマカロン「食べたら国旗毀損罪」⋯小泉進次郎防衛相が公開した写真 ★2 [少考さん★]
- 【円安】1ドル162円台まで下落 円相場が39年半ぶりの円安ドル高水準に ★4 [ぐれ★]
- 【W杯】塩貝健人、ブラジル巡る発言の意図を説明「ネイマールが点を取っていたのは前のことで、今じゃないだろと言いたかっただけ」★4 [Anonymous★]
- 高市政権、野党不在にかまわず法案の審議入り強行 「戦時中の翼賛政治を上回る強権だ」非難強まる [少考さん★]
- お前らってよｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗ
- お前らが初めてセックスした年齢書いてけｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗｗ童貞は部屋のエアコンの設定温度でも書いてろｗｗｗｗｗｗｗ
- 【訃報】円安、止まらない [943688309]
- 高市首相に仇をなした日刊ゲンダイの記者のアカウント、凍結されるｗｗｗｗ [595118796]
- 宝くじ３億円当たったらどんな暮らしする？
- ケロロの映画ってガンプラ転売ヤーとかパにおじネタ出た？