自作CGIを評価するスレ

自分の作ったCGIをみんなに評価してもらうスレだよ。言語は問わないよ。
よほどプログラムが短くないかぎりはアプロダにでもアップしてね。

もしかして、mainで書いた関数は、mainに含まれますか..汗
勝手に、関数を覗いた部分がmail{}となるのかと思ってました。

>>47
＞mainで、my使うと、別の関数から書きかえれないのでは？
「別の関数」が良く分からんが、mainパッケージに属している関数では

my $a = 1;
print $a,"\n";
&routine;
print $a,"\n";

sub routine {$a = 3;}

$ perl hoge.pl
1
3
となる。

#!/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
となる（安全

>>48
main関数なんてもんはない。
mainパッケージ。この辺はちゃんと勉強した方が良かれと思われる。

はい、よく分かりました。
ありがとうございます。

>>46
御意見ありがとう御座います。
こんなに早く返って来るなんて…。感激です。
…と言うより、私の記述が雑なので簡単に変な所が見つかってるだけなのだろうか。複雑な気分…汗

もし、ヒマな方がいらっしゃいましたらまだまだ御意見をたくさんお聞かせ下さい。

どれどれ。ちょっと見てみるか。

>>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.

>>55 まあtypoじゃないみたいだけどね。
・2350行目〜sprintfですっきりと

他人が書いたソースって見てると面白いもんだねぇ・・・

つーか、でかっ
10KB超えるCGIなんて作ったこと無い・・・。

・receive_error ifはいるのか？
・localの意味が分からないならmyを使おう
・クラックを気にするならcryptを使おう
・684行目はどういう意味？
・=はエスケープしなくていいよ
・PCと携帯を同時に扱うなら、途中までは両者に依存しない処理にしておいて
　最後の最後いざ出力するという時に振り分けると綺麗になるよ

>>58
儂は300Ｋのソースがあるぞ（ぉ

・最初（〜300行目）のqqはなんだ？
まぁあとは4氏にも共通するけど、インデントがおかしいのと
記述に一貫性がないのが気になるね。
サブルーチンがそこそこ見られるのは良いと思う（ただ、もう少しstrictに書こう）

これは個人的な趣味だけど、俺はグローバルなオプションはハッシュにする。
%option =(board_name => "hoge", max_mes => 50 ); みたいに。

>>61
なるほど。
今までファイルから読んだ設定なんかはハッシュにしてましたが、
CGIだと初心者設置者が混乱するかと思って、できるだけ
見た目で分かりそうにしたつもりでしたが、ハッシュのがｲｶｽ。

>>54-60
もう早こんなに…！ありがとう御座います。
最初はなんか晒すの恥ずかしいと思ってたけど、晒して良かったなぁ…（嬉

>>55-56
はい、タイムの所めちゃくちゃです。自分でもここは直さねば！と思ってました。
ありがたく直させてもらいます。

>>57
そうですか。私のレベルだと他人の記述は自分と進めかたが違うので見てると疲れてしまいます。
そんな私はperlしかできず、初めて１年くらいになります。面白いと言って頂けて幸いです。

>>58
＞・receive_error ifはいるのか？
はい、これは利用者のかたが「0」と設定した場合、
バイト数無制限にするため、判定にかけません。
＞・localの意味が分からないならmyを使おう
ごもっともです。言われてみると私もlocalの意味が分かりません。汗
＞・クラックを気にするならcryptを使おう
cryptって分からないので調べてみますね。今は取り敢えず返事を急いでます。
＞・684行目はどういう意味？
これは、携帯用なのでパケ代の節約です。
＆ｎｂｓｐ；だと半角20文字で改行と同じになります。（多くの携帯は横が半角20文字）
で、携帯はパケ代（受信料）が深刻なので、
＆ｎｂｓｐ；２０コ。つまり120バイトを＜ＢＲ＞とし、４バイトに抑えます。
これで受信料は1/30になります。相手が携帯ならではの記述です。
＞・=はエスケープしなくていいよ
はい。
＞・PCと携帯を同時に扱うなら、途中までは両者に依存しない処理にしておいて
＞　最後の最後いざ出力するという時に振り分けると綺麗になるよ
ついつい手抜きでガーッとコピーしてしまいました。汗

localは宣言した{}内から読んだ関数内からでも参照できる。かな..

$cry = crypt('passwd', 'sl');
で、DESというので暗号化します。slはsaltで2byteとります。
暗号化されてた文字列(13byte)の先頭2byteに入りますから、
パスワードを検査するときに、同じsaltでもう一度暗号化して、
暗号済みのものと同じになれば同じパスワードです。
ん、いい説明探したほうが早いか..

ハッシュを普通の変数のように使うのってだめですか？

>>66
駄目ではない、用途によって使い分ける事が重要

#○ログファイル
$def_log_file = q[./log.txt];
これは納得できるが
#○一度に表示されるレスの件数。
#[3〜6]推奨。多く設定すると端末側で読み込めない場合があります。
$def_mess_page = qq[5];
こっちをダブルクオートで囲むのはなぜ？
数値をクオートで囲まれると変な気がする…

>>41
>>32

myは本当は局所的に使うためなのはしってるんだけど
どうしてもその前後で値が必要になったりすることが多いので
サブルーチンなら先頭に全部まとめて書いてる・・・

>>70
余りいい設計じゃないなぁ・・・
subは位置に依存しないものであるべき

>>61
＞・最初（〜300行目）のqqはなんだ？
qq自体の意味でしょうか…？qならシングルクウォートでqqならダブルです。
入力は、ご使用していただく方に任意で入力してもらいます。量が多くてめんどうな気がしますけど…。
＞インデントがおかしいのと
＞記述に一貫性がないのが気になるね。
つまり見にくいと…。私の中では今までで１番気をつけた記述だったりしますが…
頑張ります。
サブルーチンがそこそこ見られるのは良いと思う（ただ、もう少しstrictに書こう）
strictってなんだろう、汗。調べてみます。

＞これは個人的な趣味だけど、俺はグローバルなオプションはハッシュにする。
＞%option =(board_name => "hoge", max_mes => 50 ); みたいに。
そうですか、私はこの記述で
「グローバルな変数の先頭にmain」をつけ、
「ルーチンのみの変数の先頭にルーチン名」を付けたのですが、
名前が長くなりすぎて失敗してしまいました。

>>65
どうもです。

もしかしたら、返事を飛ばしてしまった方が居るかもしれませんがすみません。
明日からでも記述の整理をしたいと思います。

まだまだなにかありましたら、お願いします。ヒマな方は眺めてやって下さい。
当たり前ですが、全部読んで参項にさせてもらってます。

>>69
はい、これで行きます、トリップ。

>>68
もし、
#○一度に表示されるレスの件数。
#[3〜6]推奨。多く設定すると端末側で読み込めない場合があります。
$def_mess_page = 5;
とした場合、どこに入力したら良いか目で確認しにくいかと思いまして…。
数字なのでシングルではなく、ダブルで囲んでます。

なんて言うのか、入力する場所を
[ここ];
にしたら始めて設置する人でも分かりやすいと考えた結果こうなりました。

>>73
んー基本的なことを言わせてもらうと・・・
コメントでちゃんと書いとけば理解してもらえる範囲じゃないかと思うけどね・・・

それでわからないっていうのは相手する必要が無いような・・・（ぉ

って言うか最近多い「4」って香具師は「4番」ではなく、コテハン？
普通に紛らわしい。なんとかしてほしい。

このスレタイっておかしくない？

× 自作CGIを評価するスレ
○ 自作CGIを評価してもらえるスレ
○ 自作CGIを評価していただくスレ

じゃない？

まぁ、書き捨てにするか後から見やすく書くかのレベルになる罠（ｗ

>>66
普通の変数も無名ハッシュっていう位置づけじゃなかったっけ？

>>76
非常にすみません。
Perlの極意スレの4番です。
もう沈んでどこかに行ったスレです。
なんとなくそのまま４でした、改名します、37です。

>>79
漏れは 何回も使う関数的なやつは結構まともに書いてるけど
本体が長くなるからただ分けただけのサブルーチン的なものだと
かなりだらしないわ。

一応strictなコードでmod_perlで動いてる

「エラー処理を先にやれ」っていう格言をどっかで見た。

それ以上続けるのが無意味と分かっている場合に
だらだらと引きずるのは良くない。すぱっとreturnすべき。

>>84
まぁ、別に好きなように書けばいいんだけど、
グローバル変数の値をサブルーチンから出力することもあるし・・・
それ以前に、どのレベルで言ってるかつーのが気になる所かもなぁ

ちなみにgotoは使わないよ。必要ないから(w

>>84
なるほど、私は上のほうの書き方しますね..
やはり、コードが見やすいというのもプログラムの重要な要素に
はいるのでしょうか？

>>84
それ書くなら
if(真 && 真 && 真){何か}else{return 0;}
だろうなぁ…

まぁ趣味でやってるプログラミングなんで
動いたら嬉しいって程度なんだが（ｗ

>>83
関数だと割ときれいに書くな　漏れも

>>87習慣づけしとけばスパゲッティなソースにはなりにくいのが作れると思うけどねん

returnは複数付けるのが一般的らしいな、覚えとこう

>>37
貴殿のソースをみたんですが
653-669行・・・　これなんすか？（ｗ

>>89さん
そのためには1度しか使わない処理でも無駄にサブルーチン作って、
見やすくすることも必要でしょうか？
趣味で作るので、自分以外がソース読むことが無かったため
とりあえず、自分が読めれば気にしなかったのですが。

>>90
エラー処理ですが、
if () { えらー1}
if () { えらー2}
if () { error }
としたほうがいいですかね？

>>91　
慣れてない時は単純な処理にでもサブルーチンは作ってたけど、
今は、機能ごとにサブルーチンを作ってるって感じですね
同じ処理でも規模がおっきくないとそのまま書きなぐりすることがおおいです

>>92
エラーで止める優先度あるの？

unless ($a < 100){&error("$aが100以下じゃありません");}
unless ($b eq 'GET'){&error("$bがgetじゃありません");}
〜〜
でいいと思うが・・・

>>92
@error =(
　err1,
err2,
);

$error[$code];

みたいなことを最近よくするな（ｗ

>>88
あっと、>>84の例ではエラー処理が同一に書いてしまったのでおっしゃるとおりなんですが、
エラー処理が失敗した段階によって異なると考えてくださいませ

×エラー処理が同一に
○エラー処理の部分に同一の処理を

プログラム言語の前に日本語勉強してきます。。。

>>93
なるほどー。
私は2度以上行う処理で引数と返り値が必要なものをサブルーチンに
するようにしていますが、今回少し考え直そうかと。

つーか>>41の掲示板でかッ！
携帯用だと処理が細かくなって増えるのか？

関係無いが・・・漏れはエラー処理の場合
第一引数は数値だよ第二引数になんかメモ
sub error内でエラーログに記録する内容とかを振り分けることができる
perlだけじゃないが でかいやつになると
エラーメッセージ一覧表だけで数KBになる・・

>>94さん
確かにその通りです。
優先順位などありません..

基本的にエラーメッセージって書かないなぁ（ぉ
規定外の値だとデフォルト値になるようにしてるなぁ

人によってコーディングの仕方が
かなり違うことがわかったんで　今日は寝るサラバ

起きたら局所変数を意識したプログラムを書いてみよう。

ちょっと修正しました。批判していただいた部分は
まだすべて修正できていませんが、一応アド載せときます。
BBS: http://hex51.darktech.org/cgi-bin/the/bbs.pl
SRC: http://hex51.darktech.org/the.txt

余談ですが、部屋がめちゃめちゃ寒いです..

はい、実は上のほうですでに言われました。
さっさとourにしておきます。

修正しますた。

ま、あせらずゆっくりいけやー。

どうもー。
取り合えず今日は寝てません。

my でスコープはファイル・パッケージ内に限定されるんだから意味はあると思うよ。
our にはならない。
別のパッケージから読みこんだりしてるのでなければ、
わざわざ our にする方が意味ないと思うけど？

修正しましたが何か？

↑追加
http://oasis.mininddns.net/

ｽﾏｿ。ｽｯﾍﾟﾙﾐｽ
http://oasis.minidns.net/

http://oasis.minidns.net/
蜜柑性だけどな

[index.cgi:26:warn] Use of uninitialized value in concatenation (.) or string at /www/oasis/html/index.cgi line 26. [index.cgi:26:warn] Use of uninitialized value in concatenation (.) or string at /www/oasis/html/index.cgi line 26.
ってでてるよ＞116

書き方まずかったかな？
>>71はブロックの外で宣言すると、例えばサブルーチンの中からでも参照できてしまうので
変数宣言する時は、スコープを絞って適切なブロック内で宣言しよう…と言っているのだと思う。
修正というか、むしろ改悪されえてるような・・・。
our にしてしまうと、他のファイルからも値を参照出来る様になってしまうので、

# つっこみたかったのは、
# > この部分って全部グローバルだからourになっちゃうよん
# my で宣言してるのに勝手に our にはならないよー。ってこと。


よくある方法だと、main関数（サブルーチン）を作るか、
単にブロックで囲む。（ラベルは別にいらないけど便宜上）
MAIN:{
my $foo = 'bar';
;
}


ちなみに、定数宣言なら変数にはせずに、
use constant LOG_DIR => './logs';
という風にしておくと、代入できないから
グローバルとか関係なく中の値は保証されるよ。

なるほど。
囲ってみます。

>>118
＞変数宣言する時は、スコープを絞って適切なブロック内で宣言しよう…と言っているのだと思う。

そいう意味.、言い方まずかったですな・・・

{}って
while{} foreach{} for{} sub{} {}
が？有効なの
if{}はどうなるの？

漏れはグローバル変数使いまくりだけど　だめかい？

別に全部$hogehogeみたいなやつでいいじゃん
なんで局所変数とかみんなつかうの？？？？

>>124見通しが悪くなるから。
誤動作の元にもなりかねんし

>>125
でも配ってるやつってほとんどグローバル変数のみじゃん

>>126だから自分で組んでるんだが？
グローバルがいいっていうなら、そうすればいいのじゃない？

自分だけでやっとればいいってのなら一向にかまわないけど、
複数の人がからんでくるとなるとそうもいかない

取り合えず少し直してみました。
今日はPHPで学校の掲示板を作るので
あまり変更はないかもしれません。

>>71さん
気をつけないと
if ($hoge eq 'hoge') {
 my $foo = 'hoge!';
}
print $foo;
この場合ﾏｽﾞｲですよね？
ﾁｮｯﾄmyについていろいろと試してみます。

>>128
それはスコープの外に print $fooがあるので動作しない

if ($hoge eq 'hoge') {
　my $foo = 'hoge!';
　print $foo;
}
コレが正解

>>129さん
OKっす。
要はCのautoですよね？

myを使わなきゃダメって訳じゃない。
使った方が良いってだけで。

グローバルである必要がないならレキシカルを使うほうが
安全だし速度的にも有利だからね。

use vars使うのは反則？

ありじゃないの？
じゃなきゃそんなモジュール作らんよ。

>>133
使い方次第

localを使おう

すみませんがちょっと漏れのスクリプトを見てください。
ソートの練習なんです。
いちおう漏れの思っている動作しているのですが，突っ込むところがあれば，後学のために色々教えてください。

ソースはこちら，
ttp://members.tripod.co.jp/angeldayan/
使ったデータはこちら
ttp://members.tripod.co.jp/angeldayan/data.txt

要 cgi-lib.pl です。

たいしたものじゃなくてごめんなさい。
初心者なんで，これでも１週間かかっちゃったんです。
よろしくお願いします。

>>137
myとかの使い方覚えたほうがいいかも
まだはじめたばかりなのならPHPもいいかもよ

でスクリプトに関しては
ファイルをアップロードするわけでもないんだし
自前でデコードしよう。

>>137
漏れも挑戦してみていいかい？

疲れた。。とりあえずこんなん？
http://iwh11.hp.infoseek.co.jp/p/e/r/perldev/cgi-bin/upload/source/039.txt

PerlスクリプトなんでDOSから動かしてね

my, our でも変数のスコープは同じなんだけどなぁ。
varsプラグマ（v5.6以降だと our）を使うのは、
use strict 'vars'プラグマを有効にした時に、
複数のパッケージである変数を別のパッケージから使いたい場合、等。

no strict は、場合によっては反則 ...

そういえば、さっきmyとmyなしでベンチマークを行ったら
myの方が３，４倍遅かったのだけど…。メモリ消費は解らない。

自分の趣味でリファレンスを使ってソースを書いてみた・・・
cgi-lib使ったことないからあてずっぽうだけど、かなりソース書きなおす事になったねぇ

ttp://iwh15.hp.infoseek.co.jp/p/e/r/perldev/cgi-bin/upload/source/041.txt

>>143　8-9行目
if ($in{'rev'}){
my $script = 'http://' . $ENV{'SERVER_NAME'} . $ENV{'SCRIPT_NAME'};

ココ逆だな・・・

my $script = 'http://' . $ENV{'SERVER_NAME'} . $ENV{'SCRIPT_NAME'};
if ($in{'rev'}){

>>138
> myとかの使い方覚えたほうがいいかも
わかりました。勉強します。

> PHPもいいかもよ
perlと心中しまつ。

> ファイルをアップロードするわけでもないんだし
いやいや、今後画像をあぷすて貼り付けるつもりなので。。。
いつになるかわかりませんが。。。。。

>>144
うわぁ、ソースが綺麗でつ。
でも、動きません。。。。。
ローカルでは「ページを表示できません」で動きませんし、
サーバにあげてみた所、最初の画面は表示するものの、
情報のリンクのところが
http://サーバー名/$script?action=1&rev=1&n=0
って、$script そのままでつ。
結果は404でつ。
自分でも調べてみまつ。

>>145 動かしてないからねぇ（ｗ
穴ありまくりであろうかと

> そういえば、さっきmyとmyなしでベンチマークを行ったら
> myの方が３，４倍遅かったのだけど…。メモリ消費は解らない。

根拠を示さずに結果だけ取り出して言われても…。誤解されないかな？
my の何のベンチマークを行なったの？
ループ・ブロック内で変数を宣言して、そのオーバーヘッドを測っていた
なんて事はないよね？それとも、ホントに変数の参照・代入が３〜４倍もかかったりした？